smvar:

In musto101/wilcox_R: What the package does (short line)

Usage

smvar(x, y, fr = 0.6, xout = TRUE, eout = FALSE, xlab = "X", ylab = "VAR(Y|X)", pyhat = FALSE, plotit = TRUE, nboot = 40, RNA = FALSE, SEED = TRUE)

Arguments

x
y
fr
xout
eout
xlab
ylab
pyhat
plotit
nboot
RNA
SEED

Examples

##---- 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, fr = 0.6, xout = TRUE, eout = FALSE, xlab = "X", 
    ylab = "VAR(Y|X)", pyhat = FALSE, plotit = TRUE, nboot = 40, 
    RNA = FALSE, SEED = TRUE) 
{
    temp <- cbind(x, y)
    temp <- elimna(temp)
    x <- temp[, 1]
    y <- temp[, 2]
    yhat <- lplot(x, y, pyhat = TRUE, plotit = FALSE)$yhat.values
    yvar <- (y - yhat)^2
    estvar <- runmbo(x, y, est = var, pyhat = TRUE, fr = fr, 
        plotit = FALSE, RNA = RNA, nboot = nboot)
    if (plotit) {
        plot(c(x, x), c(yvar, estvar), type = "n", xlab = xlab, 
            ylab = ylab)
        points(x, yvar)
        sx <- sort(x)
        xorder <- order(x)
        sysm <- estvar[xorder]
        lines(sx, sysm)
    }
    output <- "Done"
    if (pyhat) 
        output <- estvar
    output
  }

musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.