Correlation Gaussian matrix in C using Armadillo (symmetric)

About 30

Usage

corr_gauss_matrix_sym_armaC(x, theta)

Arguments

x

Matrix x

theta

Theta vector

Value

Correlation matrix

Examples

corr_gauss_matrix_sym_armaC(matrix(c(1,0,0,1),2,2),c(1,1))
#>           [,1]      [,2]
#> [1,] 1.0000000 0.1353353
#> [2,] 0.1353353 1.0000000

x3 <- matrix(runif(1e3*6), ncol=6)
th <- runif(6)
t3 <- corr_gauss_matrix_symC(x3, th)
t4 <- corr_gauss_matrix_sym_armaC(x3, th)
identical(t3, t4)
#> [1] TRUE
# microbenchmark::microbenchmark(corr_gauss_matrix_symC(x3, th),
#                     corr_gauss_matrix_sym_armaC(x3, th), times=50)