# R/CenterPolygon.R In LearnGeom: Learning Plane Geometry

#### Documented in CenterPolygon

```#' Computes the center of a given polygon. The center is obtained by averaging the x and y coordinates of the polygon
#'
#' \code{CenterPolygon} computes the center of a polygon
#' @param Poly Polygon object, previously created with either of the functions \code{CreatePolygon} or \code{CreateRegularPolygon}
#' @return Vector which contains the xy-coordinates of the center of the polygon
#' @examples
#' P1 <- c(0,0)
#' P2 <- c(1,1)
#' P3 <- c(2,0)
#' Poly <- CreatePolygon(P1, P2, P3)
#' C <- CenterPolygon(Poly)
#' x_min <- -5
#' x_max <- 5
#' y_min <- -5
#' y_max <- 5
#' CoordinatePlane(x_min, x_max, y_min, y_max)
#' Draw(Poly, "blue")
#' Draw(C, "red")
#' @export
CenterPolygon<-function(Poly){
P1=Poly[,1]
P2=Poly[,2]
C1=mean(P1)
C2=mean(P2)
C=c(C1,C2)
names(C)=c("X","Y")
return(C)
}
```

## Try the LearnGeom package in your browser

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

LearnGeom documentation built on July 14, 2020, 5:06 p.m.