Usage
# S3 method for class 'spherical'
inertia_tensor(x, w = NULL)
inertia_tensor(x, w = NULL)
Arguments
- x
object of class "Vec3", "Line", "Ray", "Plane", "Pair", or "Fault",
where the rows are the observations and the columns are the coordinates.
- w
numeric. weightings
Details
$$D = n - (x_i, y_i, z_i) (x_i, y_i, z_i)^T$$
Examples
set.seed(20250411)
x <- rfb(100, mu = Line(120, 50), k = 1, A = diag(c(10, 0, 0)))
inertia_tensor(x)
#> [,1] [,2] [,3]
#> [1,] 91.90424 108.76912 105.92867
#> [2,] 108.76912 64.94049 98.68614
#> [3,] 105.92867 98.68614 43.15527
