if (FALSE) {
fm1 <- lcc(data = hue, subject = "Fruit", resp = "H_mean",
method = "Method", time = "Time", qf = 2, qr = 2)
AIC(fm1)
}
if (FALSE) {
attach(simulated_hue)
fm6 <- lcc(data = simulated_hue, subject = "Fruit",
resp = "Hue", method = "Method", time = "Time",
qf = 2, qr = 1, components = TRUE,
time_lcc = list(n=50, from=min(Time), to=max(Time)))
AIC(fm6)
BIC(fm6)
}
Run the code above in your browser using DataLab