The histogram is too short so I cannot see anything, is there something I can do to make the whole plot taller?
par(mfrow = c(4, 1))
nclassrooms <- 275
nstudents <- 28
for (iterations in c(500)) {
percentages <- numeric(iterations)
for(i in 1:iterations) {
days <- seq(365)
repeated <- numeric(nclassrooms)
for(j in 1:nclassrooms) {
birthdays <- sample(days, 28, replace = TRUE)
if(any(duplicated(birthdays)))
repeated[j] <- 1
}
percentages[i] <- sum(repeated)/nclassrooms*100
}
hist(percentages, main = paste("Histogram"), breaks = seq(from=50, to=80, by = 2.5), xlab = "Percentages")
}