Contents − “… ” ˇ… ˇ… ” − ˇ… ˇ… ˇ… ” ˇ… ˇ… − R ˇ… /SampleFiles library(sound) # R # .wav Sample (sound loadSample) s<-loadSample("wren2B.wav") s # library(sound) s<-loadSample("wren2B.wav") ?loadSample loadSample − # ss <- s # sound(ss)[1,] <- sound(ss)[1,]*0.5 # saveSample(ss,"wren_copy.wav") # b<-loadSample("bush.wav") library(seewave) write.table(sound(b)[1,],file="bush.txt") # library(tuneR) s