Displaying 2 results from an estimated 2 matches for "all_simple_paths".
2019 Nov 01
3
Getting error in rbindlist
...ing of the below error message then I
will try to figure out what is going wrong:
*Input Code:*
> bodlane2 <- lapply(
+ lapply(split(lctolc2, lctolc2$Item), function(x) graph.data.frame(x[,
2:3])),
+ function(x) lapply(
+ V(x)[degree(x, mode = "in") == 0],
+ function(s) all_simple_paths(x, from = s,
+ to = V(x)[degree(x, mode = "out") == 0])
%>%
+ lapply(
+ function(y) as.data.table(t(names(y))) %>% setnames(paste0("LC",
seq_along(.)))
+ ) %>%
+ rbindlist(use.names=TRUE,fill = TRUE)
+ ) %>...
2019 Nov 01
0
Getting error in rbindlist
...lnames(lctolc3) <- c("Item","LC","ToLC")
>
> bodlane3 <- lapply(
> ? lapply(split(lctolc3, lctolc3$Item), function(x)
> graph.data.frame(x[, 2:3])),
> ? function(x) lapply(
> ? ? V(x)[degree(x, mode = "in") == 0],
> ? ? function(s) all_simple_paths(x, from = s,
> ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?to = V(x)[degree(x, mode = "out") ==
> 0]) %>%
> ? ? ? lapply(
> ? ? ? ? function(y) as.data.table(t(names(y))) %>%
> setnames(paste0("LC", seq_along(.)))
> ? ? ? ) %>%
> ? ? ? rbindlist(use.names=TR...