R/read.fwf2.R

Defines functions read.fwf2

Documented in read.fwf2

## File Name: read.fwf2.R
## File Version: 0.09


#*** This function reads fwf files
read.fwf2 <- function( file, format.full, variables=NULL)
{
    format <- format.full
    ff <- readLines( file )
    ind.ff1 <- c( 1, cumsum(format)[- length(format) ] + 1 )
    ind.ff2 <- cumsum(format)
    I <- length(format)
    n <- length( ff )
    dfr <- data.frame( matrix(0, nrow=n, ncol=I ) )
    for (ii in 1:I){
        dfr[,ii ] <- as.numeric( substring( ff, ind.ff1[ii], ind.ff2[ii] )  )
    }
    if (!is.null(variables)){ colnames(dfr) <- variables }
    return(dfr)
}

Try the miceadds package in your browser

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

miceadds documentation built on May 29, 2024, 11:05 a.m.