Nama : Raqfi Falan Y
Nim : 3011710050
1. rata0 = 162.5 sb = 6.9 alpha = 0.1 n = 50 rata = 165.2 hipotesis_0 = "rata rata tinggi wanita adalah 165.2" hipotesis_1 = "rata rata tinggi wanita bukan 165.2"
z = (rata - rata0)/(sb/sqrt(n)) p_val = 2*pnorm(-abs(z))#if t = 2*pt(-abs(t)).df=n-1)
if (p_val
Nama : Raqfi Falan Y
Nim : 3011710050
2. Merk_A = c(42567,33191,43749,34657,33379,26001,37158,39517,34292,44235,41063,38410) Merk_B = c(50465,30936,41485,44790,33927,38285,39470,37174,40211,38887,34896,44293) kurang = Merk_B-Merk_A d = mean(kurang) alpha = 0.05 n = 12 sd = sd(Merk_A) d0=0 hipotesis_0 = "ada perbedaan antara Merk A dengan Merk B" hipotestis_1 = "Tidak ada perbedaan antara Merk A dengan Merk B"
t = (d - d0)/(sd/sqrt(n)) p_val = 2*pt(-abs(t),df = n-1)#if t = 2*pt(-abs(t)).df=n-1)
if (p_val
Nama : Raqfi Falan Y
Nim : 3011710050
kesimpulan \
3. Perusahaan_A =c(102,86,98,109,92) perusahaan_B = c(81,165,97,134,92,87,114) rata_A = mean(Perusahaan_A) rata_B = mean(perusahaan_B) d = rata_B - rata_A d0 = 8 alpha = 0.1 n0 = 5 n1 = 7 n = n1-n0 sp = sd(Perusahaan_A) + sd(perusahaan_B)
Hipotesis_0 = "Selisih rata-rata waktu putar film hasil perusahaan A dan B kurang dari 8 menit" Hipotetis_1 = "Selisih rata-rata waktu putar film hasil perusahaan A dan B Lebih dari 8 menit"
t = (d-d0)/(sp/sqrt(1/n0 + 1/n1))
p_val = 2*pt(-abs(t), df = n - 1 ) #if t = 2*pt(-abs(t),df=n-1)
if (p_val
Nama : Raqfi Falan Y
Nim : 3011710050
keputusan = "Tolak H0" Kesimpulan = Hipotesis_1 }else{ keputusan = "Gagal Tolak H0" Kesimpulan = Hipotesis_0 } keputusan Kesimpulan
4. Waktu_A = c(107, 43, 95, 112,100,91,67,66,107, 98, 80, 108,) Waktu_B = c(108, 138, 200, 101,132, 74, 22, 73,109, 70,104, 110) Selisih = Waktu_B-Waktu_A d = mean(kurang) alpha = 0.05
sd = sd(Waktu_A) d0=0 hipotesis_0 = "ada perbedaan antara Waktu A dengan Waktu B" hipotestis_1 = "Tidak ada perbedaan antara Waktu A dengan Waktu B"
t = (d - d0)/(sd/sqrt(n)) p_val = 2*pt(-abs(t),df = n-1)#if t = 2*pt(-abs(t)).df=n-1)
Nama : Raqfi Falan Y
Nim : 3011710050
if (p_val
5. Nim_A = c(1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41,43,45,47,49,51,52,53,55,57,59, 61,63,65,67,69,71,73,75,77,79,81,83,85,87,89,91,93,95,97,99) Nim_B = c(2,4,6,8,10,12,14,16,18,20, 22,24,26,28, 30,32,34,36,38,40,42,44,46, 48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,82,84,86,88,90,92,94,96,97,98,100) Random = Nim_A d = mean(kurang) alpha = 0.05
sd = sd(Waktu_A) d0=0 hipotesis_0 = "ada perbedaan antara Waktu A dengan Waktu B" hipotestis_1 = "Tidak ada perbedaan antara Waktu A dengan Waktu B"
Nama : Raqfi Falan Y
Nim : 3011710050
t = (d - d0)/(sd/sqrt(n)) p_val = 2*pt(-abs(t),df = n-1)#if t = 2*pt(-abs(t)).df=n-1)
if (p_val
6. Umur_mesin = c(68, 76, 78, 78 ,60) suhu = c(2,3,3,2,2) waktu_pengerjaan = c(72, -3, 123,68, 154) kualitas = c(1,2,1,22)
Hasil = Umur_mesin alpha = 0.01
sd = sd(Umur_mesin) d0=0
Nama : Raqfi Falan Y
Nim : 3011710050
hipotesis_0 = "ada perbandingan antara umur mesin dengan suhu dan kualitas dan waktu pengerjaan" hipotestis_1 = "Tidak ada perbandinagn antara Merk A dengan Merk B"
t = (d - d0)/(sd/sqrt(n)) p_val = 2*pt(-abs(t),df = n-1)#if t = 2*pt(-abs(t)).df=n-1)
if (p_val