En el siguiente texto podremos encontrar una serie de códigos elaborados en el programa Rstudio que darán solución a un determinado ejercicio enfocados principalmente en Dataframes.
| AREA 1 | AREA 2 | AREA 3 | AREA 4 |
|---|---|---|---|
| 7.5 | 12.5 | 11 | 12.5 |
| 12 | 10.5 | 8 | 16 |
| 14.5 | 13 | 7.5 | 9.5 |
| 9 | 9.5 | 10 | |
| 18.5 | 19 | ||
| 14 |
area1<-c(7.5,12,14.5)
area2<-c(12.5,10.5,13,9,18.5)
area3<-c(11,8,7.5,9.5,19,14)
area4<-c(12.5,16,9.5,10)
alturas_arboles<-list(area1,area2,area3,area4)
area1[1]>area1[3]
area2[1]>area2[5]
area3[1]>area3[6]
area4[1]>area4[4]
log10(area3[3])
sum(area4[1:3])
mean(area1)
# EJERCICIO 1
## Literal a
area1<-c(7.5,12,14.5)
area2<-c(12.5,10.5,13,9,18.5)
area3<-c(11,8,7.5,9.5,19,14)
area4<-c(12.5,16,9.5,10)
## Literal b
alturas_arboles<-list(area1,area2,area3,area4)
alturas_arboles
##Literal c
area1[1]>area1[3]
area2[1]>area2[5]
area3[1]>area3[6]
area4[1]>area4[4]
##Literal d
log10(area3[3])
##Literal e
sum(area4[1:3])
##Literal f
mean(area1)
## [[1]]
## [1] 7.5 12.0 14.5
##
## [[2]]
## [1] 12.5 10.5 13.0 9.0 18.5
##
## [[3]]
## [1] 11.0 8.0 7.5 9.5 19.0 14.0
##
## [[4]]
## [1] 12.5 16.0 9.5 10.0
## [1] FALSE
## [1] FALSE
## [1] FALSE
## [1] TRUE
## [1] 0.8750613
## [1] 38
## [1] 11.33333
| SEXO | PRESION ARTERIAL | PULSO POR MINUTO |
|---|---|---|
| Hombre | 119 | 59 |
| Mujer | 99 | 89 |
| Hombre | 102 | 107 |
| Hombre | 78 | 76 |
| Mujer | 78 | 91 |
texto
datos<-read.table("C:\\Users\\Usuario\\Desktop\\hospital.txt")
colnames(datos)<-c("Sexo","Presion_arterial","Pulsoxmin")
datos[1,c(1:3)]
datos[4,c(1:3)]
datos[2,2]>datos[5,2]
mean(datos[c(1:5),3])
sqrt(datos[4,2])
# EJERCICIO 2
# Literal b
datos<-read.table("C:\\Users\\Usuario\\Desktop\\hospital.txt")
colnames(datos)<-c("Sexo","Presion_arterial","Pulsoxmin")
# Literal c
datos[1,c(1:3)]
datos[4,c(1:3)]
# Literal d
datos[2,2]>datos[5,2]
# Literal e
mean(datos[c(1:5),3])
# Literal f
sqrt(datos[4,2])
## Sexo Presion_arterial Pulsoxmin
## 1 Hombre 119 59
## Sexo Presion_arterial Pulsoxmin
## 4 Hombre 78 76
## [1] TRUE
## [1] 84.4
## [1] 8.831761