Repaso

Que es una funcion en R? es una operacion que hacemos segun el que asignamos.

promedio<-function(x,y){
   p=(x+y)/2
   print(paste(p,'es el promedio'))
}
promedio(3,5)

[1] "4 es el promedio"

uso de un for

factorial<-function(x){
   if(x<0){
      print("el numero tiene que ser positivo")
   }
    else if(x==0){
      print(1)
   }
   else{
      multi=1
   for(i in 1:x) {
      multi=multi*i
   }
      print(multi)}
   
}
factorial(-2)

[1] "el numero tiene que ser positivo"

cree una matriz de 4x4 con los valores de una distribucioin normal

m<-matrix(rnorm(16,mean=5,sd=1), nrow=4,ncol=4)
m

         [,1]     [,2]     [,3]     [,4]
[1,] 6.283491 3.622720 6.621675 5.163544
[2,] 5.867011 5.422524 4.717688 5.228812
[3,] 6.262153 6.256190 4.063346 5.214233
[4,] 4.868533 4.726686 5.141606 5.503769

m[-c(1,3),]

         [,1]     [,2]     [,3]     [,4]
[1,] 5.867011 5.422524 4.717688 5.228812
[2,] 4.868533 4.726686 5.141606 5.503769

resuelve el siguiente sistema de ecuaciones \[\begin{equation} \begin{cases} 2x + 3y - z = 1 \\ -x + 7y + 2z = 2 \\ 3x - y + 4z = 3 \end{cases} \end{equation} \] Resuelve el sistema

c<-matrix(c(2,-1,3,3,7,-1,-1,2,4), nrow=3,ncol=3)
c

     [,1] [,2] [,3]
[1,]    2    3   -1
[2,]   -1    7    2
[3,]    3   -1    4

b<-c(1,2,3)
solve(c,b)

[1] 0.4272727 0.2090909 0.4818182

primo<-function(x){
   d=sqrt(x)
   
   for(i in 2:d){
   if(x%%i==0){
   print('el numero no es primo')
      break
   }
      else{
         print('el numero es primo')
   
   }
   break
   }
}
   primo(7)

[1] "el numero es primo"

library(readxl)
contaminacion<-read_excel("C:\\Users\\MINEDUCYT\\OneDrive\\AÑO 2024\\BASES DE DATOS Y GUIAS PRACTICAS\\DATOS PRACTICAS\\contaminacion_mexico.xls")
limites<-c(0,10,20,100)

contaminacion$carbono <- cut(contaminacion$CO, 
                   breaks = limites, 
                   labels = c("Baja", "Media", "Alta"), 
                   include.lowest = TRUE)
tablacruce<-table(contaminacion$DIASEMAN,contaminacion$carbono)
tablacruce

     
      Baja Media Alta
  Dom   45    63   12
  Jue    0    58   62
  Lun    0    35   85
  Mar    1    26   93
  Mie    0    35   85
  Sab   17    85   18
  Vie   10    64   46

chisq.test(tablacruce)

    Pearson's Chi-squared test

data:  tablacruce
X-squared = 323.57, df = 12, p-value < 2.2e-16