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