##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (){phi<-runif(1,-pi,pi)theta<-runif(1,-pi,pi)psi<-runif(1,-pi,pi)euler_orth(phi,theta,psi)}