R语言分段函数

fun<- function(x) {
y=numeric(length(x))
y[x>=0&&x<10]=1
y[x>=10&&x<50=2
y[x>=50&&x<100]=3
y[x>=100&&x<500]=4
return(y)
}
用R语言编写了以上函数，现在有个a是一个几百个数组成的向量，用fun（a）时发现得出结果存在问题

把&&换成&试试

y[x>=10&&x<50=2这里少了半个括号

lspline package  了解一下

fun<- function(x)
{
y=numeric(length(x))
y[x>=0 & x<10]=1
y[x>=10 & x<50]=2
y[x>=50 & x<100]=3
y[x>=100 & x<500]=4
return(y)
}