Nothing
# matrix of all likert patterns
Lpatternmat<-function(datrng,nobj)
{
Lpatt<-all_patterns(datrng[1],datrng[2],nobj) # for ordinal models only
diffs<- diffsred(Lpatt,nobj)
diffs<-unique(diffs)
diffs
}
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.