R 读取.csv文件并对其调用函数

我正在读一个.csv文件，想在上面执行一个功能。因此，我要：

我要调用的函数

award_test <- function(df) {

  df$rating_weging <- 0

  for (rows in 1:nrow(df)){
   if((df$won[rows] == "W") && (df$verschil[rows] > 0.6)){
    df$rating_weging[rows] <- 0.75
  }
 }
return(df)
}

---

award\u test在
set
中调用
award\u test
函数时，不保存其输出。正如@venyao所指出的，您应该在
集合
函数中做一个简单的更改：

set <- function(){

setwd("dir")
   df <- read.csv("club_Barcelona.csv", header = T)

   #perform function
   df <- award_test(df)

   write.csv(df,"club_Barcelona.csv")  
   setwd("dir")
 }

set这里的问题是您没有保存函数的输出。
如其他答案所述，
df
set <- function(){

setwd("dir")
   df <- read.csv("club_Barcelona.csv", header = T)

   #perform function
   df <- award_test(df)

   write.csv(df,"club_Barcelona.csv")  
   setwd("dir")
 }

df$rating_weging = ifelse((df$won == 'W' & df$verschil > 0.6),0.75,0)