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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.