Nothing
sraMinuslogL.log <-
function (sradata.log, FUNtimeseries = sraAutoregTimeseries,
Bulmer = TRUE, logvarME = log(1e-20), ...)
{
ss <- split(sradata.log, sradata.log$rep)
minuslogL <- 0
for (pop in ss) {
range <- 1:(nrow(pop) - 1)
tsr <- do.call(what = FUNtimeseries, args = c(list(beta = (pop$sel[range] -
pop$mean[range])/(pop$var[range]), delta = (pop$vsel[range] -
pop$var[range])/pop$var[range], ...)))
minuslogL <- minuslogL + sraAutoregTsMinuslogL.log(pop$mean,
pop$var, pop$N, tsr$mean, tsr$varP, logvarME = logvarME)
}
return(minuslogL)
}
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.