PostDF <- read.csv("https://raw.githubusercontent.com/thistleknot/Capstone-577/master/output/V7221-greaterEqual-10-filtered.csv", header=TRUE, sep=",")[,-1,drop=FALSE]
x <- PostDF[,-1, drop=FALSE]
y <- data.frame(PostDF[,1, drop=FALSE])[,1]
pcr_model <- glm.pcr(list(y), x, k=ncol(PostDF[,-1]),xnew = NULL)
Приведенный выше код выдает эту ошибку:
pcr_model <- glm.pcr (список (y), x, k = ncol (PostDF [, - 1]), xnew =NULL) Ошибка в x% *% vec: требуются числовые / сложные матричные / векторные аргументы </p>
В чем проблема с кодом?Как я могу исправить ошибку?