我有一个这样的数字列表:library(sjPlot)
data(efc)
# fit three models
fit1 <- lm(barthtot ~ c160age + c12hour + c161sex + c172code,data = efc)
fit2 <- lm(neg_c_7 ~ c160age + c12hour + c161sex + c172code,data = efc)
fit3 <- lm(tot_sc_e ~ c160age + c12hour + c161sex + c172code,data = efc)
mod.plot <- plot_models(fit1,fit2,fit3,grid = TRUE)
mod.plot + facet_grid(~group,scales = "free_x") +
scale_y_continuous(limits = c(NA,NA))
mod.plot
,我需要在此列表的每个元素上运行一个函数,并将结果另存为表中的一列。我在下面使用代码:
(0,.5,.9,.99)
运行这段代码后,我得到的是一张表,所有值都等于应用于数组list = make_array(0,0.5,0.9,0.99)
c = Table().with_column("Values",list)
for i in list:
x = c.with_column("Limits",function(i))
的最后一个元素的函数
我该如何修改它以便获得正确的表:
( .99 ** 4 )
代码: