Get basis

Get basis

get_basis(x)

Arguments

x

caracas vector / matrix

Examples

if (has_sympy()) {
  x <- vector_sym(3)
  get_basis(x)

  W <- matrix(c("r_1", "r_1", "r_2", "r_2", "0", "0", "u_1", "u_2"), nrow=4)
  W <- as_sym(W)
  get_basis(W)
}
#> $r_1
#>      [,1] [,2]
#> [1,]    1    0
#> [2,]    1    0
#> [3,]    0    0
#> [4,]    0    0
#> 
#> $r_2
#>      [,1] [,2]
#> [1,]    0    0
#> [2,]    0    0
#> [3,]    1    0
#> [4,]    1    0
#> 
#> $u_1
#>      [,1] [,2]
#> [1,]    0    0
#> [2,]    0    0
#> [3,]    0    1
#> [4,]    0    0
#> 
#> $u_2
#>      [,1] [,2]
#> [1,]    0    0
#> [2,]    0    0
#> [3,]    0    0
#> [4,]    0    1
#>