Displaying 2 results from an estimated 2 matches for "ladytastingtea".
2012 Apr 11
0
mosaic 0.4 on CRAN
...or girls)
> to plot
> rflip(10) # flip a coin 10 times
Flipping 10 coins [ Prob(Heads) = 0.5 ] ...
T H T H H H T H H T
Result: 6 heads.
> do(2) * rflip(10) # do that twice; notice that do() extracts
> interesting info
n heads tails
1 10 4 6
2 10 6 4
> ladyTastingTea <- do(5000) * rflip(10) # simulate 5000 ladies
tasting tea
> tally(~heads, ladyTastingTea)
0 1 2 3 4 5 6 7 8 9 10 Total
5 52 221 573 1032 1227 1027 606 198 52 7 5000
> tally(~heads, ladyTastingTea, format='propo...
2012 Apr 11
0
mosaic 0.4 on CRAN
...or girls)
> to plot
> rflip(10) # flip a coin 10 times
Flipping 10 coins [ Prob(Heads) = 0.5 ] ...
T H T H H H T H H T
Result: 6 heads.
> do(2) * rflip(10) # do that twice; notice that do() extracts
> interesting info
n heads tails
1 10 4 6
2 10 6 4
> ladyTastingTea <- do(5000) * rflip(10) # simulate 5000 ladies
tasting tea
> tally(~heads, ladyTastingTea)
0 1 2 3 4 5 6 7 8 9 10 Total
5 52 221 573 1032 1227 1027 606 198 52 7 5000
> tally(~heads, ladyTastingTea, format='propo...