## The function is currently defined as
function (dir.name)
{
WorkinDir = paste(getwd(), "/", dir.name, "/", sep = "")
dir.create(WorkinDir)
file = list.files()
file.copy(file, WorkinDir)
setwd(WorkinDir)
unlink("muma.R")
}
Run the code above in your browser using DataLab