Displaying 1 result from an estimated 1 matches for "fitphi".
Did you mean:
fitch
2009 Feb 24
0
Wavelet Bootstrap Size Simulation
...ts of results, as the Linux machine is significantly
faster and I would much prefer to run my simulations there. Does anyone have
an idea of the source of the discrepancy? Thank you in advance for any help
you can provide, and please excuse the inelegant coding!
# These functions define the test.
fitphi <- function(data,x,sub){
y<-1:length(x)
y<-(y-.5)/length(y)
(1/length(data))*sum(data*cos(pi*sub*y))
}
mos <- function(data, x){
rdata <- rank(data)/(length(x)+1)
Rn <- rep(0, length(x))
coeff <- Rn
for (i in 1:length(x)){
coeff[i] <- fitphi(data,x,i)
}
for (j...