tests/testthat/test-factor-lcc.R

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)
})
Prof-ThiagoOliveira/lcc documentation built on Dec. 9, 2023, 12:10 a.m.