# R-program for Supplementary Exercises 1.51 and 1.77 of IPS7e

surv <- read.csv("h:/vhm/vhm801/Datasets/csv/Chapter 1/ex01_051.csv")
summary(surv)
mean(surv[["days"]])
sd(surv[["days"]])
stem(surv[["days"]])
hist(surv[["days"]])
boxplot(surv)
# note: because several functions above needed a vector argument instead of a data frame,
# it would have been easier to extract the days as a vector on its own, and use that instead, e.g.
days <- surv[["days"]]
mean(days)