cachevector log

> source("cachevector.R")
> v <- 1:6
> v <- makeVector(v)
> v$get()
$set
function (y)
{
    x <<- y
    m <<- NULL
}
<environment: 0x0000000015154618>

$get
function ()
x
<environment: 0x0000000015154618>

$setmean
function (mean)
m <<- mean
<environment: 0x0000000015154618>

$getmean
function ()
m
<environment: 0x0000000015154618>

>