Barlett Testi

#Elimizde var olan bir veriye barlett testi uygulayabiliriz. Veya burada olduğu gibi 4 tane vektör veriyi kendimiz oluştuabiliriz

#Bartlett testi veri matrisinin birim matris olup olmadığına, değişkenler arasındaki Korelasyonun yeterli olup olmadığına karar verir. Tüm korelasyon katsayıları sıfırdır boş hipotezini test eder. P value değeri < 0,05 ise veri seti faktör analizi için uygundur. 

# Fonksiyon bize istatistiksel testlerin değerini ( K kare ) ve p değerini verdi. P-değeri> 0.05 olduğundan varyansların homojen olduğu söylenebilir

a = c(65, 48, 66, 75, 70, 55)
b = c(64, 44, 70, 70, 68, 59)
c = c(60, 50, 65, 69, 69, 57)
d = c(62, 46, 68, 72, 67, 56)

veri = c(a, b, c, d)

groups = factor(rep(letters[1:4], each = 6))

bartlett.test(veri, groups)

## 
##  Bartlett test of homogeneity of variances
## 
## data:  veri and groups
## Bartlett's K-squared = 0.48217, df = 3, p-value = 0.9228