1 |
x |
|
y |
|
xout |
|
xmin |
|
xmax |
|
ymin |
|
ymax |
|
method |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ##---- 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, y, xout, xmin = min(x), xmax = max(x), ymin = min(x),
ymax = max(x), method = "linear")
{
if (method == "linear") {
yout <- approx(x, y, xout = xout)$y
}
if (any(method == c("fmm", "natural")) && length(method) ==
1) {
yout <- spline(x, y, xout = xout, method = method)$y
}
return(yout)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.