Coding for Machines and Humans / R Packages

Author

Logan White

Published

January 27, 2026

Section 1.4 Coding for Machines and Humans

Read Section 1.4 in Hello Data Science and peruse Chapter 2 of the Tidyverse style guide. Using what you’ve learned, modify the code below to be more readable and consistent with these guidelines.

stat210_students <- c("Archie", "Edith", "Gloria", "Meathead", "Lionel")
exam_scores <- c(67, 89, 73, 71, 84)
extra_credit <- c(5, 3, 6, 9, 5)
total_score <- exam_scores + extra_credit
stat210 <- data.frame(
  students = stat210_students,
  exam = exam_scores,
  EC = extra_credit,
  total = total_score
)

stat210
  students exam EC total
1   Archie   67  5    72
2    Edith   89  3    92
3   Gloria   73  6    79
4 Meathead   71  9    80
5   Lionel   84  5    89

Section 1.5 R Packages

Go to the Console and install the cowsay package. Add code below that loads the package and then test out the say() function by using it to create output with three different animals/sayings.

library(cowsay)
say("There are 37 ants in my room and I can feel them crawling around on me every single night and nobody believes me.")

 _____________________________________________________ 
/ There are 37 ants in my room and I can feel them    \
| crawling around on me every single night and nobody |
\ believes me.                                        /
 ----------------------------------------------------- 
      \
       \

        ^__^ 
        (oo)\ ________ 
        (__)\         )\ /\ 
             ||------w|
             ||      ||
say(what = "wow that particular mammal seems to be in distress they should really talk to a doctor about that.", by = "behindcat")

 _________________________________________________________ 
/ wow that particular mammal seems to be in distress they \
\ should really talk to a doctor about that.              /
 --------------------------------------------------------- 
         \
          \

            |\___/|
            )     (
           =\     /=
             )===(
            /     \
            |     |
           /       \
           \       /
      jgs   \__  _/
              ( (
               ) )
              (_(
say(what = "OH MY GOD OH MY GOD OH MY GOD OH MY GOD OH MY GOD", by = "longcat", length = 37)

 ___________________________________________________ 
< OH MY GOD OH MY GOD OH MY GOD OH MY GOD OH MY GOD >
 --------------------------------------------------- 
 \
  \

    .ハ,,ハ
    ( ゚ω゚)
    |つ  つ
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    |    |
    U "  U
        [BoingBoing]