Informatica medica 1

Ejercicio 1

Edad=c(8,9,10,9,8,8,10,9,8,9)
Suma_Edad=sum(Edad)
Edad

##  [1]  8  9 10  9  8  8 10  9  8  9

Suma_Edad

## [1] 88

Exam_2=c(90.2,76.9,50.1,100,92.4,45.2,85.4,89.6,72.5,88.7)
Prom_Exam_2=mean(Exam_2)
Prom_Exam_2

## [1] 79.1

Ejercicio 2

estatura=c(66,67,58,73,69,67,71)
mean(estatura)

## [1] 67.28571

median(estatura)

## [1] 67

var(estatura)

## [1] 22.90476

min(estatura)

## [1] 58

max(estatura)

## [1] 73

peso=c(140,180,130,200,175,180,179)
mean(peso)

## [1] 169.1429

median(peso)

## [1] 179

var(peso)

## [1] 616.8095

min(peso)

## [1] 130

max(peso)

## [1] 200

Ejercicio 3

precio=c(10,9,8,7,6,5)
unidades=c(5,9,13,17,21,25)
cor(precio,unidades)

## [1] -1

plot(unidades,precio)

Ejercicio 4

frutyveg=c(100,680,789,150)
names(frutyveg)=c("Yautia","Guineos","Platanos maduros","Platanos verdes")
barplot(frutyveg)