EYapprox | R Documentation |
Approximates the conditional expectations of individual disease statuses with Gibbs sampling.
EYapprox(Z, Y, X, b, Se, Sp, GI = 5000)
Z |
Group testing output from one of the functions |
Y |
Group testing output from one of the functions |
X |
Design matrix with first column a column of 1s. |
b |
Parameter values at which to compute the conditional expectations. |
Se |
A vector of testing sensitivities of length |
Sp |
A vector of testing specificities of length |
GI |
The length of the Gibbs sampling Markov chain. |
The vector of conditional expectations.
This function uses a Gibbs sampler to appriximate the conditional expectation of
each individual's disease status, conditional on the observed assay data and the disease
statuses of all other individuals. This function is used in the EM algorithm
performed by the functions mlegt
, enetgt
, enetgt.grid
, and
enetgt.grid.0
under array testing.
# generate individual covariate values and disease statuses N <- 100 data <- model1(N) X <- data$X Y.true <- data$Yi Se <- c(.95,.92) # set master pool and individual assay sensitivity Sp <- c(.97,.98) # set master pool and individual assay specificity cj <- 4 # set size of master pools # subject individuals to array testing assay.data <- array.assay.gen(Y.true,Se,Sp,cj) Z <- assay.data$Z Y <- assay.data$Y b <- data$b EY <- EYapprox(Z,Y,X,b,Se,Sp,GI=5000)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.