Assignment 4

#Question_1: Compute the log base 5 of 10 and the log of 10.
BA = (29/112)
BA

[1] 0.2589286

#Question_2:What is the batting average of a player that bats 42 hits in 212 at bats?
BA = 42/212
BA

[1] 0.1981132

#On Base Percentage
#OBP=(H+BB+HBP)/(At Bats+BB+HBP+SF)
#Let us compute the OBP for a player with the following general stats
#AB=515,H=172,BB=84,HBP=5,SF=6
OBP=(172+84+5)/(515+84+5+6)
OBP

[1] 0.4278689

On_Base_Percentage=round(OBP,digits = 3)
On_Base_Percentage

[1] 0.428

#Question_3:Compute the OBP for a player with the following general stats:
#AB=565,H=156,BB=65,HBP=3,SF=7
OBP=(156+65+3)/(565+65+3+7)
OBP

[1] 0.35

<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-output-begin eyJkYXRhIjoiXG48IS0tIHJuYi1zb3VyY2UtYmVnaW4gZXlKa1lYUmhJam9pWUdCZ2NseHVUMjVmUW1GelpWOVFaWEpqWlc1MFlXZGxQWEp2ZFc1a0tFOUNVQ3hrYVdkcGRITWdQU0F6S1Z4dVQyNWZRbUZ6WlY5UVpYSmpaVzUwWVdkbFhHNWdZR0FpZlE9PSAtLT5cblxuYGBgclxuT25fQmFzZV9QZXJjZW50YWdlPXJvdW5kKE9CUCxkaWdpdHMgPSAzKVxuT25fQmFzZV9QZXJjZW50YWdlXG5gYGBcblxuPCEtLSBybmItc291cmNlLWVuZCAtLT5cbiJ9 -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuT25fQmFzZV9QZXJjZW50YWdlPXJvdW5kKE9CUCxkaWdpdHMgPSAzKVxuT25fQmFzZV9QZXJjZW50YWdlXG5gYGAifQ== -->

```r
On_Base_Percentage=round(OBP,digits = 3)
On_Base_Percentage

3 == 8# Does 3 equals 8?
3 == 8# Does 3 equals 8?

#Question_4: Define two vectors,runs_per_9innings and hits_per_9innings, each with five elements. 

runs_per_9innings <- c(5, 4, 9, 8, 6) 
runs_per_9innings

hits_per_9innings <- c(10, 7, 15, 19, 20) 
hits_per_9innings

#Question_5: Get the first element of hits_per_9innings.
hits_per_9innings[1]
hits_per_9innings[length(hits_per_9innings)]

#Question_6: Get the last element of hits_per_9innings.
hits_per_9innings[length(hits_per_9innings)]

x <- c("Yes","No","No","Yes","Yes") 
table(x)

getMode <- function(x) {
     ux <- unique(x)
     ux[which.max(tabulate(match(x, ux)))]
 }
 sals <- c(12, .4, 5, 2, 50, 8, 3, 1, 4, 0.25)
# the average
mean(sals) 
var(sals)
sd(sals)
median(sals)
# Tukey's five number summary, usefull for boxplots
# five numbers: min, lower hinge, median, upper hinge, max
fivenum(sals)
summary(sals)

#Question_7: Find the most frequent value of hits_per_9innings.
names(sort(table(hits_per_9innings), decreasing = TRUE))[1]
getMode(hits_per_9innings)

#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")

#Question_9: What is the most frequent answer recorded in the survey? Use the getMode function to compute results. 
getMode(game_day)