library("testthat")
library("lcc")
context("factor handling in grouping variables")
test_that("factors", {
data(hue)
hue2<-transform(hue, "Method"=as.factor(as.numeric(hue$Method)),
"Fruit"=as.factor(as.numeric(hue$Fruit)))
expect_that(fm1<-lcc(data = hue, subject = "Fruit", resp = "H_mean",
method = "Method", time = "Time",
qf = 2, qr = 2, components = TRUE), is_a("lcc"))
expect_that(fm2<-lcc(data = hue2, subject = "Fruit",
resp = "H_mean", method = "Method",
time = "Time", qf = 2, qr = 2,
components = TRUE), is_a("lcc"))
expect_equivalent(fm1$Summary.lcc$fitted,fm2$Summary.lcc$fitted)
expect_equivalent(fm1$Summary.lcc$sampled,fm2$Summary.lcc$sampled)
expect_equivalent(fm1$Summary.lcc$gof,fm2$Summary.lcc$gof)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.