tests/svd.r
In fml-fam/craze: Interface for 'fmlr'
suppressMessages(library(craze))
x = matrix(as.double(1:6), 3)
x_fml = fmlmat(x)
test = as.matrix(svd(x_fml, 0, 0)$d)
truth = svd(x, 0, 0)$d
stopifnot(all.equal(test, truth))
test = as.matrix(svd(x_fml)$u)
truth = svd(x)$u
stopifnot(all.equal(abs(test), abs(truth)))
fml-fam/craze documentation built on June 6, 2020, 2:05 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
suppressMessages(library(craze))
x = matrix(as.double(1:6), 3)
x_fml = fmlmat(x)
test = as.matrix(svd(x_fml, 0, 0)$d)
truth = svd(x, 0, 0)$d
stopifnot(all.equal(test, truth))
test = as.matrix(svd(x_fml)$u)
truth = svd(x)$u
stopifnot(all.equal(abs(test), abs(truth)))
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.