Data transformed from datab6fisher
data(Datab6fisher_ready)Datab6fisher_ready
dataaux <- datab6fisher; datab6fisher[,1] <- dataaux[,2]; datab6fisher[,2] <- dataaux[,1]; datab6fisher[,1] <- 360 - datab6fisher[,1]; datab6fisher[,2] <- 90 + datab6fisher[,2]; datab6fisher_ready <- datab6fisher*(pi/180)