如何解决如何从列表中获取型号名称?
让我们考虑两个模型和由它们创建的列表:
set.seed(42)
y <- rnorm(100)
x <- runif(100)
z <- rexp(100)
model_1 <- lm(y ~ x)
model_2 <- lm(y ~ z)
model_list <- list(model_1,model_2)
如何从 model_list
中获取其中的模型名称?即以某种方式输出 "model_1"
,"model_2"
。我尝试使用 substitute(model_list[[1]])
但它没有解决问题。你知道它是如何获得的吗?
编辑
x <- sapply(ls(),function(x) if(is.function(x)) NA else tracemem(get(x)))
但是我遇到了错误:
Error in tracemem(get(x)) : argument must not be a function
你知道怎么解决吗?
编辑 2
set.seed(42)
y <- rnorm(100)
k <- runif(100)
z <- rexp(100)
model_1 <- lm(y ~ k)
model_2 <- lm(y ~ z)
model_list <- list(model_1,model_2)
x <- sapply(ls(),function(x) if(is.function(x)) NA else tracemem(get(x)))
Error in tracemem(get(x)) : argument must not be a function
你能看看它是否适合你吗?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。