R/tam_mml_compute_AXsi.R

Defines functions tam_mml_compute_AXsi

## File Name: tam_mml_compute_AXsi.R
## File Version: 0.04

tam_mml_compute_AXsi <- function( A, xsi )
{
    dimA <- dim(A)
    AXsi <- matrix( NA, nrow=dimA[1], ncol=dimA[2] )
    for (kk in 1:dimA[2]){
        AXsi[,kk] <- A[,kk,] %*% xsi
    }
    return(AXsi)
}

Try the TAM package in your browser

Any scripts or data that you put into this service are public.

TAM documentation built on Aug. 29, 2022, 1:05 a.m.