要求一个向量中每一个值在分段函数中的结果，用以下代码，但是得到的结果中有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