# NOT RUN {
## This data set was 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