1 |
isub |
|
x |
|
y |
|
pr |
|
STAND |
|
corfun |
|
cop |
|
CPP |
|
... |
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 (isub, x, y, pr = FALSE, STAND = TRUE, corfun = corfun,
cop = cop, CPP = FALSE, ...)
{
isub = as.vector(isub)
if (!CPP)
corbsub <- scor(x[isub], y[isub], plotit = FALSE, pr = FALSE,
STAND = STAND, corfun = corfun, cop = cop, SEED = FALSE,
...)$cor
if (CPP)
stop("Need to use RStudio with WRScpp installed and use the file WRSC++")
corbsub
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.