Displaying 1 result from an estimated 1 matches for "setzero".
Did you mean:
setzer
2005 Nov 04
1
problem in waveslim library?
...6666667,933.8,923.533333333333,938.333333333333,936.133333333333,913.866666666667,921.066666666667,952.4,951.133333333333,932.666666666667,924.6,959.4,947.333333333333,924.266666666667,906.666666666667,922.533333333333,950,985.266666666667,983.533333333333,964.2,945.6,945.6,947.733333333333,958.8)
setZeros<-function(data,factors=list()){
for(factor in factors){
sFac<-paste('d',factor,sep='')
data[sFac]<-rep(0,length(data[sFac]))
}
return(data)
}
data.dwt<-dwt(data[[2]],n.levels=8)
opar<-par(mfrow=c(4,2),mar=c(2,2,2,2))
mlist<-c(1:8)
for(...