Nothing
# 'R' and 'Qty' behave as in/out variables.
#
qrBlock <- function(X, y, R, Qty)
{
nrowX <- nrow(X)
ncolX <- ncol(X)
dimR <- ncol(R)
Ry <- .Fortran("rblock",
as.integer(dimR),
R = R,
as.integer(dimR),
as.integer(nrowX),
as.integer(ncolX),
X,
as.integer(nrowX),
double(nrowX),
double(dimR),
Qty = as.double(Qty),
as.double(y),
PACKAGE = "biglars")[c('R', 'Qty')]
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.