f <- function(x, y) {
  return(x + y)
}

save(f, file = 'C:\Users\Joyce\Documents\R\Secret.rda')

load("C:\Users\Joyce\Documents\R\Secret.rda")