#Load dataset into workspace
data(drill)
#Estimate central orientation of the first subect's wrist
Subject1Wrist<-subset(drill,Subject==1 & Joint=="Wrist")
Qs<-as.Q4(data.matrix(Subject1Wrist[,5:8]))
mean(Qs)
Run the code above in your browser using DataLab