In-class activity#9: Choosing among Different Players

(From the given selection and stats provided)

Suppose you are the General Manager of a baseball team, and you are selecting two players for your team. You have a budget of $10,500,000, and you have the choice between the following players:

Given your budget and the player statistics, which two players would you select?

I am going to use an equation which calculates the dollar per run scored and so I am going to be looking for LOWER values of the vector “Value”

#Yandy DIaz:
OBP<-0.403
SLG<-0.511
Salary1<- 8000000
RunsScored<- -804.63 + (2737.77 * OBP) + (1584.91 * SLG)
Value1<-Salary1/RunsScored
Value1

[1] 7216.437

#Joey Meneses:
OBP<-0.320
SLG<-0.366
Salary2<- 723600
RunsScored<- -804.63 + (2737.77 * OBP) + (1584.91 * SLG)
Value2<-Salary2/RunsScored
Value2

[1] 1110.611

#Jose Abreu:
OBP<-0.292
SLG<-0.358
Salary3<- 19500000
RunsScored<- -804.63 + (2737.77 * OBP) + (1584.91 * SLG)
Value3<-Salary3/RunsScored
Value3

[1] 34685.37

#Ryan Noda:
OBP<-0.384
SLG<-0.400
Salary4<- 720000
RunsScored<- -804.63 + (2737.77 * OBP) + (1584.91 * SLG)
Value4<-Salary4/RunsScored
Value4

[1] 817.5894

#Nate Lowe:
OBP<-0.365
SLG<-0.426
Salary5<- 4050000
RunsScored<- -804.63 + (2737.77 * OBP) + (1584.91 * SLG)
Value5<-Salary5/RunsScored
Value5

[1] 4656.094

print("Yandy Diaz")

[1] "Yandy Diaz"

Value1

[1] 7216.437

Salary1

[1] 8e+06

print("Joey Meneses")

[1] "Joey Meneses"

Value2

[1] 1110.611

Salary2

[1] 723600

print("Jose Abreu")

[1] "Jose Abreu"

Value3

[1] 34685.37

Salary3

[1] 19500000

print("Ryan Noda")

[1] "Ryan Noda"

Value4

[1] 817.5894

Salary4

[1] 720000

print("Nate Lowe")

[1] "Nate Lowe"

Value5

[1] 4656.094

Salary5

[1] 4050000

WIth a budget of $10,500,000 and only being allowed 2 players:

-we cannot afford Jose Abreu, so he is off the list

-We CAN afford Diaz and either Meneses or Lowe. -We CAN also afford any combination of two of Meneses, Lowe, and Noda

-As far as who maximizes our cost efficiency and gets us the most runs scored for the least amount of money spent:

-It makes sense to go with the two lowest scores for VALUE which are -Ryan Noda -Joey Meneses

This saves up the majority fo our budget for future player aquisition.

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.

plot(cars)

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Ctrl+Alt+I.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Ctrl+Shift+K to preview the HTML file).

The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.