Nothing
# gfac version first index fastest
gfac2<-function(covlevels){
nrows<-1
ncov<-length(covlevels)
levmult <- cumprod(covlevels)
totlev<-levmult[ncov]
levmult<-c(1,levmult[-ncov])
# generate covariates
cov<-NULL
for (j in 1:ncov) {
scov<-gl(covlevels[j],levmult[j],totlev*nrows)
cov<-cbind(cov,scov)
}
cov
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.