############################################################

    # create new environment
    zz <- new.env()

    # create an object inside the environment
    zz$foo <- 0:4

    # function that modifies the object
    changer <- function(envToMod, ex) {
       envToMod$foo <- envToMod$foo * ex
    }


    zz$foo # [1] 0 1 2 3 4

    # call to changer function
    changer(zz, 2)

    zz$foo # [1] 0 2 4 6 8
############################################################