R новичок здесь. Я пытаюсь использовать mclust в наборе данных классификации стекла (https://www.kaggle.com/uciml/glass)) для проведения дискриминантного анализа смеси. В основном данные содержат 7 различных типов стекла с 9 столбцами, отображающими количество химических веществ в стекле (магний, железо,и т.д.). Я пытаюсь сгруппировать и предсказать тип стекла, используя эти 9 переменных. В данных отсутствуют пропущенные значения. Вот что я пытался сделать:
#Create scaled dataframe without the "Type Column" and call it x
x <- glass[,-10]
x <- scale(x)
x <- as.data.frame(x)
#Use a loop to create a list of every fourth value up to 212 (53 values total)
#i.e 4,8,12... 212
#Store these values as "glass_delete" (these are the index of rows to remove in the training set)
glass_delete<-rep(0,53)
k<-1
for(i in 1:dim(glass)[1]){
if(i%%4==0){glass_delete[k]<-i; k<-k+1}
}
#Use Mclust to use the training set (without 53 observations) to predict the test set
*glassMclustDA <- MclustDA(x[-glass_delete,], glass[-glass_delete,10])
summary(glassMclustDA, parameters = TRUE)
summary(glassMclustDA, newdata = x[glass_delete,], newclass = glass[glass_delete,10])
Когда я пытаюсьзапустите помеченную строку (третья последняя строка), я получаю сообщение об ошибке «Процедура BLAS / LAPACK« DGESVD »дала код ошибки -13». Я посмотрел везде и не могу понять, что это значит. Мой код выполняет классС 1 по 5 класс хорошо вписывается, а затем, когда он пытается соответствовать классу 6, я получаю эту ошибку. Я боролся с этим в течение двух часов и не могу понять. Любой совет приветствуется.