Displaying 1 result from an estimated 1 matches for "rowasmatrix".
2010 Nov 26
1
Generating kml lines output
...7,
9.058, 12.357, 11.9277, 11.9277, 14.75, 5.336318, 5.555, 14.75,
11.9277)), .Names = c("I", "BF", "from", "to", "x", "y", "xend",
"yend"), row.names = c(NA, -12L), class = "data.frame")
N <- dim(out)[1]
RowAsMatrix <- function(lines, row) {
rbind(c(lines[row,]$x, lines[row,]$y), c(lines[row,]$xend,
lines[row,]$yend) ) }
# list of coordinate matrixes to list of Line objects
lines_list <- list()
for(i in 1 : N ) {
lines_list[[i]] <- Line( RowAsMatrix(out[5:8], i) )
}
# list of Line objects to Lin...