Ошибка в dimnames (s $ v) <- list (colnames (x), paste0 ("PC", j)): длина ошибки dimnames 2 не равна экстенту массива

Question

Когда я запускаю эту строку кода

library(rENA)
category.data <- readr::read_csv("/home/Exemplo.csv")
category.set  <- create.ena.set(category.data)

Она генерирует эту ошибку:

Ошибка в dimnames (s $ v) <- list (colnames (x), paste0(«ПК», j)): длина ошибки dimnames 2 не равна экстенту массива </p>

Это метод:

create.ena.set <- function(data) {
    accum <- ena.accumulate.data(
                           units        = data[,c("UserId","DiscussionID"), drop=F],
                           conversation = data[,c("UserId","DiscussionID"), drop=F],
                           metadata     = NULL,
                           codes        = data[, colnames(data)[-c(1:8)]],
                           weight.by = "binary")
    ena.make.set(enadata=accum)
}

Я не знаю, как решитьэто.