R/getpm.R

#' getpm
#' @param x
#' @export
#'
getpm=function(x){
	sapply(x,function(xx) sum(xx[,1])) - sapply(x,function(xx) sum(xx[,2]))
	}
arnejohannesholmin/AJ documentation built on May 27, 2019, 4:06 a.m.