R scripts that I use for sediment data