在R中将时间转换为数字

Question

我正在研究一个关于运动建模的小项目。这是一个多项回归模型来预测曲棍球比赛的结果。我已经学会了如何使用以下函数将数据框中的Time On Ice列转换为数字向量。

`AminPerGame＆lt; - AGoalies $ TOI

sapply(strsplit(AminPerGame,":"),
       function(x) {
          x <- as.numeric(x)
         x[1]+x[2]/60
        }
  )`

我希望使用if语句，如果游戏超过60分钟，则将胜利结果转换为加时赛。 3是胜利，2是加时。

`if ((AminPerGame>60) & (AGoalies$DEC == 3) )
{AGoalies$DEC == 2} `

我继续收到此错误消息

Warning message: In if ((AminPerGame > 60) & (AGoalies$DEC == 3)) { : the condition has length > 1 and only the first element will be used.

有关如何获取此if语句以正确转换结果的任何建议吗？