asdf

teams = c('Yahoo_Settings', 'French_Revolution', 'Full_QBker', 'Angel_Edward Team', 
         'TheGhostofAL', 'Hawkn_Balls', 'Jessica_Eric', "Mikes_Team",
         'Game_of_Throws', 'WhoDat_Nation', 'Jim_Michael', "Alexandras_Team")

df    = data.frame(teams=teams, avg=avg_scores, sd=sd_scores)

m = matrix(0, 151, 12)
x = seq(0,150)
for (i in 1:12) {
  m[,i] = dnorm(x, avgs[i], sds[i])
}

df = as.data.frame(m)
colnames(df) <- teams

p <- ggplot(avgs,aes(x=seq(1,12)),y=avgs)
p + geom_line()


# load ggplot2 (required each session)
require(ggplot2)


teams = c('Yahoo_Settings', 'French_Revolution', 'Full_QBker', 'Angel_Edward Team', 
          'TheGhostofAL', 'Hawkn_Balls', 'Jessica_Eric', "Mikes_Team",
          'Game_of_Throws', 'WhoDat_Nation', 'Jim_Michael', "Alexandras_Team")
avgs  = c(94.39,88.23,72.86,88.99,90.01,75.42,107.52,86.85,88.15,90.07,97.74,98.90)
sds   = c(19.8,3.58,22.73,1.52,8.52,19.92,5.53,29.22,19.03,17.01,25.28,13.97)

s = seq(0,200)
YSettings         <- data.frame(score=s, prob=dnorm(s, 94.39, 19.8),  team='Y! Settings')
French_Revolution <- data.frame(score=s, prob=dnorm(s, 88.23, 3.58),  team='French Revolution')
Full_QBker        <- data.frame(score=s, prob=dnorm(s, 72.86, 22.73), team='Full QBker')
Angel_Edward_Team <- data.frame(score=s, prob=dnorm(s, 88.99, 1.52),  team='Angel - Edward Team')
TheGhostofAL      <- data.frame(score=s, prob=dnorm(s, 90.01, 8.52),  team='TheGhostofAL')
Hawkn_Balls       <- data.frame(score=s, prob=dnorm(s, 75.42, 19.92), team="Hawk'n Balls")
Jessica_Eric      <- data.frame(score=s, prob=dnorm(s, 107.52, 5.53), team='Jessica and Eric')
Mikes_Team        <- data.frame(score=s, prob=dnorm(s, 86.85, 29.22), team="Mike's Team")
Game_of_Throws    <- data.frame(score=s, prob=dnorm(s, 88.15, 19.03), team='Game of Throws')
WhoDat_Nation     <- data.frame(score=s, prob=dnorm(s, 90.07, 17.01), team='WhoDat Nation')
Jim_Michael       <- data.frame(score=s, prob=dnorm(s, 97.74, 25.28), team='Jim & Michael')
Alexandras_Team   <- data.frame(score=s, prob=dnorm(s, 98.90, 13.97), team="Alexandra's Team")

df <- rbind(YSettings, French_Revolution, Full_QBker, Angel_Edward_Team, 
           TheGhostofAL, Hawkn_Balls, Jessica_Eric, Mikes_Team, Game_of_Throws,
           WhoDat_Nation, Jim_Michael, Alexandras_Team)

ggplot(df, aes(x=score,y=prob, group=team, color=team)) + geom_line()

ggplot(YSettings,aes(x=s,y=p,colour='red')) + geom_line()
ggplot(French_Revolution,aes(x=s,y=p,colour='red')) + geom_line()
ggplot(Full_QBker,aes(x=s,y=p,colour='red')) + geom_line()
ggplot(Angel_Edward_Team,aes(x=s,y=p,colour='red')) + geom_line()
ggplot(TheGhostofAL,aes(x=s,y=p,colour='red')) + geom_line()
ggplot(Hawkn_Balls,aes(x=s,y=p,colour='red')) + geom_line()
ggplot(Jessica_Eric,aes(x=s,y=p,colour='red')) + geom_line()
ggplot(Mikes_Team,aes(x=s,y=p,colour='red')) + geom_line()
ggplot(Game_of_Throws,aes(x=s,y=p,colour='red')) + geom_line()
ggplot(WhoDat_Nation,aes(x=s,y=p,colour='red')) + geom_line()
ggplot(Jim_Michael,aes(x=s,y=p,colour='red')) + geom_line()
ggplot(Alexandras_Team,aes(x=s,y=p,colour='red')) + geom_line()

lp1 <- ggplot(data=df1, aes(x=time, y=total_bill, group=sex, shape=sex, colour=sex)) + geom_line()