Nothing
## ----setup, include = FALSE, warning = FALSE--------------------------------------------
library(knitr)
options(width = 90, tidy = TRUE, warning = FALSE, message = FALSE)
opts_chunk$set(comment = "", warning = FALSE, message = FALSE,
echo = TRUE, tidy = TRUE)
## ----load-------------------------------------------------------------------------------
library(lsasim)
## ----packageVersion---------------------------------------------------------------------
packageVersion("lsasim")
## ---------------------------------------------------------------------------------------
set.seed(1234)
bg <- questionnaire_gen(n_obs = 1000, n_X = 2, n_W = list(2, 3), theta = TRUE,
family = "gaussian", full_output = TRUE)
## ---------------------------------------------------------------------------------------
str(bg$bg)
## ---------------------------------------------------------------------------------------
bg$linear_regression
## ---------------------------------------------------------------------------------------
beta_gen(bg)
## ---------------------------------------------------------------------------------------
beta_gen(bg, MC = TRUE, MC_replications = 100, rename_to_q = TRUE)
## ---------------------------------------------------------------------------------------
beta_gen(bg, MC = TRUE, MC_replications = 100, rename_to_q = TRUE)
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.