Finnegans wake quaternion

con<-url("https://ia801302.us.archive.org/17/items/finneganswake00joycuoft/finneganswake00joycuoft_djvu.txt")
finnegan<-scan(con,what="char")
finnegan_quaternion<-str_replace_all(tolower(finnegan),"[^ijk]","")
finnegan_quaternion<-finnegan_quaternion[str_length(finnegan_quaternion)>0]
finnegan_quaternion<-unlist(str_split(finnegan_quaternion,""))

quat.def<-matrix(nrow=8,ncol=3)
rownames(quat.def)<-c("p1",
                      "n1",
                      "pi",
                      "ni",
                      "pj",
                      "nj",
                      "pk",
                      "nk")
colnames(quat.def)<-c("i","j","k")
quat.def[1,1]<-"pi"
quat.def[2,1]<-"ni"
quat.def[3,1]<-"n1"
quat.def[4,1]<-"p1"
quat.def[5,1]<-"nk"
quat.def[6,1]<-"pk"
quat.def[7,1]<-"pj"
quat.def[8,1]<-"nj"

quat.def[1,2]<-"pj"
quat.def[2,2]<-"nj"
quat.def[3,2]<-"pk"
quat.def[4,2]<-"nk"
quat.def[5,2]<-"n1"
quat.def[6,2]<-"p1"
quat.def[7,2]<-"nj"
quat.def[8,2]<-"pj"

quat.def[1,3]<-"pk"
quat.def[2,3]<-"nk"
quat.def[3,3]<-"nj"
quat.def[4,3]<-"pj"
quat.def[5,3]<-"pi"
quat.def[6,3]<-"ni"
quat.def[7,3]<-"n1"
quat.def[8,3]<-"p1"



finnegan_quaternion[1]<-"i"
finnegan_res<-vector(length=length(finnegan_quaternion))
finnegan_res[1]<-"pi"
for(i in 2:length(finnegan_quaternion)){
  finnegan_res[i]<-quat.def[finnegan_res[i-1],finnegan_quaternion[i]]
}