объединить несколько lapply в один - PullRequest
Новая
       34

объединить несколько lapply в один

0 голосов
/ 03 сентября 2018

У меня есть три веселых подпрограммы, и я хотел бы объединить их в одну. У меня проблема с тем, что мой 3 lapply: tmp2, ord, mtx_ll , коды следующие: 

#libraries
library(spData)
library(sf)
library(sp)
#input
zones = nz
zones <- as(zones, "Spatial")
nodes = nz_height
nodes <- as(nodes, "Spatial")
#parameter
s = 1:nrow(zones)
#SpatialQuery
tmp2  <- lapply(s, function(x) {
  nodes[zones[x, ], ]
})
#coordinates extraction
coord <- lapply(X = tmp2, FUN = function(x) coordinates(x))
#distance matrix
mtx_ll <- lapply(s, function(i){
  apply(X = coord[[i]], MARGIN = 1, 
        FUN = function(x) spDistsN1(coord[[i]], x, longlat = T))
})

Есть идеи?

...