library(gapminder)​
library(gapminder)
q()
hist(simulate_means(n), main = paste("n =", n))}
library(dplyr)
q()
library(dplyr)
install.packages("dplyr")
library(gapminder)​
install.packages("gapminder")
library(gapminder)​
install.packages("gapminder")
install.packages("dplyr")
library(gapminder)​
library(gapminder)​
for (n in sample_sizes) {
hist(
simulate_means(n),
main = paste("n =", n),
xlab = "Sample Mean"
)
}
q()
# Reset plotting layout
par(mfrow = c(1, 1))
cat("Population SD:", sd(life_data), "\n")
# End of Script
##################################################
q()
##################################################
# End of Script
##################################################
source("~/.active-rstudio-document")
source("~/.active-rstudio-document")
hist(
simulated_values,
main = paste("Sample Mean Distribution n =", n),
xlab = "Sample Mean",
col = "lightblue"
)
for (n in sample_sizes) {
simulated_values <- simulate_means(n)
hist(
simulated_values,
main = paste("Sample Mean Distribution n =", n),
xlab = "Sample Mean",
col = "lightblue"
)
}
# Reset plotting window
par(mfrow = c(1, 1))
results <- data.frame(
Sample_Size = sample_sizes,
Mean = sapply(sample_sizes, function(n) mean(simulate_means(n))),
SD = sapply(sample_sizes, function(n) sd(simulate_means(n)))
)
print(results)
##################################################
##################################################
# End of Script
source("~/.active-rstudio-document")
q()
