R/stop.identify.R

Defines functions stop.identify

Documented in stop.identify

stop.identify <-
function( xy)
{
#### xy is an n x 2 matrix with positions of points
#### ordered.list is a vector containing an ordered list of  identified points

set.template()
title(main='Join isopter points in order starting at 180 degrees working clockwise')

points( xy, pch=19)
ordered.list<-NA

stop1<- FALSE
for (i in 1:1000)
{
while(!stop1)
{
aux<- identify( xy, n=1)
stop1<- length( aux)==0
ordered.list<- c( ordered.list, aux)
}
}
ordered.list[-1]
}

Try the kineticF package in your browser

Any scripts or data that you put into this service are public.

kineticF documentation built on May 30, 2017, 5:47 a.m.