1 | kdplot(x, rval = 15, xlab = "X", ylab = "Y")
|
x |
|
rval |
|
xlab |
|
ylab |
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 (x, rval = 15, xlab = "X", ylab = "Y")
{
x <- x[!is.na(x)]
y <- sort(x)
z <- 1
temp <- floor(0.01 * length(x))
if (temp == 0)
temp <- 5
ibot <- y[temp]
itop <- y[floor(0.99 * length(x))]
xaxis <- seq(ibot, itop, length = rval)
for (i in 1:rval) z[i] <- kerden(x, 0, xaxis[i])
plot(xaxis, z, xlab = xlab, ylab = ylab)
lines(xaxis, z)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.