Nothing
model2index <-
function (model,dig) { ## need to tell it number of columns in maximal design matrix
res<-t(sapply(X=model,FUN=hex2bin)) ## uses hex2bin function from BMS
s<-dim(res)[2]
res[,(s-dig+1):s]}
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.