R/circular_ext.R

In faridcher/futils: Farid utility functions

#' #' @export
#' watson.two.test <- function(x,...) UseMethod("watson.two.test",x)
#'
#' #' @export
#' watson.two.test.default <- function(x,y,alpha=0)
#'   circular::watson.two.test(x, y, alpha=0)
#'
#' #' @export
#' watson.two.test.formula <- function (formula, data, subset, na.action,...,alpha=0 )
#' {
#'
#'   DATA <- setNames(split(mf[[response]], g), c("x", "y"))
#'   y <- do.call("watson.two.test.default", c(DATA, alpha))
#'   y$data.name <- DNAME
#'   y
#' }