The objective of this study is to perform an external validation of three prognostic dementia models using OMOP CDM data. This package replicates the model by Nori.
# get the latest PatientLevelPrediction
install.packages("devtools")
devtools::install_github("OHDSI/PatientLevelPrediction", ref = 'development')
# check the package
PatientLevelPrediction::checkPlpInstallation()
# install the network package
devtools::install_github("mi-erasmusmc/EmcNoriDementiaModel")
library(EmcNoriDementiaModel)
# USER INPUTS
#=======================
# The folder where the study intermediate and result files will be written:
outputFolder <- "./EmcNoriDementiaModelResults"
# Details for connecting to the server:
dbms <- "you dbms"
user <- 'your username'
pw <- 'your password'
server <- 'your server'
port <- 'your port'
connectionDetails <- DatabaseConnector::createConnectionDetails(dbms = dbms,
server = server,
user = user,
password = pw,
port = port)
# Add the database containing the OMOP CDM data
cdmDatabaseSchema <- 'cdm database schema'
# Add a database with read/write access as this is where the cohorts will be generated
cohortDatabaseSchema <- 'work database schema'
# Add the database name
cdmDatabaseName <- 'friendly database name'
oracleTempSchema <- NULL
# table name where the cohorts will be generated
cohortTable <- 'EmcNoriDementiaModelCohort'
#=== Do not edit the following settings of the CodeToRun.R file
# TAR settings (will be ignored, refer to the study protocol for final settings)
sampleSize <- NULL
riskWindowStart <- 1
startAnchor <- 'cohort start'
riskWindowEnd <- 365
endAnchor <- 'cohort start'
firstExposureOnly <- F
removeSubjectsWithPriorOutcome <- F
priorOutcomeLookback <- 99999
requireTimeAtRisk <- F
minTimeAtRisk <- 1
includeAllOutcomes <- T
#=======================
EmcNoriDementiaModel::execute(connectionDetails = connectionDetails,
cdmDatabaseSchema = cdmDatabaseSchema,
cdmDatabaseName = cdmDatabaseName,
cohortDatabaseSchema = cohortDatabaseSchema,
cohortTable = cohortTable,
sampleSize = sampleSize,
riskWindowStart = riskWindowStart,
startAnchor = startAnchor,
riskWindowEnd = riskWindowEnd,
endAnchor = endAnchor,
firstExposureOnly = firstExposureOnly,
removeSubjectsWithPriorOutcome = removeSubjectsWithPriorOutcome,
priorOutcomeLookback = priorOutcomeLookback,
requireTimeAtRisk = requireTimeAtRisk,
minTimeAtRisk = minTimeAtRisk,
includeAllOutcomes = includeAllOutcomes,
outputFolder = outputFolder,
createCohorts = T,
runAnalyses = T,
recalibrate = F,
viewShiny = T,
packageResults = T,
minCellCount= 5,
verbosity = "INFO",
cdmVersion = 5)
cdmDatabaseNameRecalibrated <- paste0(cdmDatabaseName, "_recalibrated")
EmcNoriDementiaModel::execute(connectionDetails = connectionDetails,
cdmDatabaseSchema = cdmDatabaseSchema,
cdmDatabaseName = cdmDatabaseNameRecalibrated,
cohortDatabaseSchema = cohortDatabaseSchema,
cohortTable = cohortTable,
sampleSize = sampleSize,
riskWindowStart = riskWindowStart,
startAnchor = startAnchor,
riskWindowEnd = riskWindowEnd,
endAnchor = endAnchor,
firstExposureOnly = firstExposureOnly,
removeSubjectsWithPriorOutcome = removeSubjectsWithPriorOutcome,
priorOutcomeLookback = priorOutcomeLookback,
requireTimeAtRisk = requireTimeAtRisk,
minTimeAtRisk = minTimeAtRisk,
includeAllOutcomes = includeAllOutcomes,
outputFolder = outputFolder,
createCohorts = T,
runAnalyses = T,
recalibrate = T,
viewShiny = T,
packageResults = T,
minCellCount= 5,
verbosity = "INFO",
cdmVersion = 5)
After running the code go to the location you specified as outputFolder. Inside this location you should see two folders, both with a name as specified by cdmDatabaseName, but one with _recalibrated added to the name. In addition there should be a zip file inside each folder. These two zipped files are the study results to be shared. We recommend that you inspect the files before sending. They will contain various csv files that can be opened and inspected.
2021-03-01 Release v1.0
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.