Nothing
density.lengths <-
function (x, ..., log = FALSE, zeros.rm = TRUE) {
zrs <- x$zeros
newlen <- x$length + 0
if (zeros.rm & x$zeros) {
newlen <- x$length + x$maxcens
zrs <- FALSE
}
res <- tapply(newlen, x$categories, function (Lengths) {
xx <- log(Lengths + .Machine$double.eps * zrs)
from <- min(xx)
to <- max(xx)
res <- density(xx, ..., from = from, to = to)
if (!log) {
res$x <- (exp(res$x) - .Machine$double.eps * zrs)
res$y <- res$y / res$x
}
return(res)})
res$direction <- x$direction
res$log <- log
class(res) <- "density.lengths"
return(res)
}
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.