이해가 안 됩니다. r programming - Caching the Mean of a Vector

makeVector <- function(x = numeric()) {
m <- NULL
set <- function(y) {
x <<- y
m <<- NULL
}
get <- function() x
setmean <- function(mean) m <<- mean
getmean <- function() m
list(set = set, get = get,
setmean = setmean,
getmean = getmean)
}

cachemean <- function(x, ...) {
m <- x$getmean()
if(!is.null(m)) {
message("getting cached data")
return(m)
}
data <- x$get()
m <- mean(data, ...)
x$setmean(m)
m
}

environment 다른 곳에 x를 저장해 두고 (즉 cache같은 곳) vector의 mean 계산은 current working space에서 한다..
뭐 그 정도는 알겠는데... (서두 설명보고 이해했습니다. )
디테일하게는 이해가 안 됩니다. 사실 이 function 테스트도 못 해 보고 있습니다.
이해 가시는 분 계시면 좀 도와 주세요. 그리고 어떻게 테스트 할 수 있는지 예제도 좀 알려 주시면 감사하겠습니다.