1. Genere un vector numérico que contenga una secuencia entre los
números 11 y 98 con un espaciamiento entre cada número de 3 unidades,
guárdelo en una variable llamada datos.
datos <- seq(11,98,3)
datos
## [1] 11 14 17 20 23 26 29 32 35 38 41 44 47 50 53 56 59 62 65 68 71 74 77 80 83
## [26] 86 89 92 95 98
2. Obtenga el número de elementos del vector generado y guárdelo en
una variable llamada num_datos.
num_datos <- length(datos)
num_datos
## [1] 30
3. Genere una matriz con la secuencia de números del ejercicio 1 que
contenga 5 filas de 5 columnas y que su llenado sea por fila, asigne la
matriz en una variable llamada mat_1.
mat_1 <- matrix(datos,5,5,byrow=T)
## Warning in matrix(datos, 5, 5, byrow = T): data length differs from size of
## matrix: [30 != 5 x 5]
mat_1
## [,1] [,2] [,3] [,4] [,5]
## [1,] 11 14 17 20 23
## [2,] 26 29 32 35 38
## [3,] 41 44 47 50 53
## [4,] 56 59 62 65 68
## [5,] 71 74 77 80 83
4. A la matriz generada póngales los siguientes nombres a las
columnas (‘a’,‘b’,‘c’,‘d’,‘e’) y a las filas asígnele su nombre completo
y al Final R ejemplo: (‘Johnny’, ‘Andrés’, ‘Morán’, ‘Espinoza’,
‘R’)
colnames(mat_1) <- c('a','b','c','d','e')
rownames(mat_1) <- c('Victor', 'Eduardo', 'Diaz', 'Romero', 'R')
mat_1
## a b c d e
## Victor 11 14 17 20 23
## Eduardo 26 29 32 35 38
## Diaz 41 44 47 50 53
## Romero 56 59 62 65 68
## R 71 74 77 80 83
5. Seleccione los valores de la diagonal principal o sea de las
posiciones (1,1); (2,2); (3,3); (4,4) ;(5,5) y guárdelos en una variable
llamada diagonal_mat_1
diagonal_mat_1 <- diag(mat_1)
diagonal_mat_1
## [1] 11 29 47 65 83
6. Genere una función la siguiente función en R, y=x^2+x+3 guarde la
función generada en una variable llamado función_x2
funcion_x2 <- function(x){y = x**2+x+3; print(y)}
funcion_x2(4)
## [1] 23
7. Con la función generada use los datos de la secuencia generada
del primer ejercicio, para obtener la respuesta de la función guardarlo
en una variable llamada OUTPUT_FUNCION
OUTPUT_FUNCION <- funcion_x2(datos)
## [1] 135 213 309 423 555 705 873 1059 1263 1485 1725 1983 2259 2553 2865
## [16] 3195 3543 3909 4293 4695 5115 5553 6009 6483 6975 7485 8013 8559 9123 9705
OUTPUT_FUNCION
## [1] 135 213 309 423 555 705 873 1059 1263 1485 1725 1983 2259 2553 2865
## [16] 3195 3543 3909 4293 4695 5115 5553 6009 6483 6975 7485 8013 8559 9123 9705
8. Genere una lista con los valores del primer ejercicio, el número
de elementos del segundo ejercicio, la matriz del cuarto ejercicio, los
valores seleccionados de la matriz, la función realizada en el sexto
ejercicio y los resultados de la función del ejercicio 7.
lista <- list(datos,num_datos,mat_1,diagonal_mat_1,funcion_x2,OUTPUT_FUNCION )
lista
## [[1]]
## [1] 11 14 17 20 23 26 29 32 35 38 41 44 47 50 53 56 59 62 65 68 71 74 77 80 83
## [26] 86 89 92 95 98
##
## [[2]]
## [1] 30
##
## [[3]]
## a b c d e
## Victor 11 14 17 20 23
## Eduardo 26 29 32 35 38
## Diaz 41 44 47 50 53
## Romero 56 59 62 65 68
## R 71 74 77 80 83
##
## [[4]]
## [1] 11 29 47 65 83
##
## [[5]]
## function(x){y = x**2+x+3; print(y)}
## <bytecode: 0x000001d817fa3128>
##
## [[6]]
## [1] 135 213 309 423 555 705 873 1059 1263 1485 1725 1983 2259 2553 2865
## [16] 3195 3543 3909 4293 4695 5115 5553 6009 6483 6975 7485 8013 8559 9123 9705
9. Finalmente asigne los siguientes nombres a cada elemento de la
lista: ‘Vector numérico’, ‘Número de elementos’, ‘Matriz completa’,
‘Elementos de la diagonal’, ‘Función generada’, ‘Resultados de la
función generada’.
names(lista) <- c('Vector numérico', 'Número de elementos', 'Matriz completa', 'Elementos de la diagonal', 'Función generada', 'Resultados de la función generada')
names(lista)
## [1] "Vector numérico" "Número de elementos"
## [3] "Matriz completa" "Elementos de la diagonal"
## [5] "Función generada" "Resultados de la función generada"
lista
## $`Vector numérico`
## [1] 11 14 17 20 23 26 29 32 35 38 41 44 47 50 53 56 59 62 65 68 71 74 77 80 83
## [26] 86 89 92 95 98
##
## $`Número de elementos`
## [1] 30
##
## $`Matriz completa`
## a b c d e
## Victor 11 14 17 20 23
## Eduardo 26 29 32 35 38
## Diaz 41 44 47 50 53
## Romero 56 59 62 65 68
## R 71 74 77 80 83
##
## $`Elementos de la diagonal`
## [1] 11 29 47 65 83
##
## $`Función generada`
## function(x){y = x**2+x+3; print(y)}
## <bytecode: 0x000001d817fa3128>
##
## $`Resultados de la función generada`
## [1] 135 213 309 423 555 705 873 1059 1263 1485 1725 1983 2259 2553 2865
## [16] 3195 3543 3909 4293 4695 5115 5553 6009 6483 6975 7485 8013 8559 9123 9705