ScriptName <- function(dataname, args, **kwargs) { ... }