https://padlet.com/jstigler/wy4j0pn6on6p Sharing in class en-us 2019-04-19 05:14:39 UTC 2019-06-27 20:48:11 UTC hello@padlet.com jstigler https://padlet.com/jstigler/wy4j0pn6on6p/wish/361899882 Science.SDoB1 <- do(1000)* {
  Games.sim <- rnorm(n=80, mean=mean(ScienceData$Games), sd=sd(ScienceData$Games))
  Condition.sim <- rep(c("be","do"), each = 40)
  Science.sim <- data.frame(Games.sim,Condition.sim)
  b1(Games.sim~Condition.sim, data=Science.sim)
}
gf_histogram(~result, data=Science.SDoB1, fill="cyan", color="dodgerblue")%>%
  gf_refine(scale_x_continuous(limits=c(-2,2)))]]> 2019-05-20 20:16:28 UTC https://padlet.com/jstigler/wy4j0pn6on6p/wish/361899882 jstigler https://padlet.com/jstigler/wy4j0pn6on6p/wish/361901212 SDoB1.shuffle <- do(1000)*b1(Games~shuffle(Condition), data=ScienceData)
gf_histogram(~b1, data=SDoB1.shuffle, fill="darkorange", color="brown4")%>%
  gf_refine(scale_x_continuous(limits=c(-2,2)))]]> 2019-05-20 20:21:01 UTC https://padlet.com/jstigler/wy4j0pn6on6p/wish/361901212