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