sample_PRE <- PRE (Hits ~ Runs, data = BaseballTimes) sdoPRE <- do(1000)*PRE(shu
sample_PRE <- PRE (Hits ~ Runs, data = BaseballTimes)
sdoPRE <- do(1000)*PRE(shuffle(Hits)~ Runs, BaseballTimes)
tally(sdoPRE > sample_PRE, format = “proportion”)
gf_histogram(~PRE, data = sdoPRE, fill = ~PRE > sample_PRE)%>%
gf_point(x=sample_PRE, y=0, color=”red”)%>%
gf_vline(xintercept=sample_PRE, color=”blue”)
