Nothing
f_mlta_nstarts_wfix <- function(S, counts, G, D, nstarts, tol, maxiter, pdGH)
{
out <- f_mlta_wfix(S, counts, G, D, tol, maxiter, pdGH)
if(nstarts > 1){
for(i in 2:nstarts){
out1 <- f_mlta_wfix(S, counts, G, D, tol, maxiter, pdGH)
if(out1$LL > out$LL) out <- out1
}
}
return(out)
}
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.