Create diamonds.R