Showing content from http://cran.rstudio.com/web/packages/rlang/../CohortConstructor/vignettes/a07_filter_cohorts.R below:
## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----setup-------------------------------------------------------------------- library(CohortConstructor) library(CohortCharacteristics) library(ggplot2) ## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, eval = TRUE, message = FALSE, warning = FALSE, comment = "#>" ) library(CDMConnector) library(dplyr, warn.conflicts = FALSE) if (Sys.getenv("EUNOMIA_DATA_FOLDER") == ""){ Sys.setenv("EUNOMIA_DATA_FOLDER" = file.path(tempdir(), "eunomia"))} if (!dir.exists(Sys.getenv("EUNOMIA_DATA_FOLDER"))){ dir.create(Sys.getenv("EUNOMIA_DATA_FOLDER")) downloadEunomiaData() } ## ----------------------------------------------------------------------------- con <- DBI::dbConnect(duckdb::duckdb(), dbdir = eunomiaDir()) cdm <- CDMConnector::cdmFromCon(con, cdmSchema = "main", writeSchema = "main", writePrefix = "my_study_") ## ----------------------------------------------------------------------------- cdm$medications <- conceptCohort(cdm = cdm, conceptSet = list("diclofenac" = 1124300, "acetaminophen" = 1127433), name = "medications") cohortCount(cdm$medications) ## ----------------------------------------------------------------------------- cdm$medications |> sampleCohorts(cohortId = NULL, n = 100) cohortCount(cdm$medications) ## ----include = FALSE, warning = FALSE----------------------------------------- con <- DBI::dbConnect(duckdb::duckdb(), dbdir = eunomiaDir()) cdm <- cdmFromCon(con, cdmSchema = "main", writeSchema = c(prefix = "my_study_", schema = "main")) cdm$medications <- conceptCohort(cdm = cdm, conceptSet = list("diclofenac" = 1124300, "acetaminophen" = 1127433), name = "medications") ## ----------------------------------------------------------------------------- cdm$medications <- cdm$medications |> sampleCohorts(cohortId = 2, n = 100) cohortCount(cdm$medications) ## ----include = FALSE, warning = FALSE----------------------------------------- con <- DBI::dbConnect(duckdb::duckdb(), dbdir = eunomiaDir()) cdm <- cdmFromCon(con, cdmSchema = "main", writeSchema = c(prefix = "my_study_", schema = "main")) cdm$medications <- conceptCohort(cdm = cdm, conceptSet = list("diclofenac" = 1124300, "acetaminophen" = 1127433), name = "medications") ## ----------------------------------------------------------------------------- cdm$medications <- cdm$medications |> subsetCohorts(cohortId = 2) cohortCount(cdm$medications) ## ----------------------------------------------------------------------------- cdm$medications <- cdm$medications |> sampleCohorts(cohortId = 2, n = 100) cohortCount(cdm$medications)
RetroSearch is an open source project built by @garambo
| Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4