Praktikum 5
Praktikum 5
Praktikum 5
Petunjuk Praktikum
1. Kerjakan praktikum ini secara mandiri dengan laptop/PC masing-masing
2. Install software R, package rcmdr (Recomender) dan ikuti instruksi TA
3. Submit tugas praktikum pada ecourse dengan deadline pukul 22.00 satu minggu
setelah praktikum
Praktikum
Beberapa distribusi peluang dan cara memanggilnya di R.
Distribusi Normal
pnorm(0) =0.5 #(the area under the standard normal curve to the left of
zero) =NORMSDIST(0)
Hasilnya: ….
Kesimpulan: pnorm digunakan untuk, sedangkan normdist pada excel digunakan untuk
Kesimpulan:
dnorm(1) #p(z=1)
Hasilnya: ….
Kesimpulan:
pnorm(.5) #p(Z<0.5) =NORMSDIST(0.5)
Hasilnya: ….
Kesimpulan:
pnorm(1.5) #p(Z<1.5) =NORMSDIST(1.5)
Hasilnya: ….
Kesimpulan:
pnorm(1.5)-pnorm(0.5)
Hasilnya: ….
Kesimpulan:
rnorm(100) #generates 100 random deviates from a standard normal distribution.
rnorm(100, m=50, sd=10) #generates 100 random deviates from a normal distribution
with mean 50 and standard deviation 10.
Chi-square
rchisq(100,14) #(membangkitkan 100 bilangan berdistribusi chisquare dengan
derajat bebas, v=14)
pchisq(14,15.288408) #(menghitung peluang chi-square kurang dari 15.288 derajat bebas
14)
Hasilnya: ….
Kesimpulan:
1-pchisq(6.262, df=15) # default R utk chisq adlh <, peluang chisquare lebih
dari=CHIDIST(6.262,15)
Hasilnya: ….
Kesimpulan:
1-pchisq(0.0100, df=2)
Hasilnya: ….
Kesimpulan:
qchisq(0.5, df=1) #titik chisquare dengan peluang kurang dari 0.5 =CHIINV(0.5,1)
Hasilnya: ….
Kesimpulan:
qchisq(0.3, df=1) #titik chisquare dengan peluang kurang dari 0.3 =CHIINV(0.3,1)
Hasilnya: ….
Kesimpulan:
Distribusi F
rf(100,13,2) #membangkitkan bilangan berdistribusi F dengan v1=13, v2=2 sebanyak 100
Hasilnya: ….
Kesimpulan:
Kesimpulan:
Kesimpulan:
Distribusi t
rt(100,15) #membangkitkan bilangan berdistribusi t dengan v1=15 sebanyak 100
qt(0.95,15) #t tabel dengan v=15 dengan P(t<t)=0.95 =TINV(0.1,15) karena pada excel
alpha/2
Hasilnya: ….
Kesimpulan:
Kesimpulan:
orm(c(0.5), mean=0,
sd=1, lower.tail=TRUE)
[1] 0
pnorm(c(0),
mean=0,
sd=1,
lower.tail=T
RUE)
[1] 0.5
0.4
Regions
-999 to 1.5
0.3
-999 to 1
0.3
Density
0.2
Density
0.2
0.1
0.1
0.0
0.0
-3 -2 -1 0 1 2
-3 -2 -1 0 1 2 3
x
x
Distribusi t
Normal Distribution: Mean=0, Standard deviation=1
1.0
0.8
Cumulative Probability
0.6
0.4
0.2
0.0
-3 -2 -1 0
1 2 3
Distribusi F
F Distribution: Numerator df = 2, Denominator df = 13
Region
2 to 15
1.0
0.8
0.6
0 5 10 15
x
0.0 0.2 0.4 Density
3. Mengolah data
Merubah data text-to-columb pada Ms.Excel :Copy data dari text file > Data > Text
to columb
Finish.
Simpan sebagai time.xls dan ingat direktori anda menyimpan
1. Impor data dari rcmdr R, misal beri nama t >
OK
2. Analisis Data
with(t, Hist(lifetime_baterrai,
scale="frequency",
breaks="Sturges",
col="darkgray"))