R/carma.S6.R

carma.S6 <-
function (seg) {
    L = (seg$endpos - seg$startpos)/10^6
	H = (seg$nMajor - seg$nMinor)
	res = sum(L * (H^2))
#    res = sqrt(res)
    	return(res)
}
arnevpladsen/CARMA documentation built on Dec. 19, 2021, 4:39 a.m.