#Caragamos los datos

datosejem<-read.csv ("datos/10A-ejemplo2.csv",header = TRUE,sep = ";")

Aqui observaremos las medidas de tendencia central con su respectivo codigo

summary(datosejem)

##        id           grupo         pulso           tiempo 
##  Min.   :1.00   Min.   :1.0   Min.   :10.00   Min.   :1  
##  1st Qu.:2.75   1st Qu.:1.0   1st Qu.:16.00   1st Qu.:1  
##  Median :4.50   Median :1.5   Median :22.50   Median :2  
##  Mean   :4.50   Mean   :1.5   Mean   :22.38   Mean   :2  
##  3rd Qu.:6.25   3rd Qu.:2.0   3rd Qu.:26.75   3rd Qu.:3  
##  Max.   :8.00   Max.   :2.0   Max.   :35.00   Max.   :3

Aqui observaremos la desviacion estandar del pulso

sd(datosejem[,3])

## [1] 7.258054

Aqui observaremos la desviacion estandar del tiempo

sd(datosejem[,4])

## [1] 0.8340577

Aqui observamos la varianza del pulso

var (datosejem[,3])

## [1] 52.67935

Aqui observamos la varianza del tiempo

var (datosejem [,4])

## [1] 0.6956522

Diagrama de frecuencia

plot (datosejem[,3], datosejem [,4], main =  "Tiempo & Pulso ",
      xlab = "Pulso", ylab = "Tiempo", pch = 20)

plot (datosejem[,3], datosejem [,2], main =  "Grupo & Pulso ",
      xlab = "Pulso", ylab = "Grupo", pch = 20)

Aqui vemos la regresion

regresion <- lm(pulso ~ tiempo , data = datosejem)
regresion

## 
## Call:
## lm(formula = pulso ~ tiempo, data = datosejem)
## 
## Coefficients:
## (Intercept)       tiempo  
##       6.750        7.813

#Formulación de por lo menos una hipótesis

Se puede observa que con los datos dados a mayor tiempo se tiene un mayor pulso, en cual tambien obsevarmos que el grupo 2 alcanza mayor pulso respecto a su tiempo, pero tambien vemos que el grupo 2 tiene un minimo de 10 en pulso, encambio el grupo 2 tiene agrupaciones en 15, 25 y 30.

#Conclusión de cada medida

Se ve que el puso minimo que tenemos es de 10 y su maximo es un 35, como primer cuartil tenemos un 16 como tercer cuartil tenemos un 26.75, en meadiana que seria el promedio de los pulsos tiene un valor de 22.50, en cuanto la media su valor es de 22.38 En la desviacion estandar de su pulso correponde un 7.2 a su desviacion, en cuanto a su tiempo correponde .83.El la varianza se optiene en su pulso un 52.67, en cuanto a su tiempo correponde un .69Nuestra conclusion seria que las personas tiene mas tiempo corriendo tienen un mayor pulso, en cuanto a que tambien observamos que el grupo 2 tiene mayor y menor pulsacion y el segundo se encuentra entre los datos del segundo.