r语言——分段函数

最新推荐文章于 2022-09-14 15:52:38 发布

彤_三刃木

最新推荐文章于 2022-09-14 15:52:38 发布

阅读量1.4w

点赞数 3

分类专栏： R 文章标签： R

本文链接：https://blog.csdn.net/qq_40629208/article/details/80041193

版权

R 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

r语言——分段函数

小例子：

data <- read.csv('人均人力资本指数.csv')———读入数据
s <- data[,2]
n <- length(s)
y <- matrix(0,n,1)
funx <- function (s){
  for(i in 1:n){
    if (s[i]<9) y[i]=0.023*s[i] 
    else(
      if (s[i]>9 & s[i]<12 ) {y[i]=0.023*9+0.054*(s[i]-9) } else {y[i]=0.023*9+0.054*12+0.09*(s[i]-12)}
    )
    h=exp(y)
  }
  return (h)
}
result <- cbind(data,h)
write.csv(result,"result.csv")