# NOT RUN {
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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab