Untitled

desarrollo del proyecto - entrega 2

Datos_Vehiculos <- read_delim("Datos_Vehiculos.csv", 
    delim = ";", escape_double = FALSE, trim_ws = TRUE)

###punto 1###
#correlacion
correlacion<-cor(Datos_Vehiculos[,c(9,10,14,15)],use ="complete.obs")
#correlacion de las variables cuantitativas
corrplot(correlacion, method = "number", type = "full")#grafico

#install.packages("PerformanceAnalytics")
chart.Correlation(Datos_Vehiculos[,c(9,10,14,15)], hist=F,pch= 19)

## Warning in par(usr): argument 1 does not name a graphical parameter
## Warning in par(usr): argument 1 does not name a graphical parameter
## Warning in par(usr): argument 1 does not name a graphical parameter
## Warning in par(usr): argument 1 does not name a graphical parameter
## Warning in par(usr): argument 1 does not name a graphical parameter
## Warning in par(usr): argument 1 does not name a graphical parameter