R/circular-3.R

Defines functions bootAngMeanSE

Documented in bootAngMeanSE

#' Circular data - helpers
#'
#' Boostrapped standard error of angular mean
#' @export

bootAngMeanSE <- function(v,nsim=1000){
	bootmean <- function(v,i) angMean(v[i])
	bootRes <- boot::boot(v,bootmean,nsim)
	return(sd(bootRes$t,na.rm=T))
}
mattelisi/mlisi documentation built on Oct. 13, 2019, 5:59 p.m.