data-raw/prepare_data_nhanes.R

In chiragjp/xwas: X-Wide Association Analyses

## Chirag Patel
## prepare a test dataset in .Rdata form
##
load('./bigTable_quant_pheno_chron_telo_mort.Rdata')
mainTab <- subset(mainTab, SDDSRVYR == 3)
varDesc <- subset(varDesc, series == '2003-2004')

cols <- c(varDesc$var, as.character(demographicVariables$var))
sum(colnames(mainTab) %in% cols)
mainTab <- mainTab[, cols]
save(mainTab, varDesc, demographicVariables, file='./sample_data.Rdata')