Update Ladder creation.R