如何解决在进行逐行操作后如何保留对象类以使像int_pctl这样的函数起作用?
我试图用https://www.tidymodels.org/learn/statistics/主题上的行函数替换purrr :: map。我能够在前2个中做到这一点,但是在bootstrap主题上,它在int_pctl函数处中断,因为它希望将数据作为rset对象。
这是我的代码:
library(tidyverse); library(tidymodels); library(rsample)
boots <- bootstraps(mtcars,times = 2000,apparent = T)
fit_nls_on_bootstrap <- function(split) {
nls(mpg ~ k / wt + b,analysis(split),start = list(k = 1,b = 0))
}
boot_models <-
boots %>%
rowwise() %>%
mutate(model = list(fit_nls_on_bootstrap(splits)),coef_info = list(tidy(model))) %>%
ungroup()
boot_coefs <-
boot_models %>%
unnest(coef_info)
percentile_intervals <- int_pctl(boot_models,coef_info)
percentile_intervals
以下观察可能会帮助您回答我的问题。
当我与该网页上的purrr :: map代码进行比较时,它可以正确生成boot_models对象的rset类,但是我的按行尝试未呈现rset类?
在此计算期间如何保留rset类?或者,通常,假设我想使用按行函数,如何获取int_pctl值?
解决方法
我们可以在调用class(boot_models) <- c("bootstraps","rset",class(boot_models))
之前用int_pctl
恢复该类
class(boot_models) <- c("bootstraps",class(boot_models))
percentile_intervals <- int_pctl(boot_models,coef_info)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。