Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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)
- }
Add Comment
Please, Sign In to add comment