First of all I'd like to thank all those who answered me back teaching me
different ways to get the calledfunction modify global data rather than its
own. I fixed that.
Now I have a similar pproblem. Whenever the caller passes a matrix to the
called function I thought the called function would make a copy of the passed
array in its own memory frame, modify its own copy, but be able to pass back
the results to the caller as follows ... but I am mistaken (I find all "NA" on
the second call ... how caome ?
"ford" <- function(X,N,Nfour,Kfour,LevMin,LevMax) {
............................................................
Y <- X
Nord <- Kord
if(Nord == 2){
cat("\n call HAAR \n")
Y <- Haar(Y,Nfour,1)
}else{
cat("\n call pwtset \n")
pwtset(Nord)
cat("\n call wt1 \n")
Y <- wt1(Y,Nfour,1)
cat("\n function 'ford' Y = ",Y,"\n")
}
#####################################################
"wt1" <- function (a,n,isign){
cat("\n BEGIN 'wt1' \n")
cat("\n 'wt1': n = ",n,"\n")
cat("\n 'wt1': a = ",a,"\n")
if (n < 4){
cat("\n function 'wt1': WRONG INPUT SIGNAL LENGTH \n")
return()
}
if(isign >= 0){
nn <- n
while(nn >= 4){
cat("\n call pwt \n")
a <- pwt(a,nn,isign)
nn <- nn/2
}
.......................................
cat("\n END 'wt1' \n")
a #RETURN WAVELET COEFFICIENTS
}# ------------------------------------ end function "wt1"
--------------------------------
tutti i telefonini TIM!
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
