wr.test <- function(...) UseMethod("wr.test")