R/fds.R

fds <- function (x, y, xname, yname)
{
    if (missing(xname))
        xname <- deparse(substitute(x))
    if (missing(yname))
        yname <- deparse(substitute(y))
    y <- as.matrix(y)
    if (is.null(colnames(y)))
    {
        colnames(y) = 1:ncol(y)
        # warning("Please assign column name for the data matrix.")
    }
    if (length(x) != nrow(y))
        stop("Dimensions do not match")
    return(structure(list(x = x, y = y, xname = xname,
        yname = yname), class = "fds"))
}

Try the rainbow package in your browser

Any scripts or data that you put into this service are public.

rainbow documentation built on May 29, 2024, 5:52 a.m.