Update permute1.R