philipp-baumann

# Pull docker image (includes RStudio server)
FROM rocker/rstudio:3.6.0

RUN apt-get update \
  && apt-get install -y --no-install-recommends \
  libz-dev \
  libxml2-dev

ENV RENV_VERSION 0.7.0-111
RUN R -e "install.packages('remotes', repos = c(CRAN = 'https://cloud.r-project.org'))"

philipp-baumann

pkgs <- c("mlbench", "Cubist")
lapply(pkgs, library, character.only = TRUE)
# Example data set
data(BostonHousing)

# Test with only 2 factorial predictors
boston_housing <- BostonHousing[, c("crim", "zn", "medv")]
# Convert numeric `crim` and `zn` to factors
boston_housing$zn <- as.factor(boston_housing$zn)
boston_housing$crim <- as.factor(boston_housing$crim)

philipp-baumann

################################################################################
## Task: Select reference samples for soil refence analyses by using
##   Kennard-Stones
##   sampling algorithm on preprocessed spectra in PCA space
################################################################################

# Load packages
library("tidyverse")
library("simplerspec")

philipp-baumann

################################################################################
## Task: Example script to predict spectra in simplerspec framework
################################################################################

# Remove all R objects from memory
rm(list = ls())

# Load packages
pkgs <- c("tidyverse", "simplerspec")
lapply(pkgs, library, character.only = TRUE)

philipp-baumann

################################################################################
## Task: Example script to visualize spectra in simplerspec framework
################################################################################

# Remove all R objects from memory
rm(list = ls())

# Load packages
pkgs <- c("tidyverse", "simplerspec")
lapply(pkgs, library, character.only = TRUE)