R - dplyrブートストラップいくつかの変数

Question

私はbootstrapingとdplyrを試していますが、単純なコード行が残っています。機能bootstrapを使用して

は、私はしかし、より多くの変数（列を取得するにはいいだろう素敵な簡単な出力

replicate  x 
     (int) (dbl) 
1   1  6 
2   1  8 
3   2  6 
4   2  8 
... 

を取得するために

library(dplyr) 
library(broom) 

mtcars %>% bootstrap(10) %>% 
    do(tidy(sample(.$cyl, 2))) 

を行うことが可能であることoutを見つけました）しかし、私はそれを理解できません。

私は

mtcars %>% bootstrap(10) %>% 
    do(tidy(sample(., 2))) 

または

mtcars %>% bootstrap(10) %>% 
    do(tidy(sample_n(2))) 

のようなものが働くだろうと思ったが、それはしません。

私はいくつかの変数をサブセットすることができますどのように任意の手掛かり？

私は （出力）

replicate cyl mpg disp 
     (int) (dbl) 
1   1  6 21 ... 
2   1  4 22 ... 
3   2  6 ... 
4   2  8 ... 
... 

（私はランダムに2例sample = 2を選択していると私は、このルーチンを繰り返す（bootstrap）10回のような何かを得るためにmpg、cylとdispを取得したい想像してみて）。

set.seed(123) 
sapply(mtcars, function(v) sample(v,2)) 

を使用して

Answer 1

あなたは、これはあなたが望むものであり、および/またはそれが行うことが列が互いに（わからないの独立してサンプリングされmtcars、の各列から2つの値をサンプリングすることができますセンス）。したがってbroomを使用したソリューションは、次のようになります。

mtcars %>% 
    bootstrap(10) %>% 
    do(tidy(sapply(., function(v) sample(v,2)))) 

、一方で、列の間の関係を維持することが重要である場合、あなたは

do.call("rbind",lapply(1:10, function(dum) mtcars[sample.int(nrow(mtcars), 2), ]))