Displaying 1 result from an estimated 1 matches for "lines_list".
Did you mean:
ices_list
2010 Nov 26
1
Generating kml lines output
...ot;, "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 Lines object
lines_list_list <- list()
for (i in 1 : N) {
lines_list_list[[i]] <- Lines(lines_list[[i]], ID =
paste( out$BF[i] ) ) }
Lines object to SpatialLines object
s_l...