# three vectors of normally distributed observations
set.seed(1234)
Xk <- list(rnorm(10, 5, 1), # mean = 5, sd = 1,
rnorm(20, 10, 2), # mean = 10, sd = 2,
rnorm(20, 15, 5)) # mean = 15, sd = 3
se_param(Xk, dif = "simple", comparisons = "all.vs.all")
se_param(Xk, dif = "perc", comparisons = "all.vs.first")
se_param(Xk, dif = "perc", comparisons = "all.vs.all")
Run the code above in your browser using DataLab