R - 错误某些群体太小而不适合＆＃39; qda＆＃39;

Question

我试图从几天后解决这个问题，但谷歌无法帮助:( 我得到了错误：

  

qda.default（x，分组，...）出错：某些组太小了   为＆＃39; qda＆＃39;

在堆栈上是simillar主题： R Error : some group is too small for 'qda'

但是我无法知道如何做到这一点：/

这是我的代码：

library(MASS)
library(mlbench)
library(caret)
library(class)
data(Glass)
Glass <- data.frame(Glass)
Glass <- na.omit(Glass)

Glass$Type = as.factor(Glass$Type)
x = as.matrix(Glass[,names(Glass) != "Type"])
mode(x) = "numeric"
Glass[,names(Glass) != "Type"] <-x
ind <- sample(2, nrow(Glass), replace = TRUE, prob=c(0.8, 0.2))
train <- Glass[ind == 1,]
test <- Glass[ind == 2,]
train[,names(Glass) != "Type"] <- apply(train[,names(Glass) != "Type"], 2, jitter)

一切都很棒，但下一行...

qda_Typeifier <- qda(Type~ ., data=train)
ypred.test <- predict(qda_Typeifier,test)$Type
mean(ypred.test == test$Type)

希望，帮助很快就会到来！

Answer 1

当错误显示

时，代码没有错误（没有错误）

  

某些群体对于'qda'来说太小了

Tt表示dataSet错误。 要修复它，你应该修改dataSet。