Instalar paquetes y llamar librerías
library(caret)
## Cargando paquete requerido: ggplot2
## Cargando paquete requerido: lattice
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.2.0 ✔ readr 2.1.6
## ✔ forcats 1.0.1 ✔ stringr 1.6.0
## ✔ lubridate 1.9.5 ✔ tibble 3.3.1
## ✔ purrr 1.2.1 ✔ tidyr 1.3.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ✖ purrr::lift() masks caret::lift()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
Crear la base de datos
df <- read.csv("C:\\Users\\ramir\\Downloads\\heart.csv")
Entender la base de datos
`
LS0tDQp0aXRsZTogIkhlYXJ0Ig0KYXV0aG9yOiAiSGVsZW5hIFJhbcOscmV6IEdpbGVzIg0KZGF0ZTogIjIwMjYtMDItMTkiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiBUUlVFDQogICAgdG9jX2Zsb2F0OiBUUlVFDQogICAgY29kZV9kb3dubG9hZDogVFJVRQ0KICAgIHRoZW1lOiBjb3Ntbw0KLS0tDQo8Y2VudGVyPg0KIVtdKGRhdGE6aW1hZ2UvanBlZztiYXNlNjQsLzlqLzRBQVFTa1pKUmdBQkFRQUFBUUFCQUFELzJ3Q0VBQWtHQndnSEJna0lCd2dLQ2drTERSWVBEUXdNRFJzVUZSQVdJQjBpSWlBZEh4OGtLRFFzSkNZeEp4OGZMVDB0TVRVM09qbzZJeXMvUkQ4NFF6UTVPamNCQ2dvS0RRd05HZzhQR2pjbEh5VTNOemMzTnpjM056YzNOemMzTnpjM056YzNOemMzTnpjM056YzNOemMzTnpjM056YzNOemMzTnpjM056YzNOemMzTi8vQUFCRUlBSlFBcFFNQklnQUNFUUVERVFIL3hBQWNBQUVBQWdJREFRQUFBQUFBQUFBQUFBQUFCQVVHQndFQ0F3ai94QUE4RUFBQkF3SUVCQVVDQkFRRENRQUFBQUFCQUFJREJCRUZFaUV4QmhOQlVRY2lZWEdSZ2FFVUl6S3hRbEtTd1ROaThSVWtKa055c3NMUjhQL0VBQm9CQVFBREFRRUJBQUFBQUFBQUFBQUFBQUFDQXdRQkJRYi94QUFsRVFBREFBSUNBZ0VFQXdFQUFBQUFBQUFBQVFJREVTRXhCQklpQlRKQllTTXpVUlAvMmdBTUF3RUFBaEVERVFBL0FONG9pSUFpSWdDcU9KTWFHQzBUWnVVWkh5T3lNN0EySjErRmJMSCtPYVlWUERsU2RNMEpiSzBuME92MkpYR1NoSjB0bUYwM0dtSmppR0I5YlVacVI3c3BoamFBMFgrNStWSjhSWHRpeENLb2lKay9FUU41WWFkWG01MitsbGlUb3dYTmNXM0ExRmdwZUk0M0xKVHdSTjVZTUFMWXZMY3RCM0FVR2JWajlYdEhuRlZTWVpVeDFWUk1UV01CNWJJalpzZDlOVDFLNlUrSzFJeENLdk1yK2UxK2R2OEE5MVZMTEsrTU9tbmtCY05TU3JTREI2dWFpYmlPSlBGTlNPQTVUUTd6eVgydi9LRDhybkVuZE9ucEc4Y09xMjExQlRWY2Y2WjRteUQySXVwUzF4d0JWVlQ4WE5MRE83OEZGQnJFVGNDMmpiZGxzWUt4UFppeVI2Vm81UkVYU0FSRVFCRVJBRVJFQVJFUUJFUkFFUkVCd3FiakNhT0RoeXVkSWJCek1nOXliQlhTMXo0bllzUk5GaHJEZHJCelh0N25vbzA5SXR3dzd0SkdCNGhVdVphN3JkQUFWVVZWV3ltaGRQSTYzMVhURWFneVQ5ckwyNGF3cUxHdUk2V090SU5ORThHUzV1UGhWZXh1YTIrQ3ZncDhSeFNWa3ZMZkZUNzNjTEQzMVd3dUhzTy8ydkJIaGsxVFlEU09SaHVXT0EwMDZqMFZ4eHhTMGtFN1JEWnJXeGdCamRBT3l3dkJzWWZoV1AwdFFHamxDUVp4NmJGVk51bWFJU2pGdGZrdUs2aHhMaG5HYVNtNTQvRXp5dDVjc1owY013QS9mVmJtWmZLTTI5dFZoK01VY0ZmeEZoVTBwRHVXV3l3a2pjRWk0K3dLekFLL0c5N1BPOGg3VXQ5blpGeGRMcTB5bktMaGNvQWk0WEtBSWlJQWlJZ0NJaUFJaUlEcTVhTzRycmZ4Mk00aFVCN2orWTRON0JyZktBUGhicHhPZjhMaDlWVVh0eW9YUDE5QmRmUDBtYVdOMnVydFNTcytkOUk5VDZiajI2b3Bwblpua2s5Vlo4Q1hPSTFUbUM5NTdIMkFDcmFtSjBUcjM2OVZrWGgxQmMxMDdnUXhrenlTUCtscW9wL0UyNDUxa1cvMlduRU5ZNmVjaDdqbEZ5Ym5YL1JZMFMwU0dUTGM3QlRNVXFKSnBuT3NmTnFjM1QxVlBWVjdLU25ManFkN0hxcFlrUEthWENNcDRnNGp4QjNDOUhWeGd0bnBKbVJoNFA2bW4xOTdMWVZOeHZITFJRdmlwSkRJV0ROejNDTzV0cnB2OGdMVlBEdjRzVVBOcldBUlN1RDQ0SGkreHVIRWRGNjFtS1BpbE9jbCt1aE80WGQwdDZNdFRqdlhzdUViVFBITEdmNDFDUU83SmIvMlV5bDQwd2lZZ1N5dmdKMk1qZFBrTFNVdUp2bmxMQzQyT3R3bzlUaVVnWnlXSFhmZGRXVElucG5iOGJ4YWgwbG8ra0k2K2ttaDUwZFZDNkwrZHJ3UjhyR2NkOFFjSHdzT1pUeS9qSmgwaVBsQjlYZityclJVYzlTR09QUGxEU1RkdWMyWHR3eEUvSDhhZFNHcWlwcVdGaGtxcXVWN1FJbURycnVlaXQ5NmZCay80WTU1Yk42Y0RjV0RpYW5xZWJHSXFpbmY1bXR2Yktkaisvd3NxVlR3M1FZWGgrRTA4V0M4cDFJNW9jMldNaDNOdi9FVDFKVnNyVjBaSzE3Y0k1UkVYU0lSRVFCRVJBRVJFQmovQUI3UCtINFN4SWpkOFhML0FLamIrNjAwSXJRQ3gxVzFmRktZUjhNaU03elZFYlI4M1AyQzFpUUJhMjFsaDhsL0xSNy9BTktuK0p2OWxQWDBza3NidVdDWG5ZTE51RzhJa3dQaGR6SzE0am1uSmM2K2hKT3R2N0tvcDVXMDgwY3ZMRHkwM3M3WXJwaWVMMW1Jem5ueWdzYUxlWTVXanVxNWJwYU5XV0ZGZXgwbzhOcU1hcUhNcFdDVndHYVFnM3Q3cnptNGFocHExazJKdWpsZEdmeW9MK1VIdWUvc3ArQjRySmhtR3VpbzN0YUpuT0pjMXZtSTlDb05VOTV5dmtmbmNPdCs2dWxOSTg3TmtWMXlUS3Q3R1Iyek1jNXgxT2I3TEdNVGZtSnM2K3R0MU1ubURpRzN0MEhxcVdwMDgzcVZOSXoxVGJPekcyZEc3T0JaM1ZWYzlXNmZHWjJSUEFqWm8xdzJVOXJnK25kY0RNTnJxc3BvZjk1a2QxY1Z4ZHRsdDBrbEpNcXBKekdLZVI1Wk03VUJqZktSM3pYKzFrbzJPcFluUnhESUgvcmZwY2hTNDZZVFJoa3BPVzkybnEwK2k3aDVabHp0RGlDTE9icGV4M1VXMlhxVTNzeVhoWGlYaUtsanBhUERHVlVzRFpXa1J4UW1RRVp2TnNObHY1aEpBSkZyaTlsb21QeFA0a1pBMkdGdEF3TmJZTzVWeWZXMXdGdWpBS21Xc3dURHFxb2MxODAxTEhKSTVvc0M0dEJKSDFWK0pybzg3eXByYWRMUllJaUsweUJFUkFFUkVBUkVRR0FlTDBsc093eUVidXFTL3dDR0VmOEFrdGZNekVITVBaWnY0dlNYbXdxTzlnQks0bitrTEEyeTVScUxkejJYbjUvN0Q2VDZkeDQ2UFNlVVF0em01c05yS3ZEWDEwcktVR3dkcTQyMjlTdkt1ckE1eDFJYmZRZHl1V3pHa2lEQTYxUktidlA4bzdLV05hSStUYnJoRjNQSEdYWlljaklZYk1hTDdnS0JVdExtMnNRZWx0dmxkYWVjTmF4cDFiMGJicXVYeW1UTnFEZnNkbGNlWmUwK1NEVWtBNUpQTWI2TzdLc3FaVG1jMGczYWV2VlhGZEJkam5ONmhVZFJ6R2FPMVI4SGNhMjlubEcrNGNHblE5Vk9wYVpvL01BRytwVWFDSnhabXloVHFLZHpidzIvVWlPVzkwU3kyTnNld0o5VlA0VXd5Z3hYRlk4UHhNeVJ4eU84a2tSc1d1UFFuc1ZCaGFKSHRITEpMZHowVXVhUjlEUEZVUmpJV2tHN2VpNW83N05NeWpGZkNXcmJYTVpoZFRESlJTR3pqTzR0ZkY5Qm83N0xhV0JZWkZnMkVVZUcwN25PanBZV3hndTNOaHVWeGdkYzNFc0twcXRwdnpXQW4zNnF3RzZ2bVV1VVpNdVc2K05mZzVSRVVpb0lpSUFpSWdDSWlBMWg0dnlOWlg0V0hFQzhjbHIrN1ZxK294TU1MMmx3TGRRTExQUEhxVGwxMkVGeHMwUXluVDNhdFkwbE9aSkk2aXNibWhJdTFsOVQ2ckZrbjVzOTN4YjFnU0oxR0RNWFZsVTNMVHdqTTBXL3hIZEFvVTlVWFZCa2NMdmZ0cllOSG9wTlhXQ3FkUEJHMHNZR1hhZGdDUFJWQk9WMmcxdlpSNkpiMnk3cHFtUnh5a2dPQXRmdXJWMlZySTJ0OHhzc2FwcGl4NEx6YzMwOUZjVWM4UUljNXlzbG1iTkpMcjJ1ZlNlWDRWRE5zR3ZQc1ZmVlU3V3d0ZTRXQVB5cVN0RFhlZU93OUZLbVF3bzlxWEs2TU4zOVZJYkFJNVFRN1k2S3BwYWd4eUFIWldrSWJMZk1TQWsxdEhNdVBUMml3dytwaXBwclBsYTV0OW5MdmlqbVBnemg0SU8xdGdxcVNtYmwvTGNTUnZkU2FaelRGeTNuYlVabFBYQlQ3RzdmRFp4ZHdyVDVyWGE1d05sbFN3L3d3aWJCdzZZbS9wRW1ZSDNBV1lLeWVqTmsrOW5LSWlrUUNJaUFJaUlBaUlnTlRlUG1IU1QwMkRWd1plQ0dWOFV6L3dDWE1BUi8ya2ZDMVRYMUF5UXV1TnYwalpmVU9OWVhTWTFodFJoOWZIbnA1MkZyaHNSMklQUWpkZk5YSGZDbUljSlZ6b2F3R1drZTgvaHFvRFNRZGoyY08zd3FNa2ZrMytObVNYcXlwbnFzMFlqSnU4dHNTQm92SndjMGh6aGUrMWlvYlpiRURzTEtWRzhPRzZwcEd1YTJlc0xpMDNjMEUrcW1SdjJBMWQwVUVudXZha2VjenI3N3JpSlBvdTdHV2xESGtYN3FxbmJ5dERmM3VwMGNvNWJtdmRxNGFBZEZCcXRBQS96ZXE3UkdGcGtLVFRVS1pTMWVtUngwVU55NkM3WEFoY2w2SlZLWmtVRlNOd0xEMFhzOTJadDNhS2xwcWdnWEttTnFXbXdMcms5RmFxTTE0djhBRGMzaEhWbWJEcXFCNzJ1ZkU1dTNZcllLMC80Unp0aHgyU0FhR1dBM3QvRllnaS8zVzMxZEhSZ3lyVkhLSWltVmhFUkFFUkVBUkVRQlFzV3d1aXhqRDVxSEVxZGs5TktMT1k0ZmNkajZxYWlBK1kvRVR3N3J1RUpqVlVwa3E4SGNiTm5JQmZFZXo3ZnZ0N0xEb3BMVzFYMlRQREhQQzZLYU5za2J4bGN4d3VIRHNRdEhlSUhoRE5TT2x4TGhOanBZTDVwS0QrSm5jeG5xUDh1L2EreXJ1TjlHbkZtYTdOWWg5Mml5OXFja3VCRnRGQlk4dGM1cmdXdWFiT0JGaUQ2aFNZNUxCWjJ0TTlCV21pMWFiQVdQMVhsTEk2eHVNelZ6VEZwYmR4MFhXWTNPaE8reFhHaXlIc2p2YUw2STFseTFkbWtYTzJxN0J3YTYybWlpZFBPeGFORnpBNDVyaXdOMTJEZkp2MVhrNXdBMHNQVHV1b05Hd3ZDMnAvNDBvQmNrdkVqVC9RVnZvTDU4OEhvMzFISE5HOXYvQUNvcFpIZTJYTCs3Z3ZvTUxWaiswOG55ZUwwY29pS3d6aEVSQUVSRUFSRVFCRVJBRnd1VVFHRWNiK0d1RDhVdGZVTVkyaXhJalNxaVorcy81Mi94ZSs2MFh4THdianZDOHJtNGxSdU5NRFp0WEY1bzNqdmYrSDJObDlWcnBKSEhJd3NsWTE3SEN4YTRYQlVhbE10akxVSHlBeWNCbzl1NmtaaVd0NmxiNTRrOEplSGNXelM0ZkdjS3FEcmVtQTVaUHF6YjRzdFpZOTRZOFVZSzh5VTlPTVRwckVtU2wxYzMzWVRmNHVxYXhzMlI1TXZzeFBsdVp1ZzFLNlN2a2prTWRRMTBjZ05peDdTMGo2SFZkbUd3UFVxcjEwYXB0TWtOeTJ5OXQxSG1ZTlNGMmFRTmMyMjZ1ZUZ1R01RNHJ4RnRKUU5mSERmOCtxTGJzaUhYWHE3MFJKdG5idFN0czJGNENZTkl5bnI4Ym1hUTJZaUNDL1ZyZFhINXNQb3R1aFE4SXcybHdqREtiRDZKbkxwNmVNTVlQUWRUNjlWTTZyWkswdEhqWkw5NjJjb2lMcEFJaUlBaUlnQ0lpQUlpSUFpSWdDSWlBTGc3SWlBcnNVd1RDc1hpTWVKNGRTMVRUcitiRUhmZFl2VitGUENVNUpaUlRVL3BEVVBBL2RFVVdpYzAxMHptbDhLZUU2ZDRrZFJ6VDZhdG1xSE9hZm9zd3craHBNUHBtMDFEVFJVOERQMHh4TURXajZCRVhVaFZOOXNrb2lMcEFJaUlBaUlnUC8vWikNCjwvY2VudGVyPg0KDQojIDxzcGFuIHN0eWxlPSJjb2xvcjpibHVlIj4gSW5zdGFsYXIgcGFxdWV0ZXMgeSBsbGFtYXIgbGlicmVyw61hcyA8L3NwYW4+DQpgYGB7cn0NCmxpYnJhcnkoY2FyZXQpDQpsaWJyYXJ5KHRpZHl2ZXJzZSkNCmBgYA0KDQojIDxzcGFuIHN0eWxlPSJjb2xvcjpibHVlIj4gQ3JlYXIgbGEgYmFzZSBkZSBkYXRvcyA8L3NwYW4+DQpgYGB7cn0NCmRmIDwtIHJlYWQuY3N2KCJDOlxcVXNlcnNcXHJhbWlyXFxEb3dubG9hZHNcXGhlYXJ0LmNzdiIpDQpgYGANCg0KIyA8c3BhbiBzdHlsZT0iY29sb3I6Ymx1ZSI+IEVudGVuZGVyIGxhIGJhc2UgZGUgZGF0b3MgPC9zcGFuPg0KDQpgDQoNCg0KDQoNCg==