tests/testthat/testMap.R
In WinVector/crosspca: Cross Validated Principal Components Analysis
context("Check Map")
test_that("testMap: mapping works", {
x <- USArrests
perm <- c(2,3,4,1)
x2 <- x[,perm]
mp <- crosspca:::mapcols(x2,x)
check <- mp[perm[seq_len(length(perm))]]
expect_true(all(check==seq_len(length(perm))))
})
WinVector/crosspca documentation built on June 24, 2020, 5:09 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.
context("Check Map")
test_that("testMap: mapping works", {
x <- USArrests
perm <- c(2,3,4,1)
x2 <- x[,perm]
mp <- crosspca:::mapcols(x2,x)
check <- mp[perm[seq_len(length(perm))]]
expect_true(all(check==seq_len(length(perm))))
})
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.