Nothing
NHKaux2 <-
function(ri, lambdaC, lambdaD, posC, typeC, posD, typeD, T, typeEst)
{
Ku<-sapply(c(1:length(posC)), FUN =NHKaux3 ,lambdaC=lambdaC, lambdaD=lambdaD,
posC=posC, typeC=typeC, posD=posD, typeD=typeD, T=T,ri=ri, typeEst=typeEst)
Kr<-sum(Ku)
return(Kr)
}
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.