R/SEARCHPIX.R

Defines functions `SEARCHPIX`

`SEARCHPIX` <-
function(KPX, IPX, tol=0.5)
  {
    ####  IPX is the set of pix in memory
    ####  KPX is the user locator pix
    
    t1 =yeardate(IPX$yr, IPX$jd, IPX$hr,IPX$mi,  IPX$sec )
    t2 =yeardate(KPX$yr, KPX$jd, KPX$hr,KPX$mi,  KPX$sec )
    
    wn = which(  abs(t2-t1) < tol)
    
    return(wn)
    
  }

Try the RSEIS package in your browser

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

RSEIS documentation built on Sept. 13, 2024, 1:09 a.m.