R/expandpoly.r

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

Any scripts or data that you put into this service are public.

pgirmess documentation built on May 29, 2024, 4:26 a.m.