
library(foreign)
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(beck ~ sex)


