Update swap.R