Ошибка в `[.default (P, a,): неверное количество измерений`

Question

R продолжает выдавать ошибку:
Error in [.default(P, a, ) : incorrect number of dimensions

То, что я пытаюсь сделать, это использовать значения, которые я создал для дома команды и атакующей и защищающей силы, а затем использовать эти значения длясоздайте таблицу вероятностей, чтобы найти ожидаемые цели между 2 командами.

Мой код:

ProbTable <- function(Attack_Def_strength,Home.Team,Away.Team) 

{

 teams <- rownames(Attack_Def_strength$Club)

 P <- Attack_Def_strength$Club

 a <- which(teams == Home.Team)

 b <- which(teams == Away.Team)

 x <- exp(P[a,]$'Home Attacking Strength' - P[b,]$'Home Defending Strength')

 y <- exp(P[b,]$'Away Atacking Strength' - P[a,]$'Away Defending Strength')

 A <- as.numeric()

 B <- as.numeric()

for(i in 0:7) {

A[(i+1)] <- dpois(i,x)
    B[(i+1)] <- dpois(i,y)
  }

A[8] <- 1 - sum(A[1:8])

 B[8] <- 1 - sum(B[1:8])

 name <- c("0","1","2","3","4","5","6","7+")

 zero <- mat.or.vec(8,1)

 C <- data.frame(row.names=name)

 for(j in 1:8) {

   for(k in 1:8) {

     C[j,k] <- A[k]*B[j]
    }
  }
  colnames(C) <- name
  return(round(C*100,2))
}

Probabilities <- ProbTable(Attack_Def_strength,"Arsenal","QPR")

Вот что показывает трассировка:

Error in `[.default`(P, a, ) : incorrect number of dimensions 
4.
NextMethod("[") 
3.
`[.factor`(P, a, ) 
2.
P[a, ] 
1.
ProbTable(Attack_Def_strength, "Arsenal", "QPR")