Delete First R function.R