## ----eval=FALSE---------------------------------------------------------------
# install.packages("learnrbook")
## -----------------------------------------------------------------------------
library(learnrbook)
## ----eval=FALSE---------------------------------------------------------------
# install.packages(learnrbook::pkgs_all_2ed)
## ----eval=FALSE---------------------------------------------------------------
# install.packages(learnrbook::pkgs_all_1ed)
## ----eval=FALSE---------------------------------------------------------------
# install.packages(learnrbook::pkgs_ch9_2ed)
## ----eval=FALSE---------------------------------------------------------------
# intalled_pkgs <- installed.packages()[ , 1]
# missing_pkgs <- setdiff(learnrbook::pkgs_all_2ed, intalled_pkgs)
# if (length(missing_pkgs) > 0) {
# install.packages(missing_pkgs)
# }
## ----eval=FALSE---------------------------------------------------------------
# help(package = "learnrbook")
## ----eval=FALSE---------------------------------------------------------------
# data(package = "learnrbook")
## -----------------------------------------------------------------------------
head(viikki_d29.dat)
## ----eval=FALSE---------------------------------------------------------------
# system.file("extdata", package = "learnrbook")
## -----------------------------------------------------------------------------
path2examples <- system.file("extdata", package = "learnrbook")
list.files(path2examples)
## ----purl-output, eval=FALSE--------------------------------------------------
# zip.file <- system.file("example-chunks/purl-output-2ed.zip", package = "learnrbook")
# unzip(zip.file, exdir = "~")
## ----zip-copy, eval=FALSE-----------------------------------------------------
# file.copy(from = zip.file, to = "~")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.