hw1

setwd("/Users/mariiaturchina/mathstat_data")
data <- scan("Orings.txt", what = "numeric")
class(data) <- "numeric"
summary(data)
# 1a - have the summary stuff

boxplot(data)
# 1b - make a boxplot

new_data <- data[data != min(data)]
summary(new_data)
# 1c - summary without the smallest

qqnorm(new_data)
qqline(new_data)
# 1d - plot the normal qq

c_data <- (new_data - 32)
c_data <- (c_data * (5/9))
summary(c_data)
# 1e - get summary of C