Проблемы с гибким дискриминантным анализом
Я пытаюсь сделать гибкий дискриминантный анализ, используя измерения, сделанные на костях, но мне нужно применить MARS как метод, использующий R, но по какой-то причине только для некоторых моих фреймов данных R выдает мне предупреждение
Предупреждающее сообщение:
In fda(SEX ~ ., data = hex, method = mars) : degenerate problem; no discrimination
Кто-нибудь, пожалуйста, скажите мне, что я делаю не так?
hex <- "Половой возраст HDL HDB
1 F 0 8,4 20,41
2 F 0 7,4 15,40
3 F 9 7.3 19.40
4 М 9 13,5 37,31
5 М 11 14,4 43,49
6 М 11 15,7 40,10
hex=read.table("hex.txt", header = TRUE, sep = "\t")
ул (шестнадцатеричный)
hex [2: 3] <- lapply (hex [2: 3], как числовой)
hexfit <- fda(SEX~ ., data = hex, method = mars)
Предупреждающее сообщение: в fda(SEX~ ., Data = hex, method = mars): вырожденная проблема; нет дискриминации