> > library(lawstat) > > levene.test(wtgain[gender==1], trt[gender==1], "median") modified robust Brown-Forsythe Levene-type test based on the absolute deviations from the median data: wtgain[gender == 1] Test Statistic = 0.191, p-value = 0.963 > > levene.test(wtgain[gender==2], trt[gender==2], "median") modified robust Brown-Forsythe Levene-type test based on the absolute deviations from the median data: wtgain[gender == 2] Test Statistic = 0.5234, p-value = 0.7561 > >