L1 = c(62,50,46,44,43,41,43,45,41,36,41,42,48,51,60,68,71,61,56,55,66,72,65,70,69,59,56,54,59,67,61)
L2 = c(39,40,37,37,37,40,42,47,43,45,44,45,55,46,41,44,48,49,45,40,38,41,41,39,42,42,47,46,43,43,41)

mi_funcion <- function(x,y){
  #1
  md_1 <- mean(x)
  md_2 <- mean(y)
  #2
  ax <- x<mean(x)
  bx <- x[ax]
  cx <- length(bx)
  ay <- y<mean(y)
  by <- y[ay]
  cy <- length(by)
  #3
  may <- x>y
  cuald <- x[may]
  cuan <- length(cuald)
  dias <- which(may)
  #4
  dif <- x-y
  mx <- max(dif)
  dia <- dif == mx
  qdia <- which(dia)
  #5
  difer <- x-y
  almenos_3 <- difer >= 3
  cual <- difer[almenos_3]
  num <- length(cual)
  #6
  C1 <- (x-32)*5/9
  C2 <- (y-32)*5/9
  
  library(lattice)
  D <- c(1:31)

  G1<-xyplot(C1~D, type = 'b', pch=6, main = 'L1', xlab = 'Días', ylab = 'Temperatura')
  G2<-xyplot(C2~D, type = 'b', pch=6, main = 'L2', xlab = 'Días', ylab = 'Temperatura')
  
  Lista_1 <- list('1.1 Temperatura media 1' = md_1, '1.2 Temperatura media 2' = md_2, '2.1 N0. días en que T1<Tmed1' = cx, '2.2 N0. días en que T2<Tmed2' = cy, '3.1 Cuántos días la T1 fue mayor que T2' = cuan, '3.2 Cuáles fueron esos días' = dias, '4. En qué día ocurrio la máxima diferencia de T' = qdia, '5. Cuántos días la diferencia de T fue de almenos 3°' = num, '6.1 Conversión de °F a °C L1' = C1, '6.2 Conversión de °F a °C L2' = C2, '7.1 Gráfico L1' = G1, '7.2 Gráfico L2' = G2)
  
  return(Lista_1)
  options(digits = 2)
}
  
mi_funcion(L1,L2)
## $`1.1 Temperatura media 1`
## [1] 54.90323
## 
## $`1.2 Temperatura media 2`
## [1] 42.80645
## 
## $`2.1 N0. días en que T1<Tmed1`
## [1] 14
## 
## $`2.2 N0. días en que T2<Tmed2`
## [1] 16
## 
## $`3.1 Cuántos días la T1 fue mayor que T2`
## [1] 25
## 
## $`3.2 Cuáles fueron esos días`
##  [1]  1  2  3  4  5  6  7 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
## 
## $`4. En qué día ocurrio la máxima diferencia de T`
## [1] 22 24
## 
## $`5. Cuántos días la diferencia de T fue de almenos 3°`
## [1] 23
## 
## $`6.1 Conversión de °F a °C L1`
##  [1] 16.666667 10.000000  7.777778  6.666667  6.111111  5.000000  6.111111
##  [8]  7.222222  5.000000  2.222222  5.000000  5.555556  8.888889 10.555556
## [15] 15.555556 20.000000 21.666667 16.111111 13.333333 12.777778 18.888889
## [22] 22.222222 18.333333 21.111111 20.555556 15.000000 13.333333 12.222222
## [29] 15.000000 19.444444 16.111111
## 
## $`6.2 Conversión de °F a °C L2`
##  [1]  3.888889  4.444444  2.777778  2.777778  2.777778  4.444444  5.555556
##  [8]  8.333333  6.111111  7.222222  6.666667  7.222222 12.777778  7.777778
## [15]  5.000000  6.666667  8.888889  9.444444  7.222222  4.444444  3.333333
## [22]  5.000000  5.000000  3.888889  5.555556  5.555556  8.333333  7.777778
## [29]  6.111111  6.111111  5.000000
## 
## $`7.1 Gráfico L1`

## 
## $`7.2 Gráfico L2`

, ,