R/read.pfile.R

Defines functions read.pfile

Documented in read.pfile

read.pfile <- function(filename, skip = 1, col.names,
    sep = ",", ...) {

    out <- read.table(filename, skip = skip, sep = sep, ...)

    if(!missing(col.names))
        colnames(out) <- col.names
    else {
        colnames(out) <- gsub("X.", "", colnames(out))
        colnames(out) <- tolower(colnames(out))
    }

    out <- as.pfile(out)

    return(out)
}

Try the Rwinsteps package in your browser

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

Rwinsteps documentation built on May 2, 2019, 1:08 p.m.