timcdlucas

#'---
#'output:
#'  pdf_document:
#'    number_sections: true
#'    toc: true
#'    toc_depth: 2
#'    keep_tex: true
#'title: "test"
#'author: Tim Lucas

timcdlucas

head(mtcars)

a <- 0.1
ggplot(mtcars, aes(mpg, disp)) + 
  geom_smooth(method = 'lm', level = 0.99, alpha = a) +
  geom_smooth(method = 'lm', level = 0.97, alpha = a) +
  geom_smooth(method = 'lm', level = 0.94, alpha = a) +
  geom_smooth(method = 'lm', level = 0.92, alpha = a) +

timcdlucas

library(forcats)
library(ggplot2)

ggplot(mtcars, aes(x = disp, y = mpg)) + 
  geom_point() + 
  facet_wrap(~ factor(gear))

ggplot(mtcars, aes(x = disp, y = mpg)) + 
  geom_point() + 

timcdlucas

# devtools::install_github("thomasp85/patchwork")

library(patchwork)
library(paletteer)
library(ggplot2)

ggplot(mtcars, aes(mpg, disp, colour = factor(cyl))) + 
  geom_point() + 
  scale_colour_paletteer_d('palettetown', 'spearow') +
  ggtitle('Spearow loves mtcars') +

timcdlucas

# pca

d <- data.frame(x = runif(100))
d$y <- d$x + runif(100, -0.01, 0.01)



plot(y ~ x, data = d)

timcdlucas

#'---
#'output:
#'  pdf_document:
#'    number_sections: true
#'    toc: true
#'    toc_depth: 2
#'title: "RandomForest with distance to points"
#'author: Tim Lucas
#'fontsize: 8pt

timcdlucas

library(dplyr)

# If we don't have 'TOYOTA PRADO' in the set?

test <- c('ROVER', 'CRUISER', 'TOYOTA', 'TOYOTA PRADO', 'NISSAN')

old <- c('ROVER', 'CRUISER', 'TOYOTA')
new <- c('LandRover', 'LandRover', 'Toyota')

timcdlucas

library(ggplot2)

set.seed(1001)
start <- 2
end <- 20
N <- 100

x <- runif(N, start, end)

timcdlucas

library(caret)
library(dplyr)

data(diamonds)


train_i <- sample(c(FALSE, TRUE), nrow(diamonds), replace = TRUE, prob = c(0.2, 0.8))

timcdlucas

# Make data with biased train2 set
d <- data.frame(x = runif(300, 0, 5))
d$y <- d$x + rnorm(300)
d$g <- c('train1', 'train2', 'test')
d$y[d$g == 'train2'] <- d$y[d$g == 'train2'] + 5

plot(d$x, d$y, col = factor(d$g))