pkData$id2 <- pkData$Subject
model <- pkmodel(columnMap = FALSE,
data = pkData,
workingDir = tempdir())
modelvar <- unlist(modelVariableNames(model))
colnames <- c("Subject", "Act_Time", "Amount", "Conc")
names(colnames) <- modelvar
# will map subject directly
colnames <- colnames[-c(1)]
model <- colMapping(model, colnames, id = c(Subject, id2))
# also possible:
model <- colMapping(model, colnames, id = c("Subject", "id2"))
# not recommended since only not quoted names are identified
# if both types are provided:
model <- colMapping(model, colnames, id = c("Subject", id2))
Run the code above in your browser using DataLab