Nothing
model.matrix.repolr <-
function(object, ...){
exdata <- ord.expand(space = object$poly.mod$space, formula = object$orig.formula,
times = object$times, poly = object$poly.mod$poly, data = eval(object$data),
subjects = object$subjects, categories = object$categories)
mm <- model.matrix.default(exdata$formula, data = exdata$data)
mm
}
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.