Programy R

### LOSOWANIE PROSTE ZE ZWRACANIEM
### SZACOWANIE ŚREDNIEJ W POPULACJI

lpzz_sr<-function(ys) { # _sr - szacowanie ŚREDNIEJ w populacji; ys - ciag wartosci y z proby
# obliczenia cząstkowe:
n<-length(ys)

#wyniki:
est<-mean(ys) #wartość estymatora
eD2<-var(ys)/n #wartość estymatora wariancji
eD<-sqrt(eD2) #wartość estymatora średniego błędu szacunku
egam<-100*eD/est #wartość estymatora średniego względnego błędu szacunku
wynik<-matrix(c(est,eD2,eD,egam),ncol=1)
#wynik<-formatC(wynik,format="f")
nazwa<-list(c("estymator","estymator wariancji","estymator średniego błędu szacunku","estymator średniego względnego błędu szacunku (w %)"),c("wartość"))
dimnames(wynik)<-nazwa
wynik
}