sf.1 = readWave("C:/Users/Mark/Desktop/RInvest/Morse Code/Sound Files/140625_10WPM.wav") # defining the morse to text function: m.to.text.func = function(sound.file){ # read data into a dataframe df = data.frame(indx = 1:length(sound.file@left), vec = sound.file@left) ...