R/MgRefit.R

In ModelGood: Validation of risk prediction models

MgRefit <- function(object,data,step,silent=FALSE,verbose=FALSE){
  object$call$data <- data
  try2fit <- try(refit <- eval(object$call),silent=silent)
  if (inherits(try2fit,"try-error")==TRUE){
    if (verbose==TRUE)
      warning(paste("During bootstrapping: model ",class(object)," failed in step ",step),immediate.=TRUE)
    NULL
  }
  else{
    refit$call$data <- NULL
    refit
  }
}