wqs.est(y.train, x.train, z.train = NULL, y.valid = y.train, x.valid = x.train,
z.valid = z.train, n.quantiles = 4, B = 100, b1.pos = TRUE)Czarnota J, Gennings C, Colt JS, De Roos AJ, Cerhan JR, Severson RK, Hartge P, Ward MH, Wheeler D. 2015. Analysis of environmental chemical mixtures and non-Hodgkin lymphoma risk in the NCI-SEER NHL study. Environmental Health Perspectives, DOI:10.1289/ehp.1408630.
Czarnota J, Gennings C, Wheeler D. 2015. Assessment of weighted quantile sum regression for modeling chemical mixtures and cancer risk. Cancer Informatics, 2015:14(S2) 159-171 DOI: 10.4137/CIN.S17295
data(WQSdata)
y.train <- WQSdata[,'y']
x.train <- WQSdata[,-10]
output <- wqs.est(y.train, x.train, B = 10)
Run the code above in your browser using DataLab