####################### dirder
#######################
dirder=function(Bc.di,lam1.di,lam2.di,lam3.di){
m.di=dim(Bc.di)[1]
d.di=degree(m.di)
DerBc.di=d.di*de.cast.step(lam1.di,lam2.di,lam3.di,Bc.di)
return(DerBc.di)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.