Ошибка подстрочного индекса. Может ли кто-нибудь помочь мне разобраться в этом?

Question

Сможет ли кто-нибудь помочь мне разобраться в этом? Вычисление интересующих величин проблематично. Я не знаю, как это исправить. Я новичок в коде!

#Create Dictionary
data_dictionary_LaverGarry
dictionary_results <- dfm_lookup(data_corpus_dfm, data_dictionary_LaverGarry)
dictionary_results

reviews <- corpus_sample(data_corpus_LMRD, 30)
reviews_dfm <- dfm(reviews)

data_dictionary_LSD2015
results_dfm <-dfm_lookup(reviews_dfm, data_dictionary_LSD2015)
results_dfm

#Creating Sentemint
nman <- nrow(data_corpus_dfm)
nrepl <- 1000
manifBSn <- manifBSnRand <- array(as.matrix(data_corpus_dfm
[,2:3]), c(nman, 2, nrepl + 1), 
dimnames = list(1:nman, names(data_corpus_dfm[,2:3]), 0:nrepl))

#computing percentages
n <- apply(manifBSn[1:nrow(manifBSn), , 1], 1, sum)
p <- manifBSn[, , 1]/n

for (i in 1:nrepl) {
  manifBSn[, , i] <- rmultinomial(n, p)
}

#compute quantities of interest
NegativeSE <- apply(manifBSn[, "Negative", ]/n * 100, 1, sd)
PositiveSE <- apply(manifBSn[, "Positive", ]/n * 100, 1, sd)
perNegative <- apply(manifBSn[, "Negative", ]/n * 100, 1, mean)
perPositive <- apply(manifBSn[, "Positive", ]/n * 100, 1, mean)

Спасибо всем, кто может помочь!