Skip to content

Instantly share code, notes, and snippets.

View t-redactyl's full-sized avatar

Jodie Burchell t-redactyl

110 followers · 5 following
  • JetBrains
  • Berlin, Germany
View GitHub Profile
@t-redactyl
t-redactyl / comparing_small_and_larger_samples.R
Last active September 27, 2017 05:32
Code associated with blog post: http://t-redactyl.github.io/blog/2015/09/representative-sampling.html
set.seed(567)
# Sample of 30 (29 from the Poisson distribution and an outlier of 260)
sample1 <- c(rpois(29, lambda = 220), 260)
# Sample of 10 (9 from the Poisson distribution and an outlier of 260)
sample2 <- c(rpois(9, lambda = 220), 260)
@t-redactyl
t-redactyl / bootstrap_plot_1.R
Last active September 27, 2017 05:38
Code associated with blog post: http://t-redactyl.github.io/blog/2015/09/a-gentle-introduction-to-bootstrapping.html
require(ggplot2); require(gridExtra)
# Set the colours for the graphs
barfill <- "#4271AE"
barlines <- "#1F3552"
line1 <- "black"
line2 <- "#FF3721"
# Plotting histogram of sample of daily page views
g1 <- ggplot(data=as.data.frame(sample), aes(sample)) +
@t-redactyl
t-redactyl / calculating_sem_formula.R
Last active September 27, 2017 05:34
Code associated with blog post: http://t-redactyl.github.io/blog/2015/09/A-Gentle-Introduction-to-the-Standard-Error-of-the-Mean.html
# Defining lambda and n
lambda <- 220
n <- 30
# Calculating SEM
sem <- sqrt(lambda / n)