X <- table(letters[c(1,1,1,1,2,3,3)])
Y <- table(letters[c(1,1,1,1,3,4,4)])
Z <- table(letters[c(1,1,2,3,4,5,5)])
X+Y # defined but nonsense
# X+Z # returns an error
as.frab(X) + as.frab(Y) # correct answer
plot(as.table(rfrab()))
Run the code above in your browser using DataLab