## No existing SIZES in control stream
if (FALSE) {
file.mod <- system.file("examples/nonmem/xgxr132.mod",package="NMdata")
newmod <- NMwriteSizes(file.mod,LTV=50,write=FALSE)
head(newmod)
}
## provide control stream as text lines
if (FALSE) {
file.mod <- system.file("examples/nonmem/xgxr032.mod",package="NMdata")
lines <- readLines(file.mod)
newmod <- NMwriteSizes(lines=lines,LTV=50,write=FALSE)
head(newmod)
}
## By default (wipe=FALSE) variabels are added to SIZES
if (FALSE) {
lines.mod <- NMwriteSizes(file.mod,LTV=50,write=FALSE)
newmod <- NMwriteSizes(lines=lines.mod,PD=51,write=FALSE)
head(newmod)
}
Run the code above in your browser using DataLab