file <- system.file("examples/nonmem/xgxr003.lst",package="NMdata")
NMdata:::lstExtractTime(file)
file <- system.file("examples/nonmem/xgxr003.mod",package="NMdata")
NMdata:::lstExtractTime(file)
if (FALSE) {
all.lsts <- list.files(
system.file("examples/nonmem",package="NMdata"),
pattern="\\.lst",full.names=TRUE)
lapply(all.lsts,NMdata:::lstExtractTime)
}
Run the code above in your browser using DataLab