datos4<-read.csv("biopsy.csv")
head(datos4)
## X ID V1 V2 V3 V4 V5 V6 V7 V8 V9 class
## 1 1 1000025 5 1 1 1 2 1 3 1 1 benign
## 2 2 1002945 5 4 4 5 7 10 3 2 1 benign
## 3 3 1015425 3 1 1 1 2 2 3 1 1 benign
## 4 4 1016277 6 8 8 1 3 4 3 7 1 benign
## 5 5 1017023 4 1 1 3 2 1 3 1 1 benign
## 6 6 1017122 8 10 10 8 7 10 9 7 1 malignant
resumen<-summary(datos4$V4)
print(resumen)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.000 1.000 1.000 2.807 4.000 10.000