Displaying 1 result from an estimated 1 matches for "sincol".
Did you mean:
sincos
2007 Dec 19
0
leaps
...xx$timestamp[start]
nsamples <- end +1 - start
nfr <- ceiling(nsamples/2)
yy <- xx[start:end,"amplitude"]
tt <- xx[start:end,"timestamp"]
cosmat <- matrix(nrow=nsamples,ncol=nfr)
coscol <- NULL
sinmat <- matrix(nrow=nsamples,ncol=nfr)
sincol <- NULL
for(i in 1:nfr){
cosmat[,i] <- cos(tt*2*pi*i/T)
coscol <- c(coscol,paste("cos",i,sep=""))
sinmat[,i] <- sin(tt*2*pi*i/T)
sincol <- c(sincol,paste("sin",i,sep=""))
}
colnames(cosmat) <- coscol
colnames(s...