Inference for Numerical Data

Click here to open the slides.

Here is the R script from class.

library(tidyverse)
library(reshape2)
data(hsb2)

head(hsb2)

my_hsb2 <- hsb2 %>% select(id, read, write, math, science, socst)
head(my_hsb2)
nrow(my_hsb2)

my_hsb2_melt <- melt(my_hsb2, id.vars = 'id')
head(my_hsb2_melt)
nrow(my_hsb2_melt)

ggplot(my_hsb2_melt, aes(x = variable, y = value)) + geom_boxplot()

x <- seq(-1, 1, by = 0.01)
x

plot(x, dt(x, df = 10), type = 'l')