从函数内打印变量

Question

我在 R 中有以下函数。如何在此函数之外打印“llod”（从倒数第二行开始）的输出？

apply.llod <- function(vst.grp) {
  vst.grp.ercc <- vst.grp[grepl('ERCC', rownames(vst.grp)), ]
  dat <- data.frame(
    gene <- rep(rownames(vst.grp.ercc), times=ncol(vst.grp)), 
    expr <- as.vector(vst.grp.ercc), 
    conc <- concentration[rep(rownames(vst.grp.ercc), times=ncol(vst.grp))])
  lm <- lm(expr ~ conc, dat)
  seg <- segmented(lm, ~conc)
  lld <- seg$psi[2]
  llod <- predict(seg, data.frame(conc=lld))[[1]]
}

Answer 1

apply.llod <- function(){
    lm <- lm(mpg ~ cyl,data = mtcars)
    llod <- predict(lm, mtcars)[[1]]
    llod
}

apply.llod()
> apply.llod()
[1] 20.62984