#para crear un campo ctrl + alt + i

set.seed(2022)
options(digits = 3)
germ<-rnorm(20,80,3); germ
##  [1] 82.7 76.5 77.3 75.7 79.0 71.3 76.8 80.8 82.2 80.7 83.0 79.4 77.1 80.3 79.8
## [16] 79.8 78.0 77.1 83.1 82.6
hist(germ, col = "lightblue", main = "Histograma de germinación", xlim =c(65, 90), ylim=c(0,5),ylab="Frecuencia")

### Modelos de diseño

Iniciandonos en \(\LaTeX\)

\[y_{ijk}=\mu+\tau_i+\beta_j+(\tau\beta)_{ij}+\epsilon_{ijk}\]

Creando una matriz \[ V_{m,n} = \begin{pmatrix} 8 & 5 & 4 & -1 \\ 5 & 7 & 11 & -5 \\ 6 & 4 & -3 & -2 \\ 0 & -1 & 7 & 6 \end{pmatrix} \] Sistema de ecuaciones

\[\left. 2x + y = 1 \atop x + y = 4 \right\}\]

Otro ejemplo

\[\begin{multline*} p(x) = 3x^6 + 14x^5y + 590x^4y^2 + 19x^3y^3\\ - 12x^2y^4 - 12xy^5 + 2y^6 - a^3b^3 \end{multline*}\]

Creando funciones

#CONVIERTE °C a °K a una secuecia de números
mi.convertidor<-function(tc) tc + 273.15
mi.convertidor(seq(25,35,1))
##  [1] 298 299 300 301 302 303 304 305 306 307 308
logarit<-function(x) log(x)
logarit(1:100)
##   [1] 0.000 0.693 1.099 1.386 1.609 1.792 1.946 2.079 2.197 2.303 2.398 2.485
##  [13] 2.565 2.639 2.708 2.773 2.833 2.890 2.944 2.996 3.045 3.091 3.135 3.178
##  [25] 3.219 3.258 3.296 3.332 3.367 3.401 3.434 3.466 3.497 3.526 3.555 3.584
##  [37] 3.611 3.638 3.664 3.689 3.714 3.738 3.761 3.784 3.807 3.829 3.850 3.871
##  [49] 3.892 3.912 3.932 3.951 3.970 3.989 4.007 4.025 4.043 4.060 4.078 4.094
##  [61] 4.111 4.127 4.143 4.159 4.174 4.190 4.205 4.220 4.234 4.248 4.263 4.277
##  [73] 4.290 4.304 4.317 4.331 4.344 4.357 4.369 4.382 4.394 4.407 4.419 4.431
##  [85] 4.443 4.454 4.466 4.477 4.489 4.500 4.511 4.522 4.533 4.543 4.554 4.564
##  [97] 4.575 4.585 4.595 4.605
logarit(0:100)
##   [1]  -Inf 0.000 0.693 1.099 1.386 1.609 1.792 1.946 2.079 2.197 2.303 2.398
##  [13] 2.485 2.565 2.639 2.708 2.773 2.833 2.890 2.944 2.996 3.045 3.091 3.135
##  [25] 3.178 3.219 3.258 3.296 3.332 3.367 3.401 3.434 3.466 3.497 3.526 3.555
##  [37] 3.584 3.611 3.638 3.664 3.689 3.714 3.738 3.761 3.784 3.807 3.829 3.850
##  [49] 3.871 3.892 3.912 3.932 3.951 3.970 3.989 4.007 4.025 4.043 4.060 4.078
##  [61] 4.094 4.111 4.127 4.143 4.159 4.174 4.190 4.205 4.220 4.234 4.248 4.263
##  [73] 4.277 4.290 4.304 4.317 4.331 4.344 4.357 4.369 4.382 4.394 4.407 4.419
##  [85] 4.431 4.443 4.454 4.466 4.477 4.489 4.500 4.511 4.522 4.533 4.543 4.554
##  [97] 4.564 4.575 4.585 4.595 4.605
logarit<-function(x) {
  if ( x > 0){
    log(x)
  }
  else ( print("Valor fuera del dominio") )
} 
logarit(1:100)
##   [1] 0.000 0.693 1.099 1.386 1.609 1.792 1.946 2.079 2.197 2.303 2.398 2.485
##  [13] 2.565 2.639 2.708 2.773 2.833 2.890 2.944 2.996 3.045 3.091 3.135 3.178
##  [25] 3.219 3.258 3.296 3.332 3.367 3.401 3.434 3.466 3.497 3.526 3.555 3.584
##  [37] 3.611 3.638 3.664 3.689 3.714 3.738 3.761 3.784 3.807 3.829 3.850 3.871
##  [49] 3.892 3.912 3.932 3.951 3.970 3.989 4.007 4.025 4.043 4.060 4.078 4.094
##  [61] 4.111 4.127 4.143 4.159 4.174 4.190 4.205 4.220 4.234 4.248 4.263 4.277
##  [73] 4.290 4.304 4.317 4.331 4.344 4.357 4.369 4.382 4.394 4.407 4.419 4.431
##  [85] 4.443 4.454 4.466 4.477 4.489 4.500 4.511 4.522 4.533 4.543 4.554 4.564
##  [97] 4.575 4.585 4.595 4.605

estandarizado <-function(x) { med <- mean(x) dev <- sd(x) (x - med) / dev } estandarizado (seq(1,5,0.1)