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