Запуск t.test в R, данные по существу постоянны

Question

Я пытаюсь построить t.test, используя метод Hi / Lo. Но я получаю ошибку, это мой код:

##hi/lo version 
dat = read.csv("parking.csv", comment.char = "#", as.is = TRUE)


dat = dat[dat$prepost!="" & !is.na(dat$viol_pc) , ];
dat = dat[, c("wbcode","country","viol_pc", "prepost","corruption")]


dat$hilo = ifelse(dat$corruption > 0.33, "hi", "lo")


pp_hilo = t.test(dat$hilo[dat$prepost=="pre"], dat$hilo[dat$prepost=="pos"])

Я получаю ошибку:

Ошибка в if (stderr < 10 * .Machine $ double.eps * max (abs (mx), abs (my))) stop («данные по существу постоянны»): пропущенное значение, где требуется TRUE / FALSE