Displaying 1 result from an estimated 1 matches for "ydistanc".
Did you mean:
ydistance
2012 Feb 03
1
incomplete final line found on <name of my sourced function file>
...0","#104E8B","#228B22")[20:1]
myagg<-aggregate(indata[invars],by=indata[datesvar],FUN=myfunction)
yrange=range(pretty(as.matrix(myagg[2:length(myagg)])))
if(fixedy==0){
ymin<-yrange[1]
ymax<-yrange[2]} else {
ymin<-0
ymax<-yrange[2]}
ydistance<-ymax-ymin
if(ydistance>0.1 & ydistance<=1){mystep<-0.1} else {
if(ydistance>1 & ydistance<=10){mystep<-1/2} else {
if(ydistance>10 & ydistance<=100) {mystep<-10/5} else {
if(ydistance>100 & ydistance<=1000) {mystep<-100/5} else...