f.try <- function(x){
  tmp1 <- c(999)
  for(i in x){
    if(is.na(i))
      tmp1 <- c(tmp1, NA)
    else if(i > 0)
      tmp1 <- c(tmp1,1)
    else
      tmp1 <- c(tmp1,0)
  }
  tmp1
}


不过，应该不用这么麻烦
c(999, ifelse(x>0,1,0))  就可以

R有个函数，叫is.na

另外，系统内置有函数的：
> sign(1)
[1] 1
> sign(-1)
[1] -1
> sign(0)
[1] 0
> sign(NA)
[1] NA
> sign(3)
[1] 1
> sign(-3)
[1] -1
> sign(1e-100)
[1] 1
> sign(1e-1000)
[1] 0
> sign(NA)
[1] NA

谢谢您，我已经解决啦，就是用这个

哇，打开了新世界的大门