R/na_funktion.R

In BCellMA: B Cell Receptor Somatic Hyper Mutation Analysis

#' The function to check for reconsrtruction errors
#'
#'
#' @param data from function germlineReconstr().
#' @return total number of NAs. If the answer is null then there are no errors in the germline reconstruction.
#'
#' @examples
#' germline<-germlineReconstr(IMGTtab2$V_REGION, IMGTtab7$V_REGION)
#' na_funktion(germline)
#'
#' @export
#'
na_funktion<-function(data){

  # data - Ergebnisse der germlineReconstr()
  # Ergebniss- Anzahl an NA in Keimbahngenen

  n<-rep(1, length(data))

  for(i in 1:length(data)){

    split<- strsplit(data[i]," || " )
    temp3<-matrix(unlist(split), ncol=1, byrow=TRUE)

    summme<-sum(is.na(temp3))
    n[i]<-summme

  }
  return((sum(n)))

}