Usar rsample para la muestra de datos

summary (vehiculos)

  1. initial_split() automáticamente divide los datos en dos grupos: entrenamiento (training) y prueba (testing)

r{r}


<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiRXJyb3I6IGF0dGVtcHQgdG8gdXNlIHplcm8tbGVuZ3RoIHZhcmlhYmxlIG5hbWVcbiJ9 -->

Error: attempt to use zero-length variable name ```

  1. Para extraer cada grupo de datos utilize training() y testing() respectivamente
  1. Crear un modelo simple con lm()
  1. Las medidas del modelo se pueden ver usando glance(), del paquete broom
  1. Para ver los efectos de cada variable utlize tidy()
  1. Crear un segundo modelo con lm()
  1. El comando de bind_rows() puede juntar los resultados de glance() en una sola tabla
  1. La función augment() agrega predicciones a una tabla. En este caso la tabla que contiene los datos de prueba
  1. Agregar la función metrics() automaticamente calcula y devuelve los resultados del desempeño del modelo
  1. Facilmente se puede cambiar el modelo para analizar
LS0tCnRpdGxlOiAiVXNhciBgdGlkeW1vZGVsc2AiCm91dHB1dDoKICBwZGZfZG9jdW1lbnQ6IGRlZmF1bHQKICBodG1sX25vdGVib29rOiBkZWZhdWx0Ci0tLQoKYGBge3IsIGluY2x1ZGUgPSBGQUxTRX0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkodGlkeW1vZGVscykKbGlicmFyeShkYXRvcykKYGBgCgojIyBVc2FyIGByc2FtcGxlYCBwYXJhIGxhIG11ZXN0cmEgZGUgZGF0b3MKCnN1bW1hcnkgKHZlaGljdWxvcykKCjEuIGBpbml0aWFsX3NwbGl0KClgIGF1dG9tw6F0aWNhbWVudGUgZGl2aWRlIGxvcyBkYXRvcyBlbiBkb3MgZ3J1cG9zOiBlbnRyZW5hbWllbnRvICh0cmFpbmluZykgeSBwcnVlYmEgKHRlc3RpbmcpCmBgYHtyfQpzZXQuc2VlZCgzMDMwKQpzZXBhcmFyIDwtIGluaXRpYWxfc3BsaXQodmVoaWN1bG9zKQpgYGAKCjIuIFBhcmEgZXh0cmFlciBjYWRhIGdydXBvIGRlIGRhdG9zIHV0aWxpemUgYHRyYWluaW5nKClgIHkgYHRlc3RpbmcoKWAgcmVzcGVjdGl2YW1lbnRlCmBgYHtyfQp2ZWhpY3Vsb3NfZW50cmVuYXIgPC0gdHJhaW5pbmcoc2VwYXJhcikKdmVoaWN1bG9zX3BydWViYSA8LSB0ZXN0aW5nKHNlcGFyYXIpCmBgYAoKMy4gQ3JlYXIgdW4gbW9kZWxvIHNpbXBsZSBjb24gYGxtKClgCmBgYHtyfQptb2RlbG8xIDwtIGxtKGNpdWRhZCB+IGNpbGluZHJvcyArIG1vdG9yLCBkYXRhID0gdmVoaWN1bG9zX2VudHJlbmFyKQpgYGAKCjQuIExhcyBtZWRpZGFzIGRlbCBtb2RlbG8gc2UgcHVlZGVuIHZlciB1c2FuZG8gYGdsYW5jZSgpYCwgZGVsIHBhcXVldGUgYGJyb29tYApgYGB7cn0KZ2xhbmNlKG1vZGVsbzEpCmBgYAoKNS4gUGFyYSB2ZXIgbG9zIGVmZWN0b3MgZGUgY2FkYSB2YXJpYWJsZSB1dGxpemUgYHRpZHkoKWAKYGBge3J9CnRpZHkobW9kZWxvMSkKYGBgCgo2LiBDcmVhciB1biBzZWd1bmRvIG1vZGVsbyBjb24gYGxtKClgCmBgYHtyfQptb2RlbG8yIDwtIGxtKGNpdWRhZCB+IGNpbGluZHJvcyArIG1vdG9yICsgdHJhY2Npb24sIGRhdGEgPSB2ZWhpY3Vsb3NfZW50cmVuYXIpCmBgYAoKCgo3LiBFbCBjb21hbmRvIGRlIGBiaW5kX3Jvd3MoKWAgcHVlZGUganVudGFyIGxvcyByZXN1bHRhZG9zIGRlIGBnbGFuY2UoKWAgZW4gdW5hIHNvbGEgdGFibGEKYGBge3J9CmJpbmRfcm93cygKICBnbGFuY2UobW9kZWxvMSksCiAgZ2xhbmNlKG1vZGVsbzIpCikgCmBgYAoKOC4gTGEgZnVuY2nDs24gYGF1Z21lbnQoKWAgYWdyZWdhIHByZWRpY2Npb25lcyBhIHVuYSB0YWJsYS4gIEVuIGVzdGUgY2FzbyBsYSB0YWJsYSBxdWUgY29udGllbmUgbG9zIGRhdG9zIGRlIHBydWViYQpgYGB7cn0KbW9kZWxvMSAlPiUKICBhdWdtZW50KG5ld2RhdGEgPSB2ZWhpY3Vsb3NfcHJ1ZWJhKSAKYGBgCgo5LiBBZ3JlZ2FyIGxhIGZ1bmNpw7NuIGBtZXRyaWNzKClgIGF1dG9tYXRpY2FtZW50ZSBjYWxjdWxhIHkgZGV2dWVsdmUgbG9zIHJlc3VsdGFkb3MgZGVsIGRlc2VtcGXDsW8gZGVsIG1vZGVsbwpgYGB7cn0KbW9kZWxvMSAlPiUKICBhdWdtZW50KG5ld2RhdGEgPSB2ZWhpY3Vsb3NfcHJ1ZWJhKSAlPiUKICBtZXRyaWNzKGNpdWRhZCwgLmZpdHRlZCkKYGBgCgoxMC4gRmFjaWxtZW50ZSBzZSBwdWVkZSBjYW1iaWFyIGVsIG1vZGVsbyBwYXJhIGFuYWxpemFyCmBgYHtyfQptb2RlbG8yICU+JQogIGF1Z21lbnQobmV3ZGF0YSA9IHZlaGljdWxvc19wcnVlYmEpICU+JQogIG1ldHJpY3MoY2l1ZGFkLCAuZml0dGVkKQpgYGAKCg==