library(pacman)
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","fdth")
setwd("~/APLICADA")
plantas <- read_csv("~/APLICADA/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.

Tabla de control

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

Tabla de Fertilizante

datatable(Fert)

Histograma y poligonos 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

Histograma y poligono de frecuencia absoluta segun sturge

Tabla de frecuencia absoluta

plot(tablaCtrl,type='fh')

plot(tablaFert,type='fh')

Tabla de frecuencia poligonal

plot(tablaCtrl,type='fp')

plot(tablaFert,type='fp')

Histograma y poligono de frecuencia relativa segun Sturges

Tabla de frecuencia relativa

plot(tablaCtrl,type='rfh')

plot(tablaFert,type='rfh')

Poligonal

plot(tablaCtrl,type='rfp') 

plot(tablaFert,type='rfp')

Frecuencia acumulada segun Sturges

 plot(tablaCtrl,type = "cfh")

plot(tablaFert,type = "cfh")

Tabla poligonal

plot(tablaCtrl,type = "cfp")

plot(tablaFert,type = "cfp")