Datos

###Frecuencia de actividades deportivas

actividad<- c("dibujo", "tiro con arco","baile","futbol","americano","natacion", "thaitiano","natcion","tiro con arco","futbol","americano","basquetbol","banda de guerra","voleybol","futbol","oratoria","thaitiano","box","futbol","voleybol","natacion","pesas","fotografia","basquetbol","dibujo","ajedrez","dibujo","fotografia","voleybol","halterofilia","atletismo","basquetbol","dibujo","box","atletismo","dibujo","ajerez")
actividad

##  [1] "dibujo"          "tiro con arco"   "baile"           "futbol"         
##  [5] "americano"       "natacion"        "thaitiano"       "natcion"        
##  [9] "tiro con arco"   "futbol"          "americano"       "basquetbol"     
## [13] "banda de guerra" "voleybol"        "futbol"          "oratoria"       
## [17] "thaitiano"       "box"             "futbol"          "voleybol"       
## [21] "natacion"        "pesas"           "fotografia"      "basquetbol"     
## [25] "dibujo"          "ajedrez"         "dibujo"          "fotografia"     
## [29] "voleybol"        "halterofilia"    "atletismo"       "basquetbol"     
## [33] "dibujo"          "box"             "atletismo"       "dibujo"         
## [37] "ajerez"

frecuencia<- table(actividad)
frecuencia

## actividad
##         ajedrez          ajerez       americano       atletismo           baile 
##               1               1               2               2               1 
## banda de guerra      basquetbol             box          dibujo      fotografia 
##               1               3               2               5               2 
##          futbol    halterofilia        natacion         natcion        oratoria 
##               4               1               2               1               1 
##           pesas       thaitiano   tiro con arco        voleybol 
##               1               2               2               3

n= length(actividad)
n

## [1] 37

barplot(frecuencia) 

frec.relativa<- frecuencia/n
frec.relativa

## actividad
##         ajedrez          ajerez       americano       atletismo           baile 
##      0.02702703      0.02702703      0.05405405      0.05405405      0.02702703 
## banda de guerra      basquetbol             box          dibujo      fotografia 
##      0.02702703      0.08108108      0.05405405      0.13513514      0.05405405 
##          futbol    halterofilia        natacion         natcion        oratoria 
##      0.10810811      0.02702703      0.05405405      0.02702703      0.02702703 
##           pesas       thaitiano   tiro con arco        voleybol 
##      0.02702703      0.05405405      0.05405405      0.08108108

frec.porc<-frec.relativa*100
frec.porc

## actividad
##         ajedrez          ajerez       americano       atletismo           baile 
##        2.702703        2.702703        5.405405        5.405405        2.702703 
## banda de guerra      basquetbol             box          dibujo      fotografia 
##        2.702703        8.108108        5.405405       13.513514        5.405405 
##          futbol    halterofilia        natacion         natcion        oratoria 
##       10.810811        2.702703        5.405405        2.702703        2.702703 
##           pesas       thaitiano   tiro con arco        voleybol 
##        2.702703        5.405405        5.405405        8.108108

tablafrecuencia<-transform(frecuencia)
tablafrecuencia

##          actividad Freq
## 1          ajedrez    1
## 2           ajerez    1
## 3        americano    2
## 4        atletismo    2
## 5            baile    1
## 6  banda de guerra    1
## 7       basquetbol    3
## 8              box    2
## 9           dibujo    5
## 10      fotografia    2
## 11          futbol    4
## 12    halterofilia    1
## 13        natacion    2
## 14         natcion    1
## 15        oratoria    1
## 16           pesas    1
## 17       thaitiano    2
## 18   tiro con arco    2
## 19        voleybol    3

tablafrecuencia$frec.relativa=frec.relativa
tablafrecuencia$frec.porcentual=frec.porc
tablafrecuencia

##          actividad Freq frec.relativa frec.porcentual
## 1          ajedrez    1    0.02702703        2.702703
## 2           ajerez    1    0.02702703        2.702703
## 3        americano    2    0.05405405        5.405405
## 4        atletismo    2    0.05405405        5.405405
## 5            baile    1    0.02702703        2.702703
## 6  banda de guerra    1    0.02702703        2.702703
## 7       basquetbol    3    0.08108108        8.108108
## 8              box    2    0.05405405        5.405405
## 9           dibujo    5    0.13513514       13.513514
## 10      fotografia    2    0.05405405        5.405405
## 11          futbol    4    0.10810811       10.810811
## 12    halterofilia    1    0.02702703        2.702703
## 13        natacion    2    0.05405405        5.405405
## 14         natcion    1    0.02702703        2.702703
## 15        oratoria    1    0.02702703        2.702703
## 16           pesas    1    0.02702703        2.702703
## 17       thaitiano    2    0.05405405        5.405405
## 18   tiro con arco    2    0.05405405        5.405405
## 19        voleybol    3    0.08108108        8.108108