1 |
ri |
|
axis |
|
param |
|
jitter |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (ri, axis = 8, param = "beta", jitter = F)
{
ri[, param] <- round(ri[, param] * axis)/axis
ri <- ri[order(ri[, param]), ]
t3 <- tapply(ri[, param], ri[, param], length)
f1 <- NULL
for (i in 1:length(t3)) {
f1 <- c(f1, seq(1, t3[i]) + runif(1) * jitter)
}
ri$f1 <- f1
ri$param <- ri[, param]
rownames(ri) <- paste("Q", sub("cau", "", rownames(ri)),
sep = ".")
return(ri[, c("param", "f1")])
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.