Nothing
fitDistances <- function(x, family) {
getDistances <- function(x) {
rep(x$distances, x$seed.counts)
}
getEstimates <- function(distance) {
fitdistr(distance, family)$estimate
}
distances <- lapply(x$transects, getDistances)
parameter.list <- lapply(distances, getEstimates)
parameters <- colMeans(do.call(rbind, parameter.list))
return(parameters)
}
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.