R/SDL.R

SDL <- function(samps){
	sdl.1 <- (1/length(samps))*sum((mean(log(samps), na.rm = TRUE) - log(samps))^2, na.rm = TRUE)
	sdl <- sqrt(sdl.1)
	return(sdl)
}

Try the binequality package in your browser

Any scripts or data that you put into this service are public.

binequality documentation built on May 2, 2019, 9:58 a.m.