Docstoc

part 5

Document Sample
part 5 Powered By Docstoc
					Septriyono wahyudi / 085410147 / TI-S1



LISTING PRAKTEK
Praktek 1

       > A<-c(70,76,80,82,85,86,78)
       > B<-c(72,78,82,80,86,87,79)
       > boxplot(A,B)

Hasilnya:




t.testnya:
        > t.test(A,B)

             Welch Two Sample t-test

       data: A and B
       t = -0.3518, df = 11.919, p-value = 0.7312
       alternative hypothesis: true difference in means is not equal to 0
       95 percent confidence interval:
        -7.198653 5.198653
       sample estimates:
       mean of x mean of y
        79.57143 80.57143

Praktek 2.

       > dataLat<-read.table("d:\zeptra.txt", header=T)
       > dataLat
         A B
       1 78 72
       2 76 78
       3 80 82
Septriyono wahyudi / 085410147 / TI-S1


       4 82 80
       5 85 86
       6 86 87
       7 78 79
       8 89 67
       9 90 70
       10 87 56
       11 78 67
       12 67 68




t.testnya:
        > t.test(dataLat)

             One Sample t-test

       data: dataLat
       t = 44.4127, df = 23, p-value < 2.2e-16
       alternative hypothesis: true mean is not equal to 0
       95 percent confidence interval:
        74.20801 81.45866
       sample estimates:
       mean of x
        77.83333

Boxplotnya:
> boxplot(dataLat)
Septriyono wahyudi / 085410147 / TI-S1


Tugas Praktek
Hipotesanya:

      > A<-c(10,8.7,11,9.5,10.5,9,)
      > B<-c(8,9,10,7,9.5,10.5)
      > boxplot(A,B)

Boxplotnya:




Bentuk t.testnya:
      > t.test(A,B)

              Welch Two Sample t-test

      data: A and B
      t = 1.218, df = 8.796, p-value = 0.2549
      alternative hypothesis: true difference in means is not equal to 0
      95 percent confidence interval:
       -0.6766895 2.2433561
      sample estimates:
      mean of x mean of y
       9.783333 9.000000

				
DOCUMENT INFO
Shared By:
Categories:
Tags: kuliah
Stats:
views:10
posted:1/29/2012
language:
pages:3