1 Ver modelos de la marca: SUBARU

Este gráfico posibita ver como se deprecian otros podelos de la misma marca en el tiempo.

#GuiaDolar <- readRDS(here("resultados", "datos_limpios.rds"))
graficar_marca(params$unidadMedida, params$marcaBase)

graficar_marca(params$unidadMedida, params$marcaVersus)

2 Depreciación del XV

Puede verse como sufre su depreciación el modelo puntualmente analizado según sus versiones expresadas estadisticamente a lo largo del tiempo.

graficar_modelo(params$unidadMedida,params$modeloBase, params$anioBase, 10)

graficar_modelo(params$unidadMedida,params$modeloVersus, params$anioVersus, 15)

3 Permuta por otro XV o por un C30

Este gráfico permite ver el costo que debiera representar entregar el auto en parte de pago y sumar el monto que se debiera desembolsar para el cambio de unidad.

## `summarise()` has grouped output by 'año'. You can override using the `.groups`
## argument.

4 Comprarativo: XV - vs C30 - 12

Sirve para visualizar el valor total de vehículos analizados y tomar deciciones tomando en consideración: - Precios - Promedio de Versiones - Versiones fuera de la estadística

funVersus(params$unidadMedida, params$modeloBase, params$anioBase, params$modeloVersus, params$anioVersus, 10)

5 Otros modelos a considera

5.1 Por CRV ver

funVersus(params$unidadMedida, params$modeloBase, params$anioBase, "Cruze II", 22, 20)+scale_y_continuous(breaks = seq(-5, 45, by = 2.5))

funVersus(params$unidadMedida, params$modeloBase, params$anioBase, "S60", 16, 7)+scale_y_continuous(breaks = seq(-5, 45, by = 2.5))

funVersus(params$unidadMedida, params$modeloBase, params$anioBase, "Tracker", 16, 7)+scale_y_continuous(breaks = seq(-5, 45, by = 2.5))