data(affluence)
affluence$weight <- rep(1, nrow(affluence))
aff.sub <- subset(affluence, education == 2)
x <- aff.sub$income
boot.sd2.sub(x, affluence$income, aff.sub$weight, affluence$weight, 2, 2, 10, "r.cha", 0.95)
boot.sd2.sub(x, affluence$income, aff.sub$weight, affluence$weight, 2, 2, 10, "r.fgt", 0.95)
Run the code above in your browser using DataLab