# roct() > 0 # meaningless and returns an error
x <- as.octonion(matrix(sample(0:1,800,TRUE,p=c(9,1)),nrow=8))
y <- as.octonion(matrix(sample(0:1,800,TRUE,p=c(9,1)),nrow=8))
x==y
matrix(as.quaternion(100+1:12),3,4) == 102
Run the code above in your browser using DataLab