## Requires NMdata 0.1.9
if (FALSE) {
file.mod <- system.file("examples/nonmem/xgxr021.mod",package="NMsim")
NMwriteInits(file.mod,
values=list( "theta(2)"=list(init=1.4),
"THETA(3)"=list(FIX=1),
"omega(2,2)"=list(init=0.1))
)
NMwriteInits(file.mod,
"theta(2)"=list(init=1.4),
"THETA(3)"=list(FIX=1),
"omega(2,2)"=list(init=0.1)
)
}
Run the code above in your browser using DataLab