R/expandpoly.r

In pgirmess: Spatial Analysis and Data Mining for Field Ecologists

Defines functions expandpoly

Documented in expandpoly

expandpoly<-function(mypol,fact){
m1<-mean(mypol[,1]);m2<-mean(mypol[,2])
cbind((mypol[,1]-m1)*fact+m1,(mypol[,2]-m2)*fact+m2)
}

Try the pgirmess package in your browser