En primer lugar, debéis reproducir este documento tal cual está. Necesitaréis instalar MiKTeX y Texmaker. A continuación de cada pregunta, tenéis que redactar vuestras respuestas de manera correcta y argumentada, indicando qué hacéis, por qué, etc. Si se os pide utilizar instrucciones de R, tendréis que mostrarlas todas en chunks. El objetivo de esta tarea es que os familiaricéis con los documentos Markdown, las fórmulas en \(\LaTeX{}\) y los chunks de R. Y, de lo más importante, que os acostumbréis a explicar lo que hacéis en cada momento.
Realizad los siguientes productos de matrices en \(R\): \[A \cdot B\] \[B \cdot A\] \[( A \cdot B)^t\] \[B^t \cdot A\] \[(A \cdot B)^{-1}\] donde: \[ A=\begin{pmatrix} 1 & 2 & 3 & 4\\ 4 & 3 & 2 & 1\\ 0 & 1 & 0 & 2\\ 3 & 0 & 4 & 0\\ \end{pmatrix}\ B=\begin{pmatrix}4 & 3 & 2 & 1\\0 & 3 & 0 & 4\\1 & 2 & 3 & 4\\0 & 1 & 0 & 2\\\end{pmatrix}\]
Considerad en un vector los números de vuestro DNI y llamadlo dni. Por ejemplo, si vuestro DNI es 54201567K, vuestro vector será \[dni = (5, 4, 2, 0, 1, 5, 6, 7)\] Definid el vector en R. Calculad con R el vector dni al cuadrado, la raíz cuadrada del vector dni y, por último, la suma de todas las cifras del vector dni. Finalmente, escribid todos estos vectores también a \(\LaTeX\)
Considerad el vector de las letras de vuestro nombre y apellido. Llamadlo name. Por ejemplo, en mi caso sería \[nombre = (M, A, R, I, A, S, A, N, T, O, S)\]
Definid dicho vector en R. Calculad el subvector que solo contenga vuestro nombre. Calculad también el subvector que contenga solo vuestro apellido. Ordenadlo alfabéticamente. Cread una matriz con este vector. Redactad todos vuestros resultados y utilizad \(\LaTeX\) cuando te toque.
\[ A=\begin{pmatrix} 1 & 2 & 3 & 4\\ 4 & 3 & 2 & 1\\ 0 & 1 & 0 & 2\\ 3 & 0 & 4 & 0\\ \end{pmatrix}\ B=\begin{pmatrix}4 & 3 & 2 & 1\\0 & 3 & 0 & 4\\1 & 2 & 3 & 4\\0 & 1 & 0 & 2\\\end{pmatrix}\]
SOLUCIÓN
Realizad los siguientes productos de matrices en \(R\): \[A \cdot B\] \[B \cdot A\] \[( A \cdot B)^t\] \[B^t \cdot A\] \[(A \cdot B)^{-1}\] donde: \[ A=\begin{pmatrix} 1 & 2 & 3 & 4\\ 4 & 3 & 2 & 1\\ 0 & 1 & 0 & 2\\ 3 & 0 & 4 & 0\\ \end{pmatrix}\ B=\begin{pmatrix}4 & 3 & 2 & 1\\0 & 3 & 0 & 4\\1 & 2 & 3 & 4\\0 & 1 & 0 & 2\\\end{pmatrix}\] Vamos a definir las matrices en el programa R y realizar las operaciones indicadas y escribir su notación en \(\LaTeX\):
A = rbind(c(1,2,3,4),c(4,3,2,1),c(0,1,0,2),c(3,0,4,0))
A
## [,1] [,2] [,3] [,4]
## [1,] 1 2 3 4
## [2,] 4 3 2 1
## [3,] 0 1 0 2
## [4,] 3 0 4 0
B = rbind(c(4,3,2,1),c(0,3,0,4),c(1,2,3,4),c(0,1,0,2))
B
## [,1] [,2] [,3] [,4]
## [1,] 4 3 2 1
## [2,] 0 3 0 4
## [3,] 1 2 3 4
## [4,] 0 1 0 2
A%*%B
## [,1] [,2] [,3] [,4]
## [1,] 7 19 11 29
## [2,] 18 26 14 26
## [3,] 0 5 0 8
## [4,] 16 17 18 19
C=A%*%B
C
## [,1] [,2] [,3] [,4]
## [1,] 7 19 11 29
## [2,] 18 26 14 26
## [3,] 0 5 0 8
## [4,] 16 17 18 19
B%*%A
## [,1] [,2] [,3] [,4]
## [1,] 19 19 22 23
## [2,] 24 9 22 3
## [3,] 21 11 23 12
## [4,] 10 3 10 1
t(A%*%B)
## [,1] [,2] [,3] [,4]
## [1,] 7 18 0 16
## [2,] 19 26 5 17
## [3,] 11 14 0 18
## [4,] 29 26 8 19
t(B)%*%(A)
## [,1] [,2] [,3] [,4]
## [1,] 4 9 12 18
## [2,] 18 17 19 19
## [3,] 2 7 6 14
## [4,] 23 18 19 16
\[A \cdot B = \begin{pmatrix} 7 & 19 & 11 & 29\\ 18 & 26 & 14 & 26\\ 0 & 5 & 0 & 8\\ 16 & 17 & 18 & 19\\ \end{pmatrix}\] \[B \cdot A = \begin{pmatrix} 19 & 19 & 22 & 23\\ 24 & 9 & 22 & 3\\ 21 & 11 & 23 & 12\\ 10 & 3 & 10 & 1\\ \end{pmatrix}\]
Considerad en un vector los números de vuestro DNI y llamadlo dni. Por ejemplo, si vuestro DNI es 54201567K, vuestro vector será \[dni = (5, 4, 2, 0, 1, 5, 6, 7)\] Definid el vector en R. Calculad con R el vector dni al cuadrado, la raíz cuadrada del vector dni y, por último, la suma de todas las cifras del vector dni. Finalmente, escribid todos estos vectores también a \(\LaTeX\)
Vamos a llamar el vector dni
dni=c(3,8,1,4,2,5,7,0)
sqrt(dni)
## [1] 1.732051 2.828427 1.000000 2.000000 1.414214 2.236068 2.645751 0.000000
sum(dni)
## [1] 30
La respuesta es la siguiente: \[dni=c(3,8,1,4,2,5,7,0)\] \[dni=c(\sqrt{3},\sqrt{8},\sqrt{1},\sqrt{4},\sqrt{2},\sqrt{5},\sqrt{7},\sqrt{0})=c(1.732051,2.828427,1,2,1.414214,2.236068,2.645751,0)\]
dni^2
## [1] 9 64 1 16 4 25 49 0
\[dni^2=c(9,64,1,16,4,25,49,0)\] # Pregunta 3
Considerad el vector de las letras de vuestro nombre y apellido. Llamadlo name. Por ejemplo, en mi caso sería \[nombre = (M, A, R, I, A, S, A, N, T, O, S)\]
Definid dicho vector en R. Calculad el subvector que solo contenga vuestro nombre. Calculad también el subvector que contenga solo vuestro apellido. Ordenadlo alfabéticamente. Cread una matriz con este vector. Redactad todos vuestros resultados y utilizad \(\LaTeX\) cuando te toque.
nombre=c("j","o","n","a","t","h","a","n","t","e","l","l","o")
nombre[1:8]
## [1] "j" "o" "n" "a" "t" "h" "a" "n"
nombre[9:13]
## [1] "t" "e" "l" "l" "o"
sort(nombre)
## [1] "a" "a" "e" "h" "j" "l" "l" "n" "n" "o" "o" "t" "t"