dera researchers,

I wish to get the value of perimeter in my own area (mywindow), but I have
the following problem

xy <-
rbind(c(mywindow$xrange[[1]],mywindow$yrange[[1]]),c(mywindow$xrange[[2]],mywindow$yrange[[1]]),c(mywindow$xrange[[1]],mywindow$yrange[[2]]),c(mywindow$xrange[[2]],mywindow$yrange[[2]]))
perimeter(xy)
Error in if (all.equal(x[1, ], x[nrow(x), ])) { :
  the argument is not logic

xy <-
rbind(c(579471.4,6757500),c(581081.3,6757500),c(579471.4,6761301),c(581081.3,6761301))
plot(xy)
perimeter(xy)

same error

thanks for attention
Gianni

	[[alternative HTML version deleted]]

