Searched refs:cLstack (Results 1 – 2 of 2) sorted by relevance
32 cLstack <- tapply(1:length(cL), sapply(cL, function(x) x[[1]]), function(x) x, simplify = FALSE) functionVar33 df <- data.frame(level = names(cLstack))34 m <- length(cLstack)39 res[[i]] <- sp::Lines(.contourLines2LineList(cL[cLstack[[i]]]), ID = IDs[i])
47 cLstack <- tapply(1:length(cL), sapply(cL, function(x) x[[1]]), functionVar49 df <- data.frame(level=names(cLstack))50 m <- length(cLstack)55 res[[i]] <- Lines(.contourLines2LineList(cL[cLstack[[i]]]#,