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. data(city) 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