R/writeEnv.R

In LEA: LEA: an R package for Landscape and Ecological Association Studies

write.env <- function(R, output.file) 
{
    if(missing(R))
        stop("'R' argument is missing.")
    else if (!(is.matrix(R) || is.data.frame(R) || is.vector(R)))
        stop("'R' argument has to be of type matrix, data.frame or vector.")
    else if (is.vector(R))
        R = matrix(R,ncol=1,nrow=length(R))
    else if (is.data.frame(R))
        R = as.matrix(R)

    output.file = test_character("output.file", output.file, NULL)

    if(anyNA(R)) {
        stop("'R' matrix contains NA.")
    }

    write.table(R,output.file, col.names=FALSE,row.names=FALSE);
    return(output.file);
}