体育R功能问题；否则呢？

基于以下

k1

、

k2

、

k3

和

x

值

x = GP$PDiff

k1 = 35*sin(0.0561*x)

k2 = -(1/7)*x + 39

k3 = 30

我有以下

if…else

问题

if (x <= 28){{

  elo <- eloRating(home="HomeTeam", away="AwayTeam", homeScore="HomeScore", awayScore = "AwayScore",
                   data = GP, kfactor = k1, initialRating = 1500, homeAdvantage = 0)
}

  else if (x > 28|x <= 35){

    elo <- eloRating(home="HomeTeam", away="AwayTeam", homeScore="HomeScore", awayScore = "AwayScore",
                     data = GP, kfactor = k2, initialRating = 1500, homeAdvantage = 0)
  }

  else{
    elo <- eloRating(home="HomeTeam", away="AwayTeam", homeScore="HomeScore", awayScore = "AwayScore",
                     data = GP, kfactor = k3, initialRating = 1500, homeAdvantage = 0) 
  }
}

---

<代码>如果（x我建议在末尾添加另一个实例，然后为x＞28 x席设一个单独的条件，则认为如果<<代码>，则在第一个<代码>周围有一个额外的括号集合。

if (x <= 28){

  elo <- eloRating(home="HomeTeam", away="AwayTeam", homeScore="HomeScore", awayScore = "AwayScore",
                   data = GP, kfactor = k1, initialRating = 1500, homeAdvantage = 0)
}

  else{
      if (x > 28|x <= 35){

      elo <- eloRating(home="HomeTeam", away="AwayTeam", homeScore="HomeScore", awayScore = "AwayScore",
                     data = GP, kfactor = k2, initialRating = 1500, homeAdvantage = 0)
  }

  else{
    elo <- eloRating(home="HomeTeam", away="AwayTeam", homeScore="HomeScore", awayScore = "AwayScore",
                     data = GP, kfactor = k3, initialRating = 1500, homeAdvantage = 0) 
  }}