[R] scoping issues?

From: tom wright <tom_at_maladmin.com>
Date: Thu 08 Dec 2005 - 22:47:05 EST


Can anyone please help me understand whats happening here? Thanks
Tom

getAmpRatio<-function(v_amps){

    #calculates the amplitude ratios between the 3 largest amps and the rest

    bigamp<-0
    map<-rep(TRUE,length(v_amps))

    for(iLoc in 1:3){

        bigamp<-bigamp+max(v_amps)
        map[which.max(v_amps)]<-FALSE
        v_amps<-v_amps[map]
        map<-rep(TRUE,length(v_amps))

    }
    browser()
    return(bigamp/mean(v_amps))
}

amps<-c(1,2,3,3,3,2,1)
getAmpRatio(amps)

Browse[1]> v_amps
[1] 1 1 2 2 1
Browse[1]> c(amps[1],amps[2],amps[3],amps[7],amps[8])
[1] 1 1 2 2 1
Browse[1]> mean(v_amps)
[1] 1.4

Browse[1]> mean(amps[1],amps[2],amps[3],amps[7],amps[8])
[1] 1



R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Fri Dec 09 04:50:23 2005

This archive was generated by hypermail 2.1.8 : Fri 03 Mar 2006 - 03:41:34 EST