Menu główne:
### LOSOWANIE GRUPOWE - ESTYMACJA ŚREDNIEJ
#dane<-read.delim("clipboard",header=FALSE)
l.grupowe<-function(dane,G) {
# dane - dane z próby o M wierszach i g kolumnach
M<-nrow(dane)
g<-ncol(dane)
zp_ciag<-colSums(dane)
vgs<-var(zp_ciag)
est<-sum(zp_ciag)/(g*M)
eD2<-(G-g)*vgs/(G*g*M^2)
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)
########### poniższe 3 linie formatujące wynik końcowy mogą być pominięte na kolokwium
#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
}