## ----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 = "~")