old/ops_matrix_scalar.R

In jtatria/euclid: Useful primitives for euclidean geometry

# Matrix-Scalar ops ---------------------------------------------------------------------------

#' Compute area of the minimal rectangle containing the given object
#' @export
size <- function( m ) {
    maj <- axis_major( m )
    min <- axis_minor( m, major=maj )
    return( vnorm( maj ) * vnorm( min ) )
}