Displaying 2 results from an estimated 2 matches for "sinmat".
2007 Dec 18
0
R command "leap"
...t[, 22] + cosmat[, 25] +
cosmat[, 29] + cosmat[, 30] + cosmat[, 31] + cosmat[, 38] +
cosmat[, 42] + cosmat[, 44] + cosmat[, 45] + cosmat[, 46] +
cosmat[, 47] + cosmat[, 48] + cosmat[, 49] + cosmat[, 50] +
cosmat[, 51] + cosmat[, 52] + cosmat[, 53] + cosmat[, 54] +
cosmat[, 56] + sinmat[, 1] + sinmat[, 3] + sinmat[, 4] +
sinmat[, 5] + sinmat[, 6] + sinmat[, 8] + sinmat[, 9] + sinmat[,
10] + sinmat[, 13] + sinmat[, 14] + sinmat[, 17] + sinmat[,
19] + sinmat[, 22] + sinmat[, 23] + sinmat[, 26] + sinmat[,
35] + sinmat[, 36] + sinmat[, 39] + sinmat[, 43] + sinmat[,...
2007 Dec 19
0
leaps
...***************
T <- xx$timestamp[end] - 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=""))...