##Importar base “Heart Disease”

data=read.csv("https://raw.githubusercontent.com/geovannychoez/prueba/master/processed.cleveland.data",header=FALSE,sep=",",na.strings = '?')

##REENOMBRAR

names(data) <- c( "age", "sex", "cp", "trestbps", "chol","fbs", 
                  "restecg","thalach","exang","oldpeak","slope", "ca", "thal", 
                  "num")

##Diagrama de cajas

boxplot.default(data$age)

##Diagrama de Dispersión

plot(data$age, data$trestbps)