data("weight_behavior")
#binary x
#binary y
x=weight_behavior[,2:14]
y=weight_behavior[,15]
data.b.b<-data.org(x,y,pred=2,contmed=c(8:10,12:13),binmed=c(7,11),
binref=c(1,1),catmed=6,catref=1,predref="M",alpha=0.4,alpha2=0.4)
#continuous y
x=weight_behavior[,2:14]
y=weight_behavior[,1]
data.b.c<-data.org(x,y,pred=2,contmed=c(8:10,12:13),binmed=c(7,11),
binref=c(1,1),catmed=6,catref=1,biny=FALSE,
family1=gaussian(link="identity"),predref="M",alpha=0.4,alpha2=0.4)
#continuous x
#binary y
x=weight_behavior[,2:14]
y=weight_behavior[,15]
data.c.b<-data.org(x,y,pred=1,contmed=c(8:10,12:13),binmed=c(7,11),
binref=c(1,1),catmed=6,catref=1,binpred=FALSE,alpha=0.4,alpha2=0.4)
#continuous y
x=weight_behavior[,2:14]
y=weight_behavior[,1]
data.c.c<-data.org(x,y,pred=1,contmed=c(8:10,12:13),binmed=c(7,11),
binref=c(1,1),catmed=6,catref=1,binpred=FALSE,
family1=gaussian(link="identity"),alpha=0.4,alpha2=0.4)
Run the code above in your browser using DataLab