set.seed(1)
n<-500
k<-2
treat<-sample(c("a","b","c"),n,replace=TRUE,pr=c(.5,.25,.25))
Sigma<-matrix(c(1,.5,.5,1),nr=2)
X<-mvrnorm(n,m=c(0,0),S=Sigma)
y.true<-3+X[,2]*2+(treat=="a")*2 +(treat=="b")*(-2)+X[,2]*(treat=="b")*(-2)+
X[,2]*(treat=="c")*2
y<-y.true+rnorm(n)
##Fit a linear model.
s1<-sparsereg(y,X,treat,scale.type="TX")
##Extension using a baseline category
s1.base<-sparsereg(y,X,treat,scale.type="TX",baseline.vec="a")
ests.base<-apply(s1.base$beta.mode,1,median)
##Extension using a probit
s1.probit<-sparsereg((y>5),X,treat,scale.type="TX",type="probit")
ests.probit<-apply(s1.probit$beta.mode,1,median)
Run the code above in your browser using DataLab