我尝试运行的代码是针对AFL的基本预测目标总数。它使用rpois函数，但在我计算传递给函数的变量后，我得到一个错误。
rpois（10000，Weighted_Away_Goals）出错：参数无效
如何修复此错误？
Poisson_AFL_Model <- function(Home_Team,Away_Team,Venue,total_goals)
Home_Scored=HomeStats.Venue[HomeStats.Venue$Home == Home_Team & HomeStats.Venue$Venue == Venue, c('HG')]
Home_Conceded=HomeStats.Venue[HomeStats.Venue$Home == Home_Team & HomeStats.Venue$Venue == Venue,c('HGC')]
Average_Home_Scored=MeansVenue[MeansVenue$Venue == Venue,c('HG')]
Average_Home_Conceded=MeansVenue[MeansVenue$Venue == Venue,c('AG')]
Away_Scored=AwayStats.Venue[AwayStats.Venue$Away == Away_Team & AwayStats.Venue$Venue == Venue, c('AG')]
Away_Conceded=AwayStats.Venue[AwayStats.Venue$Away == Away_Team & AwayStats.Venue$Venue == Venue, c('AGC')]
Average_Away_Conceded=MeansVenue[MeansVenue$Venue == Venue,c('HG')]
Average_Away_Scored=MeansVenue[MeansVenue$Venue == Venue,c('AG')]
Scaled_Home=Home_Scored/Average_Home_Scored
Scaled_Away=Away_Scored/Average_Away_Scored
Scaled_away_defence=Away_Conceded/Average_Away_Conceded
Scaled_home_defence=Home_Conceded/Average_Home_Conceded
Weighted_Home_Goals=Home_Scored*Scaled_away_defence
Weighted_Away_Goals=Away_Scored*Scaled_home_defence
xawayteam=rpois(10000,Weighted_Away_Goals)
xhometeam=rpois(10000,Weighted_Home_Goals)
Totalgoals=xhometeam+xawayteam
MeanGoals=mean(Totalgoals)
cat("\nHome Goals:", mean(xhometeam))
cat("\nAway Goals:", mean(xawayteam))
cat("\nMean Goals:", MeanGoals)
cat("\nHome Wins from 10000:", sum(xhometeam>xawayteam))
cat("\nAway Wins from 10000:", sum(xhometeam<xawayteam))
cat("\nDraws from 10000:", sum(xhometeam==xawayteam))
cat("\nTotal Goals:", total_goals)
cat("\nMore than goals:", sum(Totalgoals>total_goals)/10000)
cat("\nEqual to goals:", sum(Totalgoals=total_goals)/10000)
cat("\nLess than goals:", sum(Totalgoals<total_goals)/10000)
}