# \donttest{
if (requireNamespace("nparLD", quietly = TRUE)) {
# Small toy data set for nparLD
set.seed(123)
example_data <- data.frame(
Subject = factor(rep(1:10, each = 3)),
Time = factor(rep(c("T1", "T2", "T3"), times = 10)),
TLX1 = stats::rnorm(30, mean = 50, sd = 10)
)
# Fit nparLD model
model <- nparLD::nparLD(
TLX1 ~ Time,
data = example_data,
subject = "Subject",
description = FALSE
)
# Report the nparLD result
reportNparLD(model, dv = "TLX1")
}
# }
Run the code above in your browser using DataLab