R/find_rows.R

In EwaMarek/FindReference: Find reference genes or miRNAs basing on microarray data.

# na wejście wektor z macierzy, wektor do porównania
# na wyjście jeśli identyczne 1, inaczej 0

find_rows = function(a, b){

  if(sum(a==b)==length(b)){c=TRUE}

  else{c=FALSE}


  return(c)

}