library(MaxSkew)
data(PM10_2006)
PM10_2006_matrix<-data.matrix(PM10_2006)
#source("SkewBoot.R")
#SkewBoot(PM10_2006_matrix[,2:5], 50, 50, "Partial")
#SkewBoot(PM10_2006_matrix[,2:5], 50, 50, "Mardia")
#SkewBoot(PM10_2006_matrix[,2:5], 50, 50, "Directional")
Run the code above in your browser using DataLab