### LESSON 4 EXERCISES OF PAIRED T TEST & WILCOXON SIGN TEST (19/4/2021) library(haven) setwd("S:/_STAFF/Gulser/R NOTES/LESSON_4") dataset<-read_dta('all480769.dta') attach(dataset) summary(dataset) glicDiff<-glicT0- glicT1 glicDiff boxplot( glicT0, glicT1) summary(glicDiff) hist(glicT0) hist(glicT1) hist(glicDiff) ###NORMALITY TEST shapiro.test(dataset$glicT0) shapiro.test(dataset$glicT1) shapiro.test(dataset$glicDiff) t.test(glicT0, glicT1, paired=T) t.test(glicDiff) wilcox.test(glicT0, glicT1, paired=T)