# part 5

Document Sample

```					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
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