Calculate curl of a polygon

Calculate curl of a polygon

Usage

st_calculateShapeCurl(sfPoly)

Arguments

sfPoly

POLYGON of class sf

Value

numeric; the curl of the polygon

Examples

matrix_R <- matrix(c(
    1, 1, 1, 1, 1, 0,
    1, 1, 0, 0, 1, 1,
    1, 1, 0, 0, 1, 1,
    1, 1, 1, 1, 1, 0,
    1, 1, 0, 1, 1, 0,
    1, 1, 0, 0, 1, 1,
    1, 1, 0, 0, 1, 1
), nrow = 7, byrow = TRUE)
poly_R <- binaryImageToSF(matrix_R, xmin = 0, xmax = 1, ymin = 0, ymax = 1)
st_calculateShapeCurl(poly_R)
#> $Curl
#> [1] 0.6637659
#> 
#> $fibreLength
#> [1] 2.974119
#> 
#> $fibreWidth
#> [1] 0.2401672
#>