HDS1.4-1.5

Code Cleanup:

stat210students<-c("Archie","Edith","Gloria","Meathead","Lionel")
examscores<-c(67,89,73,71,84)
extracredit<-c(5,3,6,9,5)
totalscore<-examscores+extracredit

stat210<-data.frame(students=stat210students,exam=examscores,
                    EC=extracredit,total=totalscore)

Say testing zone:

library(cowsay)

say(what= "I am doing this assignment 30 min before class starts.",
    by= "alligator")

 ________________________________________________________ 
< I am doing this assignment 30 min before class starts. >
 -------------------------------------------------------- 
                  \
                   \

           .-._   _ _ _ _ _ _ _ _
.-''-.__.-'00  '-' ' ' ' ' ' ' ' '-.
'.___ '    .   .--_'-' '-' '-' _'-' '._
V: V 'vv-'   '_   '.       .'  _..' '.'.
  '=.____.=_.--'   :_.__.__:_   '.   : :
           (((____.-'        '-.  /   : :
snd                          (((-'\ .' /
                           _____..'  .'
                          '-._____.-'

say(what= "I love doing homework.",
    by= "ghost")

 ________________________ 
< I love doing homework. >
 ------------------------ 
  \
   \

     .-.
    (o o)
    | O \
     \   \
      `~~~' [nosig]

say(what= "I dont know what to say.",
    by= "hypnotoad")

 __________________________ 
< I dont know what to say. >
 -------------------------- 
                \
                 \

                ,'``.._   ,'``.
                :,--._:)\,:,._,.:
                :`--,''   :`...';\
               `,'       `---'  `.
               /                 :
              /                   \
            ,'                     :\.___,-.
           `...,---'``````-..._    |:       \
             (                 )   ;:    )   \  _,-.
              `.              (   //          `'    \
               :               `.//  )      )     , ;
             ,-|`.            _,'/       )    ) ,' ,'
            (  :`.`-..____..=:.-':     .     _,' ,'
             `,'\ ``--....-)='    `._,  \  ,') _ '``._
          _.-/ _ `.       (_)      /     )' ; / \ \`-.'
         `--(   `-:`.     `' ___..'  _,-'   |/   `.)
             `-. `.`.``-----``--,  .'
               |/`.\`'        ,','); SSt
                   `         (/  (/