R/crlrem.R

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

## File Name: crlrem.R
## File Version: 1.06

# remove line endings
crlrem <- function( filename1, filename2 )
{
    filename <- filename1
    con <- file(filename, "rb")
    bin <- readBin(con, raw(), 100000)
    bin <- bin[ which(bin !="0d") ]
    close(con)
    Sys.sleep(1)
    con <- file(filename2, "wb")
    writeBin(bin, con)
    close(con)
}