bpm This is an R script for a function that will produce an estimate of beats per minute based on the rate of return presses