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.

Oscar Alexnader Tobar

COURSE: CAP4936-2253-4282

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.

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: Player Name OBP SLG Salary Yandy Diaz 0.403 0.511 $8,000,000 Joey Meneses 0.320 0.366 $723,600 Jose Abreu 0.292 0.358 $19,500,000 Ryan Noda 0.384 0.400 $720,000 Nate Lowe 0.365 0.426 $4,050,000

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

df = read.csv("In class acitivty 9 csv file.csv")
str(df)
'data.frame':   5 obs. of  4 variables:
 $ Player.Name: chr  "Yandy Diaz" "Joey Meneses" "Jose Abreu" "Ryan Noda" ...
 $ OBP        : num  0.403 0.32 0.292 0.384 0.365
 $ SLG        : num  0.511 0.366 0.358 0.4 0.426
 $ Salary     : chr  "$8,000,000 " "$723,600 " "$19,500,000 " "$720,000 " ...
summary(df)
 Player.Name             OBP              SLG            Salary         
 Length:5           Min.   :0.2920   Min.   :0.3580   Length:5          
 Class :character   1st Qu.:0.3200   1st Qu.:0.3660   Class :character  
 Mode  :character   Median :0.3650   Median :0.4000   Mode  :character  
                    Mean   :0.3528   Mean   :0.4122                     
                    3rd Qu.:0.3840   3rd Qu.:0.4260                     
                    Max.   :0.4030   Max.   :0.5110                     
library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union
select(df, Salary, Player.Name, OBP, SLG)
10500000 - 8000000 - 720000 
[1] 1780000

We would have $1780000 left after selecting Yandy Diaz and Joey Meneses

These maybe the best options according to the OBP and SLG percentage and our budget.

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpUaGlzIGlzIGFuIFtSIE1hcmtkb3duXShodHRwOi8vcm1hcmtkb3duLnJzdHVkaW8uY29tKSBOb3RlYm9vay4gV2hlbiB5b3UgZXhlY3V0ZSBjb2RlIHdpdGhpbiB0aGUgbm90ZWJvb2ssIHRoZSByZXN1bHRzIGFwcGVhciBiZW5lYXRoIHRoZSBjb2RlLiANCg0KVHJ5IGV4ZWN1dGluZyB0aGlzIGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqUnVuKiBidXR0b24gd2l0aGluIHRoZSBjaHVuayBvciBieSBwbGFjaW5nIHlvdXIgY3Vyc29yIGluc2lkZSBpdCBhbmQgcHJlc3NpbmcgKkN0cmwrU2hpZnQrRW50ZXIqLiANCg0KKipPc2NhciBBbGV4bmFkZXIgVG9iYXIqKg0KDQoqKkNPVVJTRTogQ0FQNDkzNi0yMjUzLTQyODIqKg0KYGBge3J9DQpwbG90KGNhcnMpDQpgYGANCg0KQWRkIGEgbmV3IGNodW5rIGJ5IGNsaWNraW5nIHRoZSAqSW5zZXJ0IENodW5rKiBidXR0b24gb24gdGhlIHRvb2xiYXIgb3IgYnkgcHJlc3NpbmcgKkN0cmwrQWx0K0kqLg0KDQpXaGVuIHlvdSBzYXZlIHRoZSBub3RlYm9vaywgYW4gSFRNTCBmaWxlIGNvbnRhaW5pbmcgdGhlIGNvZGUgYW5kIG91dHB1dCB3aWxsIGJlIHNhdmVkIGFsb25nc2lkZSBpdCAoY2xpY2sgdGhlICpQcmV2aWV3KiBidXR0b24gb3IgcHJlc3MgKkN0cmwrU2hpZnQrSyogdG8gcHJldmlldyB0aGUgSFRNTCBmaWxlKS4NCg0KVGhlIHByZXZpZXcgc2hvd3MgeW91IGEgcmVuZGVyZWQgSFRNTCBjb3B5IG9mIHRoZSBjb250ZW50cyBvZiB0aGUgZWRpdG9yLiBDb25zZXF1ZW50bHksIHVubGlrZSAqS25pdCosICpQcmV2aWV3KiBkb2VzIG5vdCBydW4gYW55IFIgY29kZSBjaHVua3MuIEluc3RlYWQsIHRoZSBvdXRwdXQgb2YgdGhlIGNodW5rIHdoZW4gaXQgd2FzIGxhc3QgcnVuIGluIHRoZSBlZGl0b3IgaXMgZGlzcGxheWVkLg0KDQoNClN1cHBvc2UgeW91IGFyZSB0aGUgR2VuZXJhbCBNYW5hZ2VyIG9mIGEgYmFzZWJhbGwgdGVhbSwgYW5kIHlvdSBhcmUgc2VsZWN0aW5nIHR3byBwbGF5ZXJzIGZvciB5b3VyIHRlYW0uIFlvdSBoYXZlIGEgYnVkZ2V0IG9mICQxMCw1MDAsMDAwLCBhbmQgeW91IGhhdmUgdGhlIGNob2ljZSBiZXR3ZWVuIHRoZSBmb2xsb3dpbmcgcGxheWVyczoNClBsYXllciBOYW1lDQpPQlANClNMRw0KU2FsYXJ5DQpZYW5keSBEaWF6DQowLjQwMw0KMC41MTENCiQ4LDAwMCwwMDANCkpvZXkgTWVuZXNlcw0KMC4zMjANCjAuMzY2DQokNzIzLDYwMA0KSm9zZSBBYnJldQ0KMC4yOTINCjAuMzU4DQokMTksNTAwLDAwMA0KUnlhbiBOb2RhDQowLjM4NA0KMC40MDANCiQ3MjAsMDAwDQpOYXRlIExvd2UNCjAuMzY1DQowLjQyNg0KJDQsMDUwLDAwMA0KDQoNCg0KR2l2ZW4geW91ciBidWRnZXQgYW5kIHRoZSBwbGF5ZXIgc3RhdGlzdGljcywgd2hpY2ggdHdvIHBsYXllcnMgd291bGQgeW91IHNlbGVjdD8NCg0KYGBge3J9DQpkZiA9IHJlYWQuY3N2KCJJbiBjbGFzcyBhY2l0aXZ0eSA5IGNzdiBmaWxlLmNzdiIpDQpzdHIoZGYpDQpgYGANCmBgYHtyfQ0Kc3VtbWFyeShkZikNCmBgYA0KDQpgYGB7cn0NCmxpYnJhcnkoZHBseXIpDQpgYGANCg0KDQpgYGB7cn0NCnNlbGVjdChkZiwgU2FsYXJ5LCBQbGF5ZXIuTmFtZSwgT0JQLCBTTEcpDQpgYGANCg0KDQpgYGB7cn0NCjEwNTAwMDAwIC0gODAwMDAwMCAtIDcyMDAwMCANCmBgYA0KV2Ugd291bGQgaGF2ZSAkMTc4MDAwMCBsZWZ0IGFmdGVyIHNlbGVjdGluZyBZYW5keSBEaWF6IGFuZCBKb2V5IE1lbmVzZXMNCg0KVGhlc2UgbWF5YmUgdGhlIGJlc3Qgb3B0aW9ucyBhY2NvcmRpbmcgdG8gdGhlIE9CUCBhbmQgU0xHIHBlcmNlbnRhZ2UgYW5kIG91ciBidWRnZXQuDQoNCg0KDQo=