bab3 hal99

##############################
## UJI t sampel berpasangan ##
##############################

before = c(12.9,13.5,12.8,15.6,17.2,19.2,12.6,15.3,14.4,11.3)
after = c(12.7,13.6,12.0,15.2,16.8,20.0,12.0,15.9,16.0,11.1)
shapiro.test(before-after) #uji kenormalan simultan


t.test(before,after,paired=TRUE)