if (FALSE) {
fit <- bdotsFit(data = cohort_unrelated,
subject = "Subject",
time = "Time",
y = "Fixations",
group = c("Group", "LookType"),
curveType = doubleGauss(concave = TRUE),
cor = TRUE,
numRefits = 2,
cores = 0,
verbose = FALSE)
parDT <- coefWriteout(fit)
}
Run the code above in your browser using DataLab