This package contains code to externally validate machine learning model predicting newly diagnosed MDD patients within 1 year after initiation of beta-blocker for cardiovascular disease. The algorithm was developed on the Korean National Health Insurance Service - National Sample Cohort.
If you would like to participate, please let us by November 14, 2020. We hope to have all of the data analysis performed by the end of October 2020, and then will submit a manuscript with participants as co-authors.
You may contact us at the following emails:
Suho Jin: spa7652@gmail.com
Seng Chan You: seng.chan.you@ohdsi.org
# To install the package from github:
install.packages("devtools")
devtools::install_github("ohdsi-studies/MddAfterBbValidation")
library(MddAfterBbValidation)
# add details of your database setting:
databaseName <- 'add a shareable name for the database you are currently validating on'
# add the cdm database schema with the data
cdmDatabaseSchema <- 'your cdm database schema for the validation'
# add the work database schema this requires read/write privileges
cohortDatabaseSchema <- 'your work database schema'
# if using oracle please set the location of your temp schema
oracleTempSchema <- NULL
# the name of the table that will be created in cohortDatabaseSchema to hold the cohorts
cohortTable <- 'MddAfterBbValidationCohortTable'
# the location to save the prediction models results to:
# NOTE: if you set the outputFolder to the 'Validation' directory in the
# prediction study outputFolder then the external validation will be
# saved in a format that can be used by the shiny app
outputFolder <- '../Validation'
# add connection details:
options(fftempdir = 'T:/fftemp')
dbms <- "pdw"
user <- NULL
pw <- NULL
server <- Sys.getenv('server')
port <- Sys.getenv('port')
connectionDetails <- DatabaseConnector::createConnectionDetails(dbms = dbms,
server = server,
user = user,
password = pw,
port = port)
# Now run the study:
MddAfterBbValidation::execute(connectionDetails = connectionDetails,
databaseName = databaseName,
cdmDatabaseSchema = cdmDatabaseSchema,
cohortDatabaseSchema = cohortDatabaseSchema,
oracleTempSchema = oracleTempSchema,
cohortTable = cohortTable,
outputFolder = outputFolder,
createCohorts = T,
runValidation = T,
packageResults = F,
minCellCount = 5,
sampleSize = NULL)
# If the validation study runs to completion and returns results, package it up ready to share with the study owner (but remove counts less than 10) by running:
MddAfterBbValidation::execute(connectionDetails = connectionDetails,
databaseName = databaseName,
cdmDatabaseSchema = cdmDatabaseSchema,
cohortDatabaseSchema = cohortDatabaseSchema,
oracleTempSchema = oracleTempSchema,
cohortTable = cohortTable,
outputFolder = outputFolder,
createCohorts = F,
runValidation = F,
packageResults = T,
minCellCount = 10,
sampleSize = NULL)
# If your target cohort is large use the sampleSize setting to sample from the cohort:
MddAfterBbValidation::execute(connectionDetails = connectionDetails,
databaseName = databaseName,
cdmDatabaseSchema = cdmDatabaseSchema,
cohortDatabaseSchema = cohortDatabaseSchema,
oracleTempSchema = oracleTempSchema,
cohortTable = cohortTable,
outputFolder = outputFolder,
createCohorts = T,
runValidation = T,
packageResults = F,
minCellCount = 10,
sampleSize = 1000000)
MddAfterBbValidation is licensed under Apache License 2.0
MddAfterBbValidation is being developed in R Studio.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.