Module # 11 Chi Square Test

> Beachcomber<- c(163,64,227)

> Windsurfer<- c(154,108,262)

> table(Beachcomber,Windsurfer)

Windsurfer

Beachcomber 108 154 262

64    1   0   0

163   0   1   0

227   0   0   1

> chisq.test(table(Beachcomber,Windsurfer))

Pearson’s Chi-squared test

data:  table(Beachcomber, Windsurfer)

X-squared = 6, df = 4, p-value = 0.1991