R script for analyzing data for the RMA flower experiment