Youssef-Module-1-Spring26

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter. For mac, use CMD+Enter

mean(cars$speed)

[1] 15.4

mean(cars$dist)

[1] 42.98

log(10, base=5) 

[1] 1.430677

batting average = no of hits / no of at bats

what is the batting average of a player that bats 29hits in 112 bats

BA

[1] 0.2589286

OBP = (156+65+3)/(565+156+65+3+7)
OBP

[1] 0.281407

ls()

[1] "BA"  "OBP"

runs_per_9innings+hits_per_9innings 

[1] 25  7 24 30  8

# consecutive numbers
1:5

[1] 1 2 3 4 5

# sequence from 1 to 10 with a step of 2
seq(1, 10, by=2)

[1] 1 3 5 7 9

runs_per_9innings==hits_per_9innings

[1] FALSE FALSE FALSE FALSE FALSE

# find length of vector
length(runs_per_9innings)

[1] 5

# find min value in vector 
min(runs_per_9innings)

[1] 5

# find average value in vector 
mean(runs_per_9innings)

[1] 10.8

#Question_5: Get the first element of hits_per_9innings.

runs_per_9innings[1]

[1] 14

runs_per_9innings[5]

[1] 6

runs_per_9innings[4]

[1] 16

runs_per_9innings[c(2, 3, 4)]

[1]  5 13 16

# Making a data frame 
data.frame(bonus = c(2, 3, 1), 
           active_roster = c("yes", "no", "yes"), 
           salary = c(1.5, 2.5, 1))

Making random samples

sample (1:10, size = 10) 

 [1]  4 10  3  7  5  2  6  8  9  1

bar <- data.frame(var1 = LETTERS[1:10], var2 = 1:10)
bar

#Question_7: Find the most frequent value of hits_per_9innings.

mode <- function(x) {
  ux <- unique(x) 
  ux[which.max(tabulate(match(x, ux)))]
}

# most freq in hits per 9 innings 
mode(hits_per_9innings)

[1] 11

#Question_8: Summarize the following survey with the `table()` command:
#What is your favorite day of the week to watch baseball? A total of 10 fans submitted this survey.
#Saturday, Saturday, Sunday, Monday, Saturday,Tuesday, Sunday, Friday, Friday, Monday
game_day<-c("Saturday", "Saturday", "Sunday", "Monday", "Saturday","Tuesday", "Sunday", "Friday", "Friday", "Monday")

print(table(game_day))

game_day
  Friday   Monday Saturday   Sunday  Tuesday 
       2        2        3        2        1 

# the favorite day to watch baseball is Saturday 

mode(game_day)

[1] "Saturday"