# NOT RUN {
# }
# NOT RUN {
## This is an example of how the function may be setup by a user.
library(xpose4)
mygof <- gof
fix(mygof)
myggof <- function (runno = NULL, save = FALSE, onefile = FALSE, saveType = "pdf",
pageWidth = 7.6, pageHeight = 4.9, structural = TRUE, residual = TRUE,
covariate = FALSE, iiv = FALSE, iov = FALSE, all = FALSE, myTrace=xpPage) {
gofSetup(runno, save, onefile, saveType, pageWidth, pageHeight)
xpdb <- xpose.data(runno)
if (structural || all) {
xplot <- dv.vs.pred.ipred(xpdb, page = myPage)
print(xplot)
}
if (residual || all) {
xplot <- absval.wres.vs.pred(xpdb, page = myPage)
print(xplot)
}
if (covariate || all) {
}
if (iiv || all) {
}
if (iov || all) {
}
if (save) dev.off()
invisible()
}
## The function can then be execute, e.g.:
mygof(1)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab