data(eusilc)
eusilc <- eusilc[, c("region", "gender", "eqIncome")]
## returns data.frame
simApply(eusilc, c("region", "gender"),
function(x) median(x$eqIncome))
## returns vector
simSapply(eusilc, c("region", "gender"),
function(x) median(x$eqIncome))
Run the code above in your browser using DataLab