Homer Strong strongh
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| install.packages(c("knitr", "tidyr", "magrittr", "dplyr", "shiny", "ggplot2"), dependencies=TRUE) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| data { | |
| int<lower=0> J; // number of schools | |
| real y[J]; // estimated treatment effects | |
| real<lower=0> sigma[J]; // s.e. of effect estimates | |
| } | |
| parameters { | |
| real mu; | |
| real<lower=0> tau; | |
| real eta[J]; | |
| } |
strongh
/ gist:b3ab0d2a00ff25f03b653b7bc46b0c11
Created
August 8, 2016 17:10
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| nrs <- rep(seq(1,5,1),2) | |
| sex <- c("M","M","M","M","M","F","F","F","F","F") | |
| links <- NULL | |
| #Loop to create 10 links, 5 for the male age grou 18-24, 5 for women agegroup 18-24. However, | |
| #there are only 3 pages in the male age group with a table. | |
| for (i in 1:length(nrs) ) { | |
| links[i] = paste("http://www.ironman.com/triathlon/events/americas/ironman/texas/results.aspx?p=",nrs[i],"&race=texas&rd=20160514&sex=",sex[i],"&agegroup=18-24&loc=",sep="") | |
| } |
OlderNewer