library(readr)
## Warning: package 'readr' was built under R version 4.5.3
df <- read_csv("C:/Users/braya/Downloads/CardioGoodFitness.csv")
## Rows: 180 Columns: 9
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (3): Product, Gender, MaritalStatus
## dbl (6): Age, Education, Usage, Fitness, Income, Miles
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
View(df)

Resumen estadistico

summary(df)
##    Product               Age           Gender            Education    
##  Length:180         Min.   :18.00   Length:180         Min.   :12.00  
##  Class :character   1st Qu.:24.00   Class :character   1st Qu.:14.00  
##  Mode  :character   Median :26.00   Mode  :character   Median :16.00  
##                     Mean   :28.79                      Mean   :15.57  
##                     3rd Qu.:33.00                      3rd Qu.:16.00  
##                     Max.   :50.00                      Max.   :21.00  
##  MaritalStatus          Usage          Fitness          Income      
##  Length:180         Min.   :2.000   Min.   :1.000   Min.   : 29562  
##  Class :character   1st Qu.:3.000   1st Qu.:3.000   1st Qu.: 44059  
##  Mode  :character   Median :3.000   Median :3.000   Median : 50597  
##                     Mean   :3.456   Mean   :3.311   Mean   : 53720  
##                     3rd Qu.:4.000   3rd Qu.:4.000   3rd Qu.: 58668  
##                     Max.   :7.000   Max.   :5.000   Max.   :104581  
##      Miles      
##  Min.   : 21.0  
##  1st Qu.: 66.0  
##  Median : 94.0  
##  Mean   :103.2  
##  3rd Qu.:114.8  
##  Max.   :360.0