如何在函数R中输出两个结果

Question

library(Matching)        
F01 <- function(...){
      m <- outer(1:50, 1:50, Vectorize(function(i,j)
      {ks.boot(as.numeric(rep(seq(0,14,1),as.vector(data[i,]))),
               as.numeric(rep(seq(0,14,1),
                              as.vector(data[j,]))),nboots=10000)$ks.boot.pvalue}))
      rownames(m) <- data[, 1]
      d=as.dist(as.matrix(1-m))
      hcr <- hclust(d,method = "complete")
      dend <- as.dendrogram(hcr)
    }
dendy <- lapply(1:25, F01)

这只会输出dend。如何获取hcr和dend的输出？

Answer 1

将list(hcr= hcr, dend=dend)作为函数的最后一行。

然后，您可以在其上使用purrr::transpose来获得包含hcr列表元素和dend列表元素的列表。

最后，如果您确实希望在工作区中有2个对象（我不建议这样做），则可以在结果上使用list2env。