Wobj <- sine(440, bit = 16)
# extracting the middle 0.5 seconds of that 1 sec. sound:
Wobj2 <- extractWave(Wobj, from = 0.25, to = 0.75, xunit = "time")
Wobj2
# or interactively:
Wobj2 <- extractWave(Wobj)
Run the code above in your browser using DataLab