Taller 1 Eddy herrera daza

Estudio de Caso Dataset: https://richardlent.github.io/datasets/bumpus.dat.txt En febrero de 1898, hubo una fuerte tormenta de invierno con lluvia, aguanieve y nieve cerca de Providence, RI (Rhode Island). Ciento treinta y seis gorriones ingleses fueron encontrados congelados y llevados al laboratorio del Dr. Bumpus en la Universidad Brown. De ellos, 72 sobrevivieron y 64 murieron. Bumpus aprovechó la oportunidad de estudiar un episodio de selección natural. Midió una serie de características de las aves y las analizó para encontrar diferencias entre los sobrevivientes y los que perecieron.

datos<- read.table( "https://richardlent.github.io/datasets/bumpus.dat.txt",header=T)
datos

Tenga en cuenta que las variables (características) son la base que está disponible y tiene 56 registros de los Machos. Columna 1 (survive):1 si sobrevive y 0 si no sobrevive???y 0 ???????? ????Columna 2 (length): Longitud total, Columna 3 (alar): extensión Alar; Columna 4 (weight): peso Columna 5 (lbh): longitud del pico y la cabeza; Columna 6 (lh): longitud del húmero; Columna 7 (lfemur): longitud del femur Columna 8 (ltibio): longitud del tibiotarso; Columna 9 (wSkull): ancho del cráneo y Columna 10 (kL): longitud de la quilla del esternón

names(datos)

 [1] "survive" "length"  "alar"    "weight"  "lbh"     "lhum"   
 [7] "lfem"    "ltibio"  "wskull"  "lkeel"  

summary(datos)

    survive           length           alar           weight     
 Min.   :0.0000   Min.   :153.0   Min.   :39.00   Min.   :3.000  
 1st Qu.:0.0000   1st Qu.:158.8   1st Qu.:44.75   1st Qu.:4.875  
 Median :1.0000   Median :160.0   Median :47.00   Median :5.750  
 Mean   :0.5893   Mean   :160.0   Mean   :46.98   Mean   :5.764  
 3rd Qu.:1.0000   3rd Qu.:161.0   3rd Qu.:50.00   3rd Qu.:6.500  
 Max.   :1.0000   Max.   :166.0   Max.   :53.00   Max.   :8.300  
      lbh             lhum             lfem       
 Min.   :30.00   Min.   :0.6590   Min.   :0.6580  
 1st Qu.:30.30   1st Qu.:0.7080   1st Qu.:0.7000  
 Median :31.00   Median :0.7360   Median :0.7090  
 Mean   :30.96   Mean   :0.7291   Mean   :0.7105  
 3rd Qu.:31.50   3rd Qu.:0.7460   3rd Qu.:0.7180  
 Max.   :31.90   Max.   :0.7800   Max.   :0.7650  
     ltibio          wskull           lkeel       
 Min.   :1.000   Min.   :0.5700   Min.   :0.7880  
 1st Qu.:1.103   1st Qu.:0.5940   1st Qu.:0.8300  
 Median :1.117   Median :0.6000   Median :0.8500  
 Mean   :1.123   Mean   :0.6012   Mean   :0.8506  
 3rd Qu.:1.150   3rd Qu.:0.6082   3rd Qu.:0.8795  
 Max.   :1.197   Max.   :0.6330   Max.   :0.9160  

mean(datos$alar)

[1] 46.98214

var(datos$alar)

[1] 14.52695

install.packages("dplyr")

Error in install.packages : Updating loaded packages

library(dplyr)
sobre<- filter(datos, survive=='1')
sobre