# Example function to be tested.
linear_transformation <- function(x) {
    return (2*x + 1)
}