R/secdifv.R

Defines functions `secdifv`

`secdifv` <-
function(T1, T2)
{
#  T1 and T2 are vectors

 return(secdif(T1[1], T1[2], T1[3], T1[4], T2[1], T2[2], T2[3], T2[4]  ))
}

Try the RSEIS package in your browser

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

RSEIS documentation built on Aug. 19, 2023, 5:07 p.m.