varians3.R

Simpan <- read.csv("varians.csv", header = TRUE, sep = ",") 
Simpan

##    Nilai Kelas
## 1     70     1
## 2     80     1
## 3     87     1
## 4     77     1
## 5     80     1
## 6     80     2
## 7     85     2
## 8     70     2
## 9     77     2
## 10    85     2
## 11    60     2
## 12    80     2
## 13    70     3
## 14    87     3
## 15    90     3
## 16    77     3
## 17    76     3
## 18    87     3

library(lawstat)
data(Simpan)

## Warning in data(Simpan): data set 'Simpan' not found

levene.test(Simpan[, "Nilai"], Simpan[, "Kelas"], location = "mean", correction.method = "zero.correction")

## 
##  Classical Levene's test based on the absolute deviations from the mean
##  ( zero.correction not applied because the location is not set to median
##  )
## 
## data:  Simpan[, "Nilai"]
## Test Statistic = 0.64903, p-value = 0.5366