Hi Mohamed,

May be it's not the best way, but you can try

> w=c(1,4,5,2,NA,4,5,1,NA)
> w[-which(is.na(w))]
[1] 1 4 5 2 4 5 1

I hope this helps.


Jorge



On 2/8/08, mohamed nur anisah <[EMAIL PROTECTED]> wrote:
>
> I have two sets of interval data.Below are my two dataset. In these
> dataset, there is a missing values in each of the data. I want to find the
> non-overlapping interval values. Here is my code:
>
> mysetdiff=function(x,y){
> m=length(x)
> n=length(y)
>   bx = logical(m)
>   by = logical(n)
>    for(i in 1:m){
>     for(j in 1:n){
>      if(x[i]<=y[j]){
>        bx[i] = T
>        by[j] = T
>      }
>    }
> }
>     sx = x[!bx]
>   sy = y[!by]
> s=c(sx,sy)
> return(s)
> }
>
> How am i going to remove the NA value in my function?? any sugesstion??
> thanks a bunch
>
>   c
> [1]  17130612  17712302  21225764  25012714  33852816  36012944  36252300
> [8]  36737468  43693832  44148616  45318876  45852632  53258208  58530988
> [15]  60437872  72516480  79673224  93128744  94269896  95868704  99651504
> [22] 113688560 131101008 132955984 135891280 141318144 148257888 156158176
> [29] 157797616 162055856 168221296 173125232 176267104 182826240 183742528
> [36] 184401728 190671888 196639616  17587118  18221688  21387314  30748348
> [43]  34480192  36209144  36280276  36971144  43878548  44496056  45740012
> [50]  46752088  53700056  58603536  60691012  72757696  80077728  93181480
> [57]  94474624  97418088 106596368 120128352 132462320 132980744 135998880
> [64] 142259520 151591840 156920960 157838176 162743136 168466848 173167936
> [71] 176338384 182930096 184149776 185735712 190910576        NA
> > d
> [1]  17712302  21203780  25012714  33852816  34794536  36012944  37891284
> [8]  43693832  44148616  45852632  53289188  61573112  63664928  72516480
> [15]  79673224  94474624  95868704  99651504 113688560 125159688 127388568
> [22] 131101008 154599216 176267104 181504912 182562720 182826240 183742528
> [29] 196841904  18100404  21387314  30748348  34384588  35996440  36252300
> [36]  37942556  43878548  44496056  46752088  53700056  62637560  63969952
> [43]  72757696  80077728  94617360  97144032 106596368 120128352 127220456
> [50] 127504536 132462320 154717312 176338384 181836032 182687824 182930096
> [57] 184149776        NA
>
>
>
> ---------------------------------
>
>        [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

        [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to