R/read.fwf2.R

In miceadds: Some Additional Multiple Imputation Functions, Especially for 'mice'

## 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)
}