
library(foreign)
x <- read.spss("U:\\My Documents\\beck.sav")
#x <- read.spss("E:\\EDA FOR ZIPPING\\DEMO EDA DATA\\beck.sav")
x1 <- data.frame(x)

#install.packages("moments","e1071")

library(moments)
kurtosis(x1$beck,na.rm=T)
skewness(x1$beck,na.rm=T)

library(e1071)                    
skewness(x1$beck,na.rm=T)  
kurtosis(x1$beck,na.rm=T)

wilcox.test(x1$beck ~ x1$sex)


