## No existing SIZES in control stream
if (FALSE) {
file.mod <- system.file("examples/nonmem/xgxr032.mod",package="NMsim")
NMupdateSizes(file.mod,LTV=50,write=FALSE)
}
## This controls stream has existing SIZES
if (FALSE) {
file.mod <- system.file("examples/nonmem/xgxr134.mod",package="NMsim")
NMupdateSizes(file.mod,LTV=50,write=FALSE)
}
## provide control stream as text lines
if (FALSE) {
file.mod <- system.file("examples/nonmem/xgxr032.mod",package="NMsim")
lines <- readLines(file.mod)
NMupdateSizes(lines=lines,LTV=50,write=FALSE)
}
Run the code above in your browser using DataLab