4962384834

Wprowadzenie Estymatory bezpośrednie Estymatory pośrednie

BARE.SI=function(N, n, nd, y){

"CVE")

Total <- matrix(NA, nrow = 3, ncol = 1) rownames(Total) = c("Estimation", "Variance", colnames(Total) = "y" ht=E.SI(N, n, y)

BARE=(ht[1,1]/N)*nd var= ( (nd/N) ~2) *ht [2,1]

Cve=100*sqrt(var)/BARĘ Total[,l]=c(BARĘ, var, Cve) return(Total)

Łukasz Wawrowski l.wawrowskiOstat.f