read rectangular matrix
read_matrix(nrows, ncols)
nrows | |
---|---|
ncols |
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as # read rectangular matrix read_matrix <- function(nrows, ncols) { count <- nrows * ncols matr <- matrix(nrow=nrows, ncol=ncols) values <- read_reals(count) ival <- 0 for (i in 1:nrows) for (j in 1:ncols) { ival <- ival + 1 matr[i,j] <- values[ival] } matr }