# fit latent class model to hivtest data
hivtest$L <- latentFactor( NROW(hivtest), 2 )
set.seed(125)
fit <- cvam( ~ L*A + L*B + L*C + L*D, data=hivtest, freq=COUNT,
control=list(startValJitter=.1) )
cvamEstimate( list( ~L, ~A|L, ~B|L, ~C|L, ~D|L ), fit )
Run the code above in your browser using DataLab