1 |
x |
|
y |
|
est |
|
plotit |
|
pyhat |
|
... |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ##---- 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, est = onestep, plotit = TRUE, pyhat = FALSE,
...)
{
temp <- sort(unique(x))
yhat <- NA
for (i in 1:length(temp)) {
flag <- (temp[i] == x)
yhat[i] <- est(y[flag], ...)
}
plot(x, y)
lines(temp, yhat)
output <- "Done"
if (pyhat)
output <- yhat
output
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.