# NOT RUN {
dataset <- read.csv2(system.file("extdata",
"nhdsSubset.csv",
package="EHRtemporalVariability"),
sep = ",",
header = TRUE,
na.strings = "",
colClasses = c( "character", "numeric", "factor",
"numeric" , rep( "factor", 22 ) ) )
datasetPheWAS <- icd9toPheWAS( data = dataset,
icd9ColumnName = "diagcode1",
missingValues = "N/A",
statistics = TRUE
)
# }
Run the code above in your browser using DataCamp Workspace