Nothing
`cond.hist.max` <-
function(A){
require(lattice)
sundar.theme <- function() {
par <- col.whitebg()
par$strip.background$col <- rep("#000099", 7)
par$add.text$col <- "#eeeeaa"
par$add.text$font <- 2
par$background$col <- "#ffffff"
par$superpose.line$lty <- rep(1, 7)
par$superpose.line$col[1:2] <- c("#880000", "#008800")
par$superpose.symbol$col[1:2] <- c("#880000", "#008800")
par
}
trellis.par.set(sundar.theme())
print( # necessary if the file is source()'d
histogram( ~ max.D | paste("r=",as.character(r),sep="") + paste("T=",as.character(round(trans,2)),sep=""), data = A,
xlab ="maximum drift", type = "percent",
panel = function(x, ...) {
panel.histogram(x, ...)
# panel.mathdensity(dmath = dnorm, col = "black",
# args = list(mean=mean(x),sd=sd(x)))
} )
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.