1moranI.boot<-function(data, i, ...) 2{ 3 data$Observed<-data$Observed[i] 4 return( moranI.stat(data, ...) ) 5 6} 7