Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.