### The Forsberg null test
forsberg.test <- function(x1, ...) {
  return(runif(1))
}