# list of independent samples
x_vectors <- list(
rnorm(1000, mean = 1, sd = 2),
rnorm(10, mean = 4, sd = 0.5),
rnorm(1000000, mean = 0, sd = 1)
)
var_mean_indep(x_vectors)
# sample proportions
pi_hat <- c(0.1, 0.6, 0.3)
nobs <- 1000
var_prop_indep(pi_hat, nobs)
# covariance of educ and age in cps dataset
var_mean_onesample(cps, c("educ", "age"))
Run the code above in your browser using DataLab