### ZAJĘCIA 1.12.2010 ###

zakupy=read.csv2("zakupy.csv")
attach(zakupy)
zakupy
names(zakupy)
zakupy

p1=subset(Wydatek, PLEC=="K");
mean(p1)
which.max(WIEK)
min(WIEK)
max(WIEK)
quantile(WIEK)
summary(WIEK)

table(WYKSZTAŁCENIE)
table(WIEK)

table(cut(WIEK,b=6))


####szereg rozdzielczy na wykresie słupkowym
k=20
dl=(max(WYDATEK)-min(WYDATEK))/(k-1)
podzial=min(WYDATEK)+dl*0:k-dl/2;
podzial
podzial=seq(min(WYDATEK)-dl/2,max(WYDATEK)+dl/2,,k+1);
podzial=seq(min(WYDATEK)-dl/2,max(WYDATEK)+dl/2,,k+1);
podzial
(szereg1=table(cut(WYDATEK,podzial)))
barplot(szereg1) #wykres slupkowy

hist(WYDATEK,40) #histogram
hist(WYDATEK,breaks=c(0,10,20,55,100,200,300))

plot(density(WYDATEK))

### TEST SHAPIRO-WILKA

shapiro.test(WYDATEK)
mean(WYDATEK)

### TEST T-STUDENTA ###
t.test(WYDATEK,mu=70)

##############################################################################
#ZADANIE 5(pkt1)
Wzrost1=read.csv2("Wzrost1.csv")
attach(Wzrost1)
Wzrost1
names(Wzrost1)
Wzrost1

mi=mean(Wzrost1)
sigma=sd(Wzrost1)
ile=length(Wzrost1)
k=20
w=0:k
podzial=qnorm(w/k,mi,sigma)
podzial
podzial[1]=min(Wzrost1)-3
podzial[length(Wzrost1)]=max(Wzrost1)+3
szereg=table(cut(X212,podzial))
szereg
(t=chisq.test(szereg))
names(t)



Wyszukiwarka

Podobne podstrony:
ustawa 12 2010 zm ustawy o stos P do KK
13 12 2010
8 Systemy Operacyjne 21 12 2010 Zarządzanie Pamięcią Operacyjną
12 2010 Funkcje Arytmet
wyklad 10 14 12 2010
zajecia 12 03 10
recepty z 13,12,2010
rozklad kanalow
12 2010
Zajecia 12 04 10
FM wyklad 8 1 12 2010
Laboratorium graficzne II Zajecia 12 Komponenty w jezyku ActionScript 3 0
06 12 2010
FM wyklad 9 9 12 2010
Systemy Operacyjne 07 12 2010 Kontekst i jego połączenie
zajecia 12 grupa 013

więcej podobnych podstron