你的循环里面的 i 没有用到。

函数可以这样写：

myfun <- function(x) {
    y <- x^2
    y[x > 1] <- 1
    y[x < 0] <- -x[x < 0]
    return(y)
}

Xie Xie for sharing,

lz这样的分段函数执行效率很低下，一旦样本量较大，循环较多计算起来就很慢；建议用这种不带循环的：
myfun = function(x){
  n=length(x);y=rep(0,n)
  l=which(x<0)
  c=which(abs(x-1/2)<=1/2)
  r=which(x>1)
  y[l]=-x[l]
  y[c]=x[c]^2
  y[r]=1
  return(y)
}