如何解决用于足球预测的 for 循环中的预测函数
在尝试获取足球结果数据集并预测未来结果时,我希望运行一个 for 循环,其中 predict
函数在多次迭代中被调用。 predict
中运行的是一个预定义的 glm,它可以预测球队的进球得分和失球输出。
HomeAway <-
rbind(
data.frame(goals=Matchday_data_D12010$Full_time_home_goals,team=Matchday_data_D12010$HomeTeam,opponent=Matchday_data_D12010$AwayTeam,home=1),data.frame(goals=Matchday_data_D12010$Full_time_away_goals,team=Matchday_data_D12010$AwayTeam,opponent=Matchday_data_D12010$HomeTeam,home=0))
poisson_model <- glm(goals ~ home + team +opponent,family=poisson(link=log),data=HomeAway)
在循环之外,predict
函数可以正常工作,当两个团队为 team
和 opponent
手动输入时,但是当输入到 for 循环时它不起作用。循环的必要性是尝试为一支球队找到预测的目标输出,给定他们正在比赛的对手,这是针对整个数据集的每场比赛。
下面是我试图运行的循环,即对于每次迭代,取迭代所在数据集的行,并将该行中找到的两个团队输入到 predict
函数中以查找主队的预期进球。任何帮助将不胜感激
Matchday_data_D12010[,"predictHome"] <- NA
n=length(HomeAway$goals)
predictHome <- 0
for (i in 1:n/2) {
predictHome[i] <- predict(poisson_model,data.frame(home="home[i]",team = "team[i]",opponent = "opponent[i]"),type="response")
}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。