R/ReturnReceiverIndex.R

In RossDwyer/VTrack: A Collection of Tools for the Analysis of Passive Acoustic Telemetry Data

ReturnReceiverIndex <-
function(sReceiver, iArraySize, CoordArray)
{
  iResult <- -1
  for (i in 1:iArraySize)
    if (sReceiver == CoordArray[i,1])
      iResult <- i
  
  iResult
}