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. 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