Nothing
## ----warning=FALSE,message=FALSE----------------------------------------------
library(rms)
library(base.rms)
library(survival)
## ----warning=FALSE------------------------------------------------------------
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.