R/carma.S5 2.R

In arnevpladsen/CARMA: Calculate CARMA scores

Defines functions carma.S5

Documented in carma.S5 carma.S5

carma.S5 <-
function(seg) {
	L = (seg$endpos - seg$startpos)/10^6
	res = sum(L[seg$nMinor == 0]) 
    	return(res)
}