This work for you:

Code:`a=c(107,135,122,67,65,53,19,32) b=c(35.5,26,9,4.5,5.33,9.83,0,1) y <- c(a, b) group <- as.factor(c(rep(1, length(a)), rep(2, length(b)))) install.packages("Rcmdr") library(Rcmdr) levene.test(y, group)`

Variances are statistically different between samples.