if (FALSE) {
## The dataset was (essentially) generated using the following code:
datasize <- 300
tmp <- c(rep("y", as.integer(datasize/2)), rep("n", as.integer(datasize/2)))
set.seed(1)
ex0.dag.data <- data.frame(b1=sample(tmp, size=datasize, replace=TRUE),
b2=sample(tmp, size=datasize, replace=TRUE),
b3=sample(tmp, size=datasize, replace=TRUE),
b4=sample(tmp, size=datasize, replace=TRUE),
b5=sample(tmp, size=datasize, replace=TRUE),
b6=sample(tmp, size=datasize, replace=TRUE),
b7=sample(tmp, size=datasize, replace=TRUE),
b8=sample(tmp, size=datasize, replace=TRUE),
b9=sample(tmp, size=datasize, replace=TRUE),
b10=sample(tmp, size=datasize, replace=TRUE),
g1=rnorm(datasize, mean=0,sd=1),
g2=rnorm(datasize, mean=0,sd=1),
g3=rnorm(datasize, mean=0,sd=1),
g4=rnorm(datasize, mean=0,sd=1),
g5=rnorm(datasize, mean=0,sd=1),
g6=rnorm(datasize, mean=0,sd=1),
g7=rnorm(datasize, mean=0,sd=1),
g8=rnorm(datasize, mean=0,sd=1),
g9=rnorm(datasize, mean=0,sd=1),
g10=rnorm(datasize, mean=0,sd=1),
p1=rpois(datasize, lambda=10),
p2=rpois(datasize, lambda=10),
p3=rpois(datasize, lambda=10),
p4=rpois(datasize, lambda=10),
p5=rpois(datasize, lambda=10),
p6=rpois(datasize, lambda=10),
p7=rpois(datasize, lambda=10),
p8=rpois(datasize, lambda=10),
p9=rpois(datasize, lambda=10),
p10=rpois(datasize, lambda=10))
}
Run the code above in your browser using DataLab