Histogram for Age
options(warn=-1)
age <- c(11, 10, 22, 50, 52, 50, 22, 28, 30,
31, 30, 29, 40, 40, 41, 36, 39, 54, 55, 64)
min <- min(age)
max <- max(age)
range <- max - min
classes <- 5
class_size <- trunc(range/classes) + 1
class_size
## [1] 11
hist(age,
main = "Ages of Chronic Migraine Patients",
xlab = "Age in Years",
xlim = c(10,70),
col = "purple",
freq = TRUE,
breaks = c(10, 20, 31, 42, 53, 64))
Histogram for Casualties
options(warn=-1)
casualties <- c(7, 12, 15, 15, 16, 16, 23, 23, 23, 24, 26,
26, 29, 30, 30, 31, 31, 32, 40, 40)
min <- min(casualties)
max <- max(casualties)
range <- max - min
classes <- 7
class_size <- trunc(range/classes) + 1
class_size
## [1] 5
hist(casualties,
main = "Number of casualties per week in a certain city",
xlab = "Number of casualities per Week",
xlim = c(7,42),
col = "grey",
freq = TRUE,
breaks = c(7, 11, 16, 21, 26, 31, 36, 41))
