R/binarySum.R

Defines functions binarySum

binarySum <-
function(A,B){
  R<-matrix(0, length(A[,1]), length(A[1,]))
  for (i in 1:length(A[,1])){
    for (j in 1:length(A[1,])){
      if (A[i,j]!=B[i,j]) {R[i,j]<-1}
    }
  }
  return(R)
}
nickprock/automata2graph documentation built on Feb. 10, 2021, 9:40 a.m.