powered by
geomean(xy, w)
x
xy <- cbind(x=c(-179,179, 177), y=c(12,14,16)) xy geomean(xy)
Run the code above in your browser using DataLab