Create swap.R