# Create artificial data
k <- 5
tt <- 4
n_covar <- (k - 1) * k / 2
# Constant parameters
psi <- matrix(1:(n_covar))
covar_vector_to_matrix(psi, k, tt)
# Time varying parameters
psi <- matrix(1:(n_covar * tt))
covar_vector_to_matrix(psi, k, tt)
Run the code above in your browser using DataLab