search for: 205550

...ta$G>15,data$y.Koordinate," ") + xy<-as.data.frame(list(x,y)) + names(xy)<-c("x","y") + return(xy) + } > kk(x.Koordinate, y.Koordinate, data=data) x y 1 2 3 4 5 6 205550 7 205550 604100 8 9 205600 604150 10 205600 604100 Best regards, C. Gesendet von Mail f?r Windows 10 Von: Jim Lemon Gesendet: vendredi, 23 juin 2017 05:28 An: C?line L?scher Cc: r-help at r-project.org Betreff: Re: [R] Help: ifelse selection for x,y coordinates Hi Celin...

...[data$G==24] + x <- ifelse(data$x.Koordinate>coordx-51 & data$G>15,data$x.Koordinate,0) + y<-ifelse(data$y.Koordinate>coordy-51 & data$G>15,data$y.Koordinate,0) + return(c(x,y)) + } > kk(data$x.Koordinate, data$y.Koordinate) [1] 0 0 0 0 0 205550 205550 0 205600 205600 0 0 0 0 0 0 0 [18] 604100 0 604150 604100 0 The problem here is that we can not clearly see the difference between the coordinates for x and the ones for y. Then I tried?this?: > kk<- function(x, y) + { + coordx&lt...

...oordinate," ") + y<-ifelse(data$y.Koordinate>coordy-51 & data$G>15,data$y.Koordinate," ") + xy<-as.data.frame(list(x,y)) + names(xy)<-c("x","y") + return(xy) + } kk(x.Koordinate, y.Koordinate, data=data) x y 1 2 3 4 5 6 205550 7 205550 604100 8 9 205600 604150 10 205600 604100 Best regards, C. Gesendet von Mail f?r Windows 10 Von: Jim Lemon Gesendet: vendredi, 23 juin 2017 05:28 An: C?line L?scher Cc: r-help at r-project.org<mailto:r-help at r-project.org> Betreff: Re: [R] Help: ifelse selection for x,y coord...

...ifelse(data$x.Koordinate>coordx-51 & data$G>15,data$x.Koordinate,0) > + y<-ifelse(data$y.Koordinate>coordy-51 & data$G>15,data$y.Koordinate,0) > + return(c(x,y)) > + } >> kk(data$x.Koordinate, data$y.Koordinate) > [1] 0 0 0 0 0 205550 205550 0 205600 205600 0 0 0 0 0 0 0 > [18] 604100 0 604150 604100 0 > > The problem here is that we can not clearly see the difference between the coordinates for x and the ones for y. > > Then I tried this : >> kk<- functio...