parcial2

library(UsingR)

## Warning: package 'UsingR' was built under R version 4.0.5

## Loading required package: MASS

## Warning: package 'MASS' was built under R version 4.0.5

## Loading required package: HistData

## Warning: package 'HistData' was built under R version 4.0.5

## Loading required package: Hmisc

## Warning: package 'Hmisc' was built under R version 4.0.5

## Loading required package: lattice

## Loading required package: survival

## Loading required package: Formula

## Loading required package: ggplot2

## Warning: package 'ggplot2' was built under R version 4.0.5

## 
## Attaching package: 'Hmisc'

## The following objects are masked from 'package:base':
## 
##     format.pval, units

## 
## Attaching package: 'UsingR'

## The following object is masked from 'package:survival':
## 
##     cancer

attach(normtemp)

data(normtemp)
# promedio de la temperatura de los hombres 
promedio_hombre_tempe=mean(normtemp$temperature[gender==1])
promedio_hombre_tempe

## [1] 98.10462

#promedio de la frecuencia cardiaca de los hombres
promedio_hombre_hr=c(mean(normtemp$hr[gender==1]))
promedio_hombre_hr

## [1] 73.36923

#promedio de la temperatura de las mujeres
promedio_mujer_temp=c(mean(normtemp$temperature[gender==2]))
promedio_mujer_temp

## [1] 98.39385

#promedio de la tempertura de a frecuencia cardiaca 
promedio_mujer_hr=c(mean(normtemp$temperature[gender==2]))
promedio_mujer_hr

## [1] 98.39385

# mayor temperatura de los hombres 
mayor_hombre=c(max(normtemp$temperature[gender==1]))
mayor_hombre

## [1] 99.5

#menor temperatura de los hombres
menor_hombre=c(min(normtemp$temperature[gender==1]))
menor_hombre

## [1] 96.3

#mayor temperatura de las mujeres
mayor_mujer=c(max(normtemp$temperature[gender==2]))
mayor_mujer

## [1] 100.8

#menor temepratura de las mujeres
menor_mujer=c(min(normtemp$temperature[gender==2]))
menor_mujer

## [1] 96.4

library(plyr)

## Warning: package 'plyr' was built under R version 4.0.5

## 
## Attaching package: 'plyr'

## The following objects are masked from 'package:Hmisc':
## 
##     is.discrete, summarize

 a=count(normtemp, "gender")
a

##   gender freq
## 1      1   65
## 2      2   65

#la temperatura promedio sin impotar genero es 
temperatura_promedio=mean(normtemp$temperature)
temperatura_promedio

## [1] 98.24923

hist(normtemp$temperature,main=("temperatura"),
ylab="No. personas", xlab="temperatura en grado °F")