Nothing
## ----setup--------------------------------------------------------------------
knitr::opts_chunk$set(echo=FALSE)
## ----loadDAAG-----------------------------------------------------------------
suppressMessages(library(DAAG, quietly=TRUE, warn.conflicts=FALSE))
## ----bestset, eval=FALSE, echo=TRUE-------------------------------------------
# bestsetNoise(m=100, n=40, nvmax=3)
# bestsetNoise(m=100, n=40, method="backward", nvmax=3)
## ----cap1, echo=F-------------------------------------------------------------
cap1 <- "$p$-values from the R function `lm()`, versus number of
variables available for selection."
## ----exhaust, eval=TRUE, echo=FALSE-------------------------------------------
## Code
suppressPackageStartupMessages(library(qgam, quietly=TRUE))
set.seed(37) # Use to reproduce graph that is shown
bsnVaryNvar(m=100, nvar=3:50, nvmax=3)
## ----exhaust, eval=FALSE, echo=TRUE-------------------------------------------
# ## Code
# suppressPackageStartupMessages(library(qgam, quietly=TRUE))
# set.seed(37) # Use to reproduce graph that is shown
# bsnVaryNvar(m=100, nvar=3:50, nvmax=3)
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.