## File Name: tam_theta_sq1.R
## File Version: 0.07
tam_theta_sq1 <- function(theta)
{
theta2 <- array(,dim=c(nrow(theta), ncol(theta), ncol(theta) ) )
for( qq in 1:nrow(theta) ){
theta2[qq,,] <- tcrossprod( theta[qq,] )
}
return(theta2=theta2)
}
theta.sq <- tam_theta_sq1
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.