powered by
k3.linear(L, strata = NULL)
empinf
L
linear.approx
var.linear
# To estimate the skewness of the ratio of means for the city data. ratio <- function(d, w) sum(d$x * w)/sum(d$u * w) k3.linear(empinf(data = city, statistic = ratio))
Run the code above in your browser using DataLab