Permalink
Browse files

verification of results, using R. This is the place for it.

Signed-off-by: AJ Rossini <blindglobe@gmail.com>
  • Loading branch information...
1 parent 1e111b6 commit ca3da363dda82c2774f50e17ed68dcff09d9feb3 @blindglobe committed Feb 21, 2009
Showing with 19 additions and 0 deletions.
  1. +19 −0 lispMatrixTests.R
View
@@ -0,0 +1,19 @@
+
+## From TODO:
+
+m01 <- matrix(data=c(11.0, 12.0, 13.0, 14.0, 15.0,
+ 21.0, 22.0, 23.0, 24.0, 25.0,
+ 31.0, 32.0, 33.0, 34.0, 35.0,
+ 41.0, 42.0, 43.0, 44.0, 45.0,
+ 51.0, 52.0, 53.0, 54.0, 55.0,
+ 61.0, 62.0, 63.0, 64.0, 65.0),
+ nrow=6, ncol=5,byrow=TRUE)
+
+m01
+mtm <- t(m01) %*% m01
+mtm
+
+qr(mtm)
+
+solve(mtm)
+

0 comments on commit ca3da36

Please sign in to comment.