Displaying 1 result from an estimated 1 matches for "rfwf".
Did you mean:
fwf
2002 May 15
0
Reading multi-line FWF data
...ar(x) == 0] <- "NA"
x
}
blanks <- function(x) {
b <- character(length = length(x))
for (i in 1:length(x)) if (x[i] > 0)
b[i] <- paste(rep(" ", x[i]), collapse = "")
b
}
FILE <- tempfile("Rfwf.")
on.exit(unlink(FILE))
raw <- scan(file, what = "", sep = "\n", quote = "", quiet = TRUE,
n = n, skip = skip, blank.lines.skip = blank.lines.skip)
ngroups <- length(raw)%/%rows
cat("Rows per group:", rows, "\n")...