search for: xlabl

...jointplogp[is.nan(jointplogp)]<-0 #sum of joint probabilities hjoint<-sum(jointplogp)*-1 mut[i]<-hlh+hrh-hjoint #classic defn of mutual information maint<-paste("MI by Kernel Density is ",as.character(mut[i])) rhlab<-paste("rh lag ",as.character(i)) xlabl<-"lh" contour(kd$x1,kd$x2,kd$fhat,xlab=xlabl,ylab=rhlab,main=maint) #dammit not producing realistic numbers } return(mut) } Thanks Tim Parkin -- Checked by AVG Free Edition. [[alternative HTML version deleted]]

...n{document} \SweaveOpts{prefix.string=fig/Fig} \title{\textbf{Test SplomT} } \author{Christian W. Hoffmann} \maketitle <<O,fig=TRUE>>= plot(0,xlab="This is for test purposes only") @ <<A,fig=TRUE>>= SplomT <- function (data, mainL = deparse(substitute(data)), xlabL = "", hist = "h", adjust = 1, hist.col = trellis.par.get("strip.background")$col[5], cex.diag = 1, h.diag=0.4, colYonX = "red", colXonY = "blue", ...) { stopifnot (hist %in% c("h", "d", "b")) data <- data....