R/getLPSscore.R

In ajiangsfu/PRPS: Binary classification with PRPS, PRPS-ST and more

#' A function rather aimed at developers
#' @noRd

getLPSscore = function(vdat, coefs){
  tmp = which(is.na(vdat))
  if(length(tmp) > 0){
    vdat = vdat[-tmp]
    coefs = coefs[-tmp]
  }
  aScore = mapply(function(x,y){x*y}, x=vdat, y=coefs)
  aScore = sum(unlist(aScore))
  return(aScore)
}