R/Helpers.R

In OHDSI/PredictionComparison: Package for comparing patient level predictions developed using OHDSI's PatientLevelPreidiction package

#helper files
checkPlpObject <- function(x){
  if(sum(names(x)%in%c("performanceEvaluation","inputSetting","executionSummary",
                   "model","analysisRef","covariateSummary" )) == 6){
    return(T)
  }
  return(F)
}

checkPrediction <- function(x){
  if(sum(names(x)%in%c("prediction" )) == 1){
    return(T)
  }
  return(F)
}