Nothing
context("Test klfda functionalities")
data(iris)
test_that("klfda works correctly for different metrics on the data transformed by kmatrixGauss()", {
k <- kmatrixGauss(iris[, -5])
y <- iris[, 5]
r <- 3
result <- klfda(k, y, r, metric = "plain")
expect_equal(dim(result$T), c(150, 3))
expect_equal(dim(result$Z), c(150, 3))
result <- klfda(k, y, r, metric = "weighted")
expect_equal(dim(result$T), c(150, 3))
expect_equal(dim(result$Z), c(150, 3))
result <- klfda(k, y, r, metric = "orthonormalized")
expect_equal(dim(result$T), c(150, 3))
expect_equal(dim(result$Z), c(150, 3))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.