R exercise: Create a replacement function that modifies a random location in vector. http://adv-r.had.co.nz/Functions.html

randomreplace.r

"random<-" <- function(object, position, value) {
  object[sample(seq_along(object), 1)] <- value
  object
}

# Example:
# > x <- c(1,2,3,4,5)
# >  random(x) <- 10
# > x
# [1]  1 10  3  4  5