# NOT RUN {
# Assuming user has run MLPB_boot() and has summarize the bootstrapping result
data("MLPB_output_median")
subjects <- c('subject1', 'subject2', 'subject3', 'subject4', 'subject5')
# In our demo data, each subject has a scan with a total of 750 time points
time.points <- c(1:105, 126:230, 251:355,
376:480, 501:605, 626:730)
num.scan <- 6 # Each subject has 6 scans
ntps.per.scan <- 105 # Each scan has 105 time points
op <- options_lme(effective_tp = time.points,
ntps.per.scan = ntps.per.scan,
subjects = subjects,
num.scan = num.scan,
cores = 5)
resDyn <- lmmDyn(MLPB_output_median, op)
# }
Run the code above in your browser using DataLab