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, fig.width=5, fig.height=3.75, echo=FALSE, message=FALSE, out.width="60%", fig.cap=cap1----
## Code
suppressMessages(library(quantreg, quietly=TRUE))
library(splines, 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
# suppressMessages(library(quantreg, quietly=TRUE))
# library(splines, 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.