Displaying 1 result from an estimated 1 matches for "bigamp".
2005 Dec 08
3
scoping issues?
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)
g...