Nothing
setMethodS3("backtransformMultiDimensionalCone", "matrix", function(y, fit, ...) {
# x <- t(t(fit$Winv) %*% (t(y) - fit$origin))
x <- t(t(y) - fit$origin) %*% fit$Winv
attr(x, "fit") <- fit
x
})
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.