Datos

Aqui importaremos los datos reunidos en la web de “Carroya.com” que nos daran infromacion sobre los precios del auto mazda 3 segun el kilometraje y el modelo del auto. También se encontrara un resumen que nos dara una vision general del rango y el promedio de precios de este mismo:

library(table1)
## 
## Adjuntando el paquete: 'table1'
## The following objects are masked from 'package:base':
## 
##     units, units<-
library(readxl)
mazda3_ <- read_excel("C:/Users/ACER/OneDrive - PUJ Cali/4to semestre/teoria de probabilidades/mazda3_.xlsx")
## New names:
## • `` -> `...6`
## • `` -> `...7`
## • `` -> `...8`
## • `` -> `...9`
## • `` -> `...10`
## • `` -> `...11`
## • `` -> `...12`
## • `` -> `...13`
## • `` -> `...14`
require(table1)
mazda1_=data.frame(mazda3_)
class(mazda1_[,3])
## [1] "numeric"
table1(~.,data = mazda1_[,3:5])
Overall
(N=146)
precio
Mean (SD) 64700000 (21500000)
Median [Min, Max] 65500000 [24000000, 110000000]
modelo
Mean (SD) 2020 (4.07)
Median [Min, Max] 2020 [2010, 2020]
kilo
Mean (SD) 83700 (49900)
Median [Min, Max] 80000 [150, 296000]

Correlación

En este apartado se puede ver la correlacion entre la antiguedad del carro (modelo del auto) y el precio del automovil mazda3

options(scipen = 10)
"modelo_del_auto"= mazda1_[,4]
"precio"= mazda1_[,3]
 plot(precio, modelo_del_auto)