# NOT RUN {
# Calling the data
data(data.sim)
# Data analysis for the global method
n <- nrow(data) / 2
XC <- data[1:n, 1:3]
XT <- data[(n + 1):(2 * n), 1:3]
global.1m.analysis(XC = XC, XT = XT, A = data[, 5])
# }
Run the code above in your browser using DataLab