scratch

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(s=s, p=dnorm(s, 94.39, 19.8))
French_Revolution <- data.frame(s=s, p=dnorm(s, 88.23, 3.58))
Full_QBker        <- data.frame(s=s, p=dnorm(s, 72.86, 22.73))
Angel_Edward_Team <- data.frame(s=s, p=dnorm(s, 88.99, 1.52))
TheGhostofAL      <- data.frame(s=s, p=dnorm(s, 90.01, 8.52))
Hawkn_Balls       <- data.frame(s=s, p=dnorm(s, 75.42, 19.92))
Jessica_Eric      <- data.frame(s=s, p=dnorm(s, 107.52, 5.53))
Mikes_Team        <- data.frame(s=s, p=dnorm(s, 86.85, 29.22))
Game_of_Throws    <- data.frame(s=s, p=dnorm(s, 88.15, 19.03))
WhoDat_Nation     <- data.frame(s=s, p=dnorm(s, 90.07, 17.01))
Jim_Michael       <- data.frame(s=s, p=dnorm(s, 97.74, 25.28))
Alexandras_Team   <- data.frame(s=s, p=dnorm(s, 98.90, 13.97))

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(YSettings,aes(x=s,y=p)) + geom_line()