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