Nothing
dae.nonspecific <-
function(zpre,rel,zpost,mmat,componentname,cnames,cnamesie,emat,vmat,icol,iecol,gls)
# dae.nonspecific() - expectations for a nonspecific component
# zpre,zposr are zi or zm or zc
{
nszpre <- zpre[["NS"]]
nszpost <- zpost[["NS"]]
# zaz <- matrix(0,nrows(emat),nrows(emat)
zaz <- nszpre %*% rel %*% t(nszpost)
emat[,icol] <- as.vector(mmat %*% zaz %*% mmat) # one col of W matrix
if(gls) {
vmat[,icol] <- as.vector(zaz) # one col of V matrix
}
cnames[icol] <- componentname # name for this col
icol <- icol + 1
daelist <- list(cnames=cnames,cnamesie=cnamesie,emat=emat,vmat=vmat,icol=icol,iecol=iecol)
return(daelist)
}
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.