Evaluate the induced metric of a quadform geometry

Evaluate the induced metric of a quadform geometry

Usage

quadform.metric(geometry, latent)

Arguments

geometry

A synthetic_quadform_geometry.

latent

Finite latent coordinates in rows.

Value

For one row, a d by d matrix; otherwise an n by d by d array.

Examples

geometry <- synthetic.quadform(1L, 2L, forms = list(matrix(1)))
quadform.metric(geometry, matrix(c(0, 1), ncol = 1))
#> , , 1
#> 
#>      [,1]
#> [1,]    1
#> [2,]    5
#>