fix combine.R