Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
SciFund Round 3 Round by Round Comparison
r3 <- c(0L, 3000L, 1765L, 8645L, 6225L, 805L, 600L, 203L, 115L, 85L,
2700L, 1210L, 3790L, 2210L, 2135L, 610L, 5180L, 840L, 2200L,
410L, 1440L, 3080L, 1280L, 1165L, 4040L, 1110L, 6585L, 3015L,
2651L, 290L, 1990L, 0L, 810L, 5004L, 790L)
r1 <- c(1165L, 1129L, 2835L, 1000L, 5000L, 1120L, 1266L, 2100L, 1330L,
420L, 1070L, 128L, 1120L, 220L, 1075L, 1170L, 825L, 3000L, 1104L,
210L, 122L, 151L, 490L, 4600L, 2483L, 265L, 1565L, 1545L, 4110L,
10171L, 1000L, 1240L, 899L, 1320L, 848L, 605L, 970L, 545L, 1815L,
515L, 5085L, 450L, 755L, 1170L, 250L, 3243L, 1305L, 715L, 711L
)
r2 <- c(105L, 1710L, 2065L, 2450L, 226L, 1812L, 470L, 1305L, 1202L,
30L, 2000L, 545L, 862L, 2701L, 2675L, 535L, 322L, 2026L, 2650L,
625L, 540L, 1231L, 5688L, 1500L, 1854L, 1256L, 4480L, 1000L,
1046L, 1601L, 1031L, 716L, 243L, 180L, 2535L, 1000L, 2389L, 71L,
1930L, 116L, 539L, 1002L, 730L, 77L, 730L, 975L, 2040L, 5001L,
2125L, 550L, 344L, 500L, 1912L, 1101L, 900L, 940L, 681L, 1779L,
728L, 2048L, 3525L, 2102L, 1118L, 611L, 260L, 1970L, 1205L, 38L,
220L, 235L, 1320L, 1535L, 3282L, 257L, 1500L)
all<-c(r1, r2, r3)
length(all)
sum(all)
mean(all)
median(all)
mean(r1)
mean(r1)/45
median(r1)
median(r1)/45
mean(r2)
mean(r2)/31
median(r2)
median(r2)/31
mean(r3)
mean(r3)/33
median(r3)
median(r3)/33
allcorrect<-data.frame(round = c(rep(1, length(r1)), rep(2,length(r2)), rep(3, length(r3))),
daily = c(r1/45, r2/31, r3/33),
total = c(r1, r2, r3))
allcorrect$round <- factor(allcorrect$round)
library(ggplot2)
qplot(round, daily, fill=round, data=allcorrect, geom="boxplot") +
xlab("\nRound") + ylab("$ Raised Daily\n")
ggsave("./scifund_avg.pdf")
qplot(round, total, fill=round, data=allcorrect, geom="boxplot") +
xlab("\nRound") + ylab("$ Raised Total\n")
ggsave("./scifund_total.pdf")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment