extracting elements by using logical values

dear lists,

  My question is quite simple but i'm a new user in R and it's seem tough to
me. How am i going to recall back my values??ok..it could be easy if i
ilustrate my problem with the simple example. say that,
   x
[1] 1 2
y
[1] 2 3

  and my logical output from my function are (Below is my function):

  overlapped(x,y)
[1] TRUE
[1] TRUE

  suppose i want my output to be:
  [1] 1 2
[1] 2 3


  overlapped<-function(x,y){
z<-rbind(x,y)
 for(i in 1:nrow(z)){
  overlap<-(z[i,1]<=z[,2]&z[i,2]>=z[,1])[-i]
   if(any(overlap)) print(TRUE)
   else print(FALSE)
      }
   }

  Thanks in advance!!

  cheers,
  Anisah





---------------------------------

	[[alternative HTML version deleted]]