Почему я получаю эту ошибку? «Ошибка в crossprod (x, y): требуются числовые / сложные матричные / векторные аргументы»

Question

library(caret) 
library(mvtnorm)
library(ncvreg)
library(glmnet)
library(flare)
air <- read.csv(file = 'C:/Users/42stu/Downloads/AirI(1).csv', check.names = FALSE, stringsAsFactors = FALSE)

for(x in 1:nrow(air)){
for (y in 1:ncol(air)){
air[x, y] <- as.numeric(air[x,y])
if(!is.numeric(air[x, y])){
print(x)
print(y)
}
}
}

air_shuffled <- air[sample(nrow(air)),]
dataset <- air_shuffled 

folds <- cut(seq(1,nrow(dataset)),breaks=10,labels=FALSE)

for(i in 1:10){
    testIndexes <- which(folds==i,arr.ind=TRUE)
    testData <- dataset[testIndexes,]
    testDatax <- testData[,2:ncol(testData)]
    testDatay <- testData[,1]

    trainData <- dataset[-testIndexes, ]
    trainDatax <- trainData[,2:ncol(trainData)]
    trainDatay <- t(trainData[,1])

    sqrt_lasso <- slim(trainDatax, trainDatay, method = "lq")


} 

Мой код указан выше. Я преобразовал все в тип нумерации c; почему я все еще получаю ошибку? Что-то не так с размером матриц? Извиняюсь, если это не хороший вопрос; это мой первый пост в StackOverflow и мой первый семестр с использованием R.