Nothing
peakDerivativeSkewnessCalculator <- function(rt, int) {
der1_rt_int <- derivative5pointsStencil(rt, int, n = 1)
der1_skewness <- abs(log(-max(der1_rt_int)/min(der1_rt_int)))
return(der1_skewness)
}
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.