Displaying 1 result from an estimated 1 matches for "jumpnum".
Did you mean:
empnum
2003 Jun 04
4
Strip location and grid colour in Lattice
...here), but the functions that I worked out for the at and
label functions were
ProcLab <- function(DateData,breakNum){
maxplot <- round(as.numeric(max(DateData)),digits=0)
minplot <- round(as.numeric(min(DateData)),digits=0)
maxplotnum<- round(((maxplot-minplot)/86400)+1,digits=0)
jumpnum <- (maxplotnum/((breakNum)-1))*.98
lablist <- seq(min(DateData),max(DateData),jumpnum*86400)
}
ProcAt <- function(DateData,breakNum){
maxplot <- round(as.numeric(max(DateData)),digits=0)
minplot <- round(as.numeric(min(DateData)),digits=0)
maxplotnum<- round(((maxplot-minp...