Displaying 4 results from an estimated 4 matches for "coordy".
Did you mean:
coords
2017 Jun 23
2
Help: ifelse selection for x,y coordinates
Hi Jim,
Thank you very much for the answer?! The result is really better with this??
Here is the code?:
> kk<- function(x.Koordinate, y.Koordinate, data=data)
+ {
+ coordx<-data$x.Koordinate[data$G==24]
+ coordy<-data$y.Koordinate[data$G==24]
+ x <- ifelse(data$x.Koordinate>coordx-51 & data$G>15,data$x.Koordinate," ")
+ y<-ifelse(data$y.Koordinate>coordy-51 & data$G>15,data$y.Koordinate," ")
+ xy<-as.data.frame(list(x,y))
+ names(xy)<-c("x...
2017 Jun 22
2
Help: ifelse selection for x,y coordinates
...e x,y coordinates of individuals, Under these conditions?: the distance to the reference coordinates must be under or equal to 50 meters + the value of G must be bigger or equal to 16.
Here?s what I?ve done first?:
> kk<- function(x, y)
+ {
+ coordx<-data$x.Koordinate[data$G==24]
+ coordy<-data$y.Koordinate[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...
2017 Jun 23
0
Help: ifelse selection for x,y coordinates
...cher <c-luescher at hispeed.ch<mailto:c-luescher at hispeed.ch>> wrote:
Hi Jim,
Thank you very much for the answer ! The result is really better with this ?
Here is the code :
kk<- function(x.Koordinate, y.Koordinate, data=data)
+ {
+ coordx<-data$x.Koordinate[data$G==24]
+ coordy<-data$y.Koordinate[data$G==24]
+ x <- ifelse(data$x.Koordinate>coordx-51 & data$G>15,data$x.Koordinate," ")
+ y<-ifelse(data$y.Koordinate>coordy-51 & data$G>15,data$y.Koordinate," ")
+ xy<-as.data.frame(list(x,y))
+ names(xy)<-c("x...
2017 Jun 23
0
Help: ifelse selection for x,y coordinates
...ls, Under these conditions : the distance to the reference coordinates must be under or equal to 50 meters + the value of G must be bigger or equal to 16.
>
> Here?s what I?ve done first :
>
>> kk<- function(x, y)
> + {
> + coordx<-data$x.Koordinate[data$G==24]
> + coordy<-data$y.Koordinate[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.Koordi...