R/getPoints.R

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