要求一个向量中每一个值在分段函数中的结果,用以下代码,但是得到的结果中有NULL,不知道是怎么回事,求助!
g1<-c(0.17,0.26,0.09,0.41)
r1<-function(x,parametric=TRUE){
if(x==0){result<-1}
if((x>0)&(x<=0.2)){result<-0.5-0.5*sin(pi*(x-0.1)/0.2)}
if(x>0.2){result<-0}
}
b<-sapply(g1,r1)
结果:
b
[[1]]
NULL
[[2]]
[1] 0
[[3]]
NULL
[[4]]
[1] 0


雷达卡



是因为我少了return(result),加上以后就正确了,谢谢!
京公网安备 11010802022788号







