inst/doc/smovie-vignette.R

In smovie: Some Movies to Illustrate Concepts in Statistics

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(comment = "#>", collapse = TRUE)

## -----------------------------------------------------------------------------
library(smovie)

## ---- eval = FALSE------------------------------------------------------------
#  movies()

## ---- eval = FALSE------------------------------------------------------------
#  discrete(distn = "binomial")

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("binom.PNG")

## ---- eval = FALSE------------------------------------------------------------
#  continuous(distn = "gamma")

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("gamma.PNG")

## ---- eval = FALSE------------------------------------------------------------
#  clt(distn = "exponential")

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("clt_exp.PNG")

## ---- eval = FALSE------------------------------------------------------------
#  clt(distn = "poisson")

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("clt_poisson.PNG")

## ---- eval = FALSE------------------------------------------------------------
#  cltq(distn = "gamma")

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("cltq_gamma.PNG")

## ---- eval = FALSE------------------------------------------------------------
#  ett(distn = "exponential")

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("ett.PNG")

## ---- eval = FALSE------------------------------------------------------------
#  mean_vs_median()

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("mean_vs_median_normal.PNG")

## ---- eval = FALSE------------------------------------------------------------
#  mean_vs_median(t_df = 2)

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("mean_vs_median_t2.PNG")

## ---- eval = FALSE------------------------------------------------------------
#  correlation(rho = 0.8, n = 30)

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("correlation1.PNG")

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("correlation2.PNG")

## ---- eval = FALSE------------------------------------------------------------
#  lev_inf()

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("lev_inf_1.PNG")

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("lev_inf_2.PNG")

## ---- eval = FALSE------------------------------------------------------------
#  wws(theta0 = 0.5, model = "binom", data = c(7, 13))

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("wws.PNG")

## ---- eval = FALSE------------------------------------------------------------
#  # 1. Change a (for fixed n) to achieve alpha <= 0.05
#  # 2. Change a and n to achieve alpha <= 0.05 and beta <= 0.1
#  shypo(mu0 = 0, eff = 5, n = 16, a = 2.3, delta_a = 0.01)

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("shypo1.PNG")

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("shypo2.PNG")

## ---- echo = FALSE, fig.align = 'center', out.width = "600px"-----------------
knitr::include_graphics("shypo3.PNG")