AI2UCI_5

xfun::embed_file("plantas.csv")

Download plantas.csv

library(pacman)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","fdth")

plantas=read_csv("plantas.csv")

## Rows: 42 Columns: 3

## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (1): Tratamiento
## dbl (2): planta, IE

## 
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.

datatable=plantas

##Tabla de los datos seleccionados “Ctrl” y “Fert” de la base de datos “plantas”

Ctrl= subset(plantas, Tratamiento=="Ctrl")
Fert= subset(plantas, Tratamiento=="Fert")
datatable(Ctrl)

datatable(Fert)

Tablas de distribuciones de frecuencia

  tablaCtrl=fdt(Ctrl)
  tablaFert=fdt(Fert)
  tablaCtrl

## planta 
##   Class limits f   rf rf(%) cf  cf(%)
##    [0.99,4.36) 4 0.19 19.05  4  19.05
##    [4.36,7.73) 3 0.14 14.29  7  33.33
##    [7.73,11.1) 4 0.19 19.05 11  52.38
##   [11.1,14.47) 3 0.14 14.29 14  66.67
##  [14.47,17.84) 3 0.14 14.29 17  80.95
##  [17.84,21.21) 4 0.19 19.05 21 100.00
## 
## IE 
##     Class limits f   rf rf(%) cf  cf(%)
##  [0.5445,0.6137) 1 0.05  4.76  1   4.76
##  [0.6137,0.6828) 4 0.19 19.05  5  23.81
##   [0.6828,0.752) 4 0.19 19.05  9  42.86
##   [0.752,0.8212) 6 0.29 28.57 15  71.43
##  [0.8212,0.8903) 1 0.05  4.76 16  76.19
##  [0.8903,0.9595) 5 0.24 23.81 21 100.00

  tablaFert

## planta 
##   Class limits f   rf rf(%) cf  cf(%)
##  [21.78,25.22) 4 0.19 19.05  4  19.05
##  [25.22,28.66) 3 0.14 14.29  7  33.33
##   [28.66,32.1) 4 0.19 19.05 11  52.38
##   [32.1,35.54) 3 0.14 14.29 14  66.67
##  [35.54,38.98) 3 0.14 14.29 17  80.95
##  [38.98,42.42) 4 0.19 19.05 21 100.00
## 
## IE 
##     Class limits f   rf rf(%) cf  cf(%)
##  [0.5544,0.6573) 2 0.10  9.52  2   9.52
##  [0.6573,0.7601) 3 0.14 14.29  5  23.81
##   [0.7601,0.863) 2 0.10  9.52  7  33.33
##   [0.863,0.9659) 6 0.29 28.57 13  61.90
##   [0.9659,1.069) 3 0.14 14.29 16  76.19
##    [1.069,1.172) 5 0.24 23.81 21 100.00

Histogramas y poligonos de distribuciones de frecuencia

library(fdth)
  plot(tablaCtrl,type = "fh") #Histograma de frecuencia absoluta

  plot(tablaFert,type = "fh") #Histograma de frecuencia absoluta

  plot(tablaCtrl,type = "fp") #Poligono de frecuencia absoluta

  plot(tablaFert,type = "fp") #Poligono de frecuencia absoluta

  plot(tablaCtrl,type = "rfh") #Histograma de frecuencia relativa

  plot(tablaFert,type = "rfh") #Histograma de frecuencia relativa 

  plot(tablaCtrl,type = "rfp") #Poligono de frecuencia relativa

  plot(tablaFert,type = "rfp") #Poligono de frecuencia relativa

  plot(tablaCtrl,type = "cfh") #Histograma de frecuencia acumulada

  plot(tablaFert,type = "cfh") #Histograma de frecuencia acumulada

  plot(tablaCtrl,type = "cfp") #Poligono de frecuencia acumulada

  plot(tablaFert,type = "cfp") #Poligono de frecuencia acumulada