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