Displaying 1 result from an estimated 1 matches for "theobscase".
2010 Sep 09
0
Plotting dates and grid lines on the X-Axis of xyplot
...streams<-levels(pData$Stream)
} else {
pData <- subset(theData, theData$Well==theWell & (theData$Stream %in%
streams))
}
nStreams <- length(streams)
# process cases
pData$Case<-relevel(pData$Case, ref=obs)
theCases <- levels(pData$Case)
nCases <- nlevels(pData$Case)
theObsCase <- which(theCases==obs)[1]
types<-ifelse(1:nCases==theObsCase,"p","l")
theLegendLines <- 1:nCases==theObsCase
myFill.color=c("red","orange","ForestGreen","black","blue","DodgerBlue")[pData$Stream]
myPch.s...