Nothing
## ----setup, echo=FALSE--------------------------------------------------------
library(knitr)
opts_chunk$set(warning = FALSE, message = FALSE)
## ----lmfit--------------------------------------------------------------------
lmfit <- lm(mpg ~ wt, mtcars)
lmfit
summary(lmfit)
## -----------------------------------------------------------------------------
library(broom)
tidy(lmfit)
## -----------------------------------------------------------------------------
augment(lmfit)
## -----------------------------------------------------------------------------
glance(lmfit)
## ----glmfit-------------------------------------------------------------------
glmfit <- glm(am ~ wt, mtcars, family = "binomial")
tidy(glmfit)
augment(glmfit)
glance(glmfit)
## -----------------------------------------------------------------------------
nlsfit <- nls(mpg ~ k / wt + b, mtcars, start = list(k = 1, b = 0))
tidy(nlsfit)
augment(nlsfit, mtcars)
glance(nlsfit)
## ----ttest--------------------------------------------------------------------
tt <- t.test(wt ~ am, mtcars)
tidy(tt)
## -----------------------------------------------------------------------------
wt <- wilcox.test(wt ~ am, mtcars)
tidy(wt)
## -----------------------------------------------------------------------------
glance(tt)
glance(wt)
## -----------------------------------------------------------------------------
chit <- chisq.test(xtabs(Freq ~ Sex + Class,
data = as.data.frame(Titanic)
))
tidy(chit)
augment(chit)
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.