# NOT RUN {
ExampleData <- cbind(rep(c(0,1),100),
rep(c(0,0,0,0,0,1,1,1,1,1),20),
c(
rep(c(0,0,0,1,1),20),
rep(c(0,1,1,1,1),20)
),
ifelse(rnorm(200,0,1)<0.95,1,0),
c(
ifelse(rnorm(100,0,1)<0.7,1,0),
ifelse(rnorm(100,0,1)<0.7,0,1)
),
ifelse(rnorm(200,0,1)<(-0.98),1,0))
colnames(ExampleData) <- c('Var 1','Var 2','Var 3',
'Var 4','Var 5','Var 6')
conData(ExampleData)
data(SymptomData)
Sdata <- conData(SymptomData)
Sdata$probs
# }
Run the code above in your browser using DataLab