clean up

friendly · Aug 3, 2024 · b8a38a3 · b8a38a3
1 parent 6fd2ddc
commit b8a38a3
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 237 deletions.
diff --git a/dev/symbolicMatrix.R b/dev/symbolicMatrix.R
@@ -94,7 +94,7 @@
 #' str(mat)
 #' cat(mat)
 #' # copy to clipboard
-#' clipr::write_clip(mat)
+#' #clipr::write_clip(mat)    # can't be done in non-interactive mode
 #'
 #' # numeric rows/cols
 #' symbolicMatrix(ncol=3)

diff --git a/dev/symbolicMatrix2.R b/dev/symbolicMatrix2.R
diff --git a/dev/test-symbolic-matrix.R b/dev/test-symbolic-matrix.R
@@ -50,10 +50,11 @@ symbolicMatrix(nrow=3.1, ncol=3)
 
 # SVD
 
-X <- symbolicMatrix("x", "n", "p")
-U <- symbolicMatrix("u", "n", "k")
-D <- symbolicMatrix("\\lambda", "k", "k", diag=TRUE)
-V <- symbolicMatrix("v", "k", "p", transpose = TRUE)
+X <- symbolicMatrix("x", "n", "p", print=FALSE)
+U <- symbolicMatrix("u", "n", "k", print=FALSE)
+D <- symbolicMatrix("\\lambda", "k", "k", diag=TRUE, print=FALSE)
+V <- symbolicMatrix("v", "k", "p", transpose = TRUE, print=FALSE)
 cat("\\mathrm{SVD:}\n", X, "=\n", U, D, V)
+
 #cat("SVD:\n", X, "=\n", U, "\n", D, "\n", V)
 
diff --git a/man/figures/symbMat-SVD.png b/man/figures/symbMat-SVD.png