seewave_IO.R
In seewave: Sound Analysis and Synthesis

### R code from vignette source 'seewave_IO.rnw'

###################################################
### code chunk number 1: warnings
###################################################
options(warn=-1)


###################################################
### code chunk number 2: s1
###################################################
s1<-sin(2*pi*440*seq(0,1,length.out=8000))
is.vector(s1)
mode(s1)
library(seewave)
oscillo(s1,f=8000)


###################################################
### code chunk number 3: s2
###################################################
s2<-as.matrix(s1)
is.matrix(s2)
dim(s2)
oscillo(s2,f=8000)


###################################################
### code chunk number 4: s3
###################################################
x<-rnorm(8000)
s3<-cbind(s2,x)
is.matrix(s3)
dim(s3)
oscillo(s3,f=8000)


###################################################
### code chunk number 5: s4a
###################################################
s4<-ts(data=s1, start=0, frequency=8000)
str(s4)


###################################################
### code chunk number 6: s4b
###################################################
s4<-ts(data=runif(4000), start=0, end=0.5, frequency=8000)
str(s4)


###################################################
### code chunk number 7: s4c
###################################################
frequency(s4)
deltat(s4)


###################################################
### code chunk number 8: s4d
###################################################
oscillo(s4)


###################################################
### code chunk number 9: s5
###################################################
s5<-ts(data=s3,f=8000)
class(s5)
oscillo(s5)


###################################################
### code chunk number 10: readWave
###################################################
library(tuneR)
mysong<-synth(d=60,f=8000,cf=1000,output="Wave")
writeWave(mysong, file="mysong.wav")


###################################################
### code chunk number 11: s6
###################################################
s6<-readWave("mysong.wav")


###################################################
### code chunk number 12: s7a
###################################################
s7<-readWave("mysong.wav", from = 1, to = 5, units = "seconds")
s7


###################################################
### code chunk number 13: s7b
###################################################
s7@samp.rate
s7@bit
s7@stereo


###################################################
### code chunk number 14: rangereadWave
###################################################
range(s7@left)


###################################################
### code chunk number 15: s11 (eval = FALSE)
###################################################
## s11 <- rep(NA_real_, 16000*5)
## record(s11, 16000, 1)


###################################################
### code chunk number 16: exporta
###################################################
data(tico)
export(tico, f=22050, header=FALSE)


###################################################
### code chunk number 17: exportb
###################################################
export(tico, f=22050, filename="tico_Gold.txt")


###################################################
### code chunk number 18: exportc
###################################################
export(tico, f=22050, filename="tico_ext.txt",
header="f=22050; ch=left")


###################################################
### code chunk number 19: savewave (eval = FALSE)
###################################################
## savewav(tico, f=22050)


###################################################
### code chunk number 20: savewavb (eval = FALSE)
###################################################
## ticofirst<-cutw(tico, f=22050, to=0.5, output="Wave")
## savewav(ticofirst, filename = "tico_firstnote.wav")


###################################################
### code chunk number 21: s12
###################################################
left<-sine(440)
right<-sine(2000)
s12<-stereo(left,right)
s12


###################################################
### code chunk number 22: s13
###################################################
s13<-mono(s12,"left")


###################################################
### code chunk number 23: seewave_IO.rnw:294-295
###################################################
s14<-channel(s12,"right")


###################################################
### code chunk number 24: s14
###################################################
s13<-s12@left
is.vector(s13)
s14<-s12@right
is.vector(s14)