微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

用Lapply代替for循环进行随机假设检验

如何解决用Lapply代替for循环进行随机假设检验

我有一个看起来像这样的df:

set.seed(42)
ID <- sample(1:30,100,rep=T) 
Trait <- sample(0:1,rep=T) 
Year <- sample(1992:1999,rep=T)
df <- cbind(ID,Trait,Year)
df <- as.data.frame(df)

ID是单个生物,特征是表型的存在/不存在,Year是进行观察的年份。

我想对个体之间的特征是否随机进行建模,像这样

library(MCMCglmm) 
m <- MCMCglmm(Trait ~ ID,random = ~ Year,data = df,family = "categorical")

现在,想改组Trait列并运行x个置换,以检查我观察到的均值和CI是否超出随机预期的范围。 我可以使用for循环来做到这一点,但我宁愿使用tidyverse解决方案。 我读过lapply是bette(?)的替代品,但我一直在努力寻找足够具体的演练以供遵循。

我很感谢在这里提供的任何建议。

干杯!

杰米

解决方法

编辑10月10日。。清理代码,并在下面的每个注释中添加代码,以带给您井井有条的grep

tibble\dataframe

您的原始数据

### decide how many shuffles you want and name them
### in an orderly fashion for the output

shuffles <- 1:10
names(shuffles) <- paste0("shuffle_",shuffles)

library(MCMCglmm)
library(dplyr)
library(tibble)
library(purrr)

ddd <- purrr::map(shuffles,~ df %>%
                     mutate(Trait = sample(Trait)) %>%
                     MCMCglmm(fixed = Trait ~ ID,random = ~ Year,data = .,family = "categorical",verbose = FALSE)) %>%
   purrr::map( ~ tibble::as_tibble(summary(.x)$solutions,rownames = "model_term")) %>%
   dplyr::bind_rows(.,.id = 'shuffle')
ddd
#> # A tibble: 20 x 7
#>    shuffle    model_term  post.mean `l-95% CI` `u-95% CI` eff.samp pMCMC
#>    <chr>      <chr>           <dbl>      <dbl>      <dbl>    <dbl> <dbl>
#>  1 shuffle_1  (Intercept)  112.         6.39     233.       103.   0.016
#>  2 shuffle_1  ID            -6.31     -13.5       -0.297    112.   0.014
#>  3 shuffle_2  (Intercept)   24.9      -72.5      133.       778.   0.526
#>  4 shuffle_2  ID            -0.327     -6.33       5.33     849.   0.858
#>  5 shuffle_3  (Intercept)    4.39     -77.3       87.4      161.   0.876
#>  6 shuffle_3  ID             1.04      -3.84       5.99     121.   0.662
#>  7 shuffle_4  (Intercept)    7.71     -79.0      107.       418.   0.902
#>  8 shuffle_4  ID             0.899     -4.40       6.57     408.   0.694
#>  9 shuffle_5  (Intercept)   30.4      -62.4      144.       732.   0.51 
#> 10 shuffle_5  ID            -0.644     -6.61       4.94     970.   0.866
#> 11 shuffle_6  (Intercept)  -45.5     -148.        42.7      208.   0.302
#> 12 shuffle_6  ID             4.73      -0.211     11.6       89.1  0.058
#> 13 shuffle_7  (Intercept)  -16.2     -133.        85.9      108.   0.696
#> 14 shuffle_7  ID             2.47      -2.42      10.3       47.8  0.304
#> 15 shuffle_8  (Intercept)    0.568      0.549      0.581      6.60 0.001
#> 16 shuffle_8  ID            -0.0185    -0.0197    -0.0168     2.96 0.001
#> 17 shuffle_9  (Intercept)   -6.95    -112.        92.2      452.   0.886
#> 18 shuffle_9  ID             2.07      -3.30       8.95     370.   0.476
#> 19 shuffle_10 (Intercept)   43.8      -57.0      159.       775.   0.396
#> 20 shuffle_10 ID            -1.36      -7.44       5.08     901.   0.62

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。