Displaying 1 result from an estimated 1 matches for "sfac".
Did you mean:
fac
2005 Nov 04
1
problem in waveslim library?
...7,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(iFac in 1:8){
#flist<-mlist[mlist!=iFac]
ndata<-setZeros(data.d...