x <- 25 s <- 5 test <- function(x){ s <- 1/x }