#### 24 listopad 2010 ### ##################################################################### # dla danych z plikusluby wyliczyc wariancje itp. many.means<-function(...){ data=list(...) n=length(data) means=numeric(n) vars=numeric(n) for(i in 1:n){ means[i]<-mean(data[[i]]) vars[i]<- var(data[[i]]) } print(means) print(vars) } x=rnorm(100) y=rnorm(200) z=rnorm(300) many.means(x,y,z) ##### zadanie 4 przyklad nr 3 ###################################### ((x2+e)-(x1-e))/15= (x2-x1+2e)/15 ((x2-e)-(x1+e))/13= (x2-x1-2e)/13 # z tych dwch wuliczy sie epsilon (e) e=... ((x2-e)-(x1-e))/14=(x2-x1)/14 2e=(x2-x1)/14 #################################################################### na nastepne zajecia funkcje dotyczace testowania dla rozkladu normalnego testowanie czy dany rozklad jest normalny ->zadanie3 napisac funkcje ale zastosowac swearch ---drugie i pierwsze zad