R/zzz.R

In onion: Octonions and Quaternions

"O0"  <- octonion(Re=0)
"O1"  <- octonion(Re=1)
"Oi"  <- octonion( i=1)
"Oj"  <- octonion( j=1)
"Ok"  <- octonion( k=1)
"Ol"  <- octonion( l=1)
"Oil" <- octonion(il=1)
"Ojl" <- octonion(jl=1)
"Okl" <- octonion(kl=1)
"Oall" <- as.octonion(rep(1,8),single=TRUE)
"Oim" <- as.octonion(c(0,rep(1,7)),single=TRUE)


"H0"  <- quaternion(Re=0)
"H1"  <- quaternion(Re=1)
"Hi"  <- quaternion( i=1)
"Hj"  <- quaternion( j=1)
"Hk"  <- quaternion( k=1)
"Hall" <- as.quaternion(rep(1,4),single=TRUE)
"Him" <- as.quaternion(c(0,1,1,1),single=TRUE)