R/TT.R

Defines functions TT

Documented in TT

TT <-
function(M1, M2)
{
nn <- nrow(M1)
S <- c()
for (itt in 1 : nn)
{
S[itt] <- sum(M1[itt, ]*M2[, itt])
}
trace <- sum(S)
return(trace)
}

Try the SPA3G package in your browser

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

SPA3G documentation built on May 2, 2019, 11:12 a.m.