Unused argument `simname` in `create_sup_file()`

The argument simname in create_sup_file <- function(simfolder, simname) isn't actually used.

Maybe it was supposed to used instead of the hardcoded socsim.sup? See the line sup.fn <- "socsim.sup".