# A bivariate dataset
Mbiv<-c(2,3)
Rbiv<-length(Mbiv)
data(Nest)
data<-Nest*(pi/180)
estmeanresultant<-mnntestimationresultantvector(data,M=Mbiv,R=Rbiv)
estmeanresultant
# A trivariate dataset
Mtriv<-c(2,3,3)
Rtriv<-length(Mtriv)
data(WindDirectionsTrivariate)
data<-WindDirectionsTrivariate
estmeanresultant<-mnntestimationresultantvector(data,M=Mtriv,R=Rtriv)
estmeanresultant
Run the code above in your browser using DataLab