Nothing
library(rms) library(base.rms) library(survival)
fit <- lm(mpg~cyl+vs,data=mtcars) lm2ols(fit)
fit <- ols(mpg~cyl+vs,data=mtcars) ols2lm(fit)
fit <- glm(vs~mpg,data=mtcars,family = binomial(link='logit')) logit2lrm(fit)
fit <- lrm(vs~mpg,data=mtcars) lrm2logit(fit)
fit <- coxph(Surv(mpg,vs)~am+gear,data=mtcars) coxph2cph(fit)
fit <- cph(Surv(mpg,vs)~am+gear,data=mtcars) cph2coxph(fit)
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.