R/rtef.R

rtef <- function(x, theta = seq(-4, 4, length = 100)){

  out <- list(theta = theta)
  out$e <- 1/sqrt(rtif(x, theta)$pq)

  class(out) <- "rtef"

  return(out)
}
talbano/rwinsteps documentation built on May 24, 2019, 7:31 a.m.