请问有了n 为什么还要再添加一个res 赋值为numeric(n)
这2个不是一样的吗lengh(）貌似也是实数型把
先跪谢了

abc <- function(s, data){
n <- length(s)
res <- numeric(n)
for(i in 1:n){
  if(s[i]=="kk"){     
   res[i] <- 1
  }else if(s[i]=="kkk" & data[i]=="kkkk"){
   res[i] <- 2
  }else if(syakudo[i]=="kkk" & data.type[i]=="kkkkkk"){
   res[i] <- 3
  }else{      
   res[i] <- 1
  }
}
res
}