Zadania4, Tallib, R, rer1
[ Pobierz całość w formacie PDF ]
zadania 3 z wikampaZAD 1Sporzšdzić wykres ramkowy (pudełkowy)dla wieku nowożeńców (dane Sluby.csv).(*) Czy liczba 25 wpada do przedziału ufnoci(na poziomie 95%) dla mediany wieku kobiety? A mężczyzny?(dane=read.csv2("Sluby.csv"))boxplot(dane) // boxplot(dane, col = heat.colors(2))(*) tak################# oki ##############ZAD 2Dla danych z pliku wzrost.csv sporzšdzić wykres zawierajšcy:* histogram (około 15 klas)* jšdrowy estymator gęstoci* gęstoć rozkładu normalnego o parametrach estymowanychna podstawie danych(dane=read.csv2("wzrost.csv"))attach(dane)hist(X212,15,col="green")detach(dane)attach(dane)plot(density(X212))detach(dane)gestosc=function(X212) dnorm(X212,0,1)plot(gestosc,-5,5)############ chyba okiZAD 3Dane z pliku wzrost.csv rozłożyć w szereg rozdzielczy:* o 15 klasach taki, że minimum jest rodkiem pierwszego,a maksimum rodkiem ostatniego przedziału(*) o 6 klasach, różnej długoci, za to, w przybliżeniu,jednakowej licznoci. W oparciu o ten szereg narysować histogram.(dane=read.csv2("wzrost.csv"))(sr1=min(dane$X212))(sr2=max(dane$X212))k=15dl=(sr2-sr1)/(k-1)podzial=dl*0:k-dl/2+sr1szereg_r=table(cut(dane$X212,podzial))barplot(szereg_r)##(*) (dane=read.csv2("wzrost.csv"))(a=dane$X212)(b=sort(a))(w=c(b[1],b[84],b[167],b[250],b[333],b[416],b[499]))p1=(podzial=table(cut(b,w,right=TRUE)))p2=(podzial=table(cut(b,w,right=FALSE)))barplot(p1)barplot(p2)##2 sposób(dane=read.csv2("wzrost.csv"))(a=sort(dane$X212))(w=c(quantile(a,1/6),quantile(a,2/6),quantile(a,3/6),quantile(a,4/6),quantile(a,5/6),quantile(a,6/6)))(p1=(podzial=table(cut(a,w,right=TRUE))))(p2=(podzial=table(cut(a,w,right=FALSE))))barplot(p1)barplot(p2)############## oki ############## [ Pobierz całość w formacie PDF ]