data(panic2)
if (FALSE) {
fit <- nparLD(resp ~ group * time,
data = panic2,
subject = "subject",
hypothesis = "H0F", effect="unweighted")
fit
}
if (FALSE) {
fit <- nparLD(resp ~ group * time,
data = panic2,
subject = "subject",
hypothesis = "H0p",
contrast = list("group:time"),
Factor.Information = TRUE,
covariance=TRUE)
fit
plot(fit)
plot(fit$MCTP)
}
Run the code above in your browser using DataLab