Simple function to transform a dependent variable that in [0,1] rather than (0, 1) to beta regression. Suggested by Smithson & Verkuilen (2006).

svTransform.R

#' Simple function to transform a dependent variable that in [0,1] rather than 
#' (0, 1) to beta regression. Suggested by Smithson & Verkuilen (2006).
#' 
#' @param y vector of the dependent variable that is in [0, 1].

svTransform <- function(y)
{
    n <- length(y)
    transformed <- (y * (n-1) + 0.5)/n
    return(transformed)
}