optC<-function(mu, Sin){ optcont<-Sin%*%(mu-sum(mu*rowSums(Sin))/sum(Sin)) contMat<-(optcont-sum(optcont))/sqrt(sum(optcont^2)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.