From 3429074c52ca5e361ce155905f955604b5e45dc2 Mon Sep 17 00:00:00 2001 From: mrbyron911 <32217355+mrbyron911@users.noreply.github.com> Date: Mon, 7 Oct 2024 01:13:15 -0400 Subject: [PATCH 1/6] Update README.md --- README.md | 1 + 1 file changed, 1 insertion(+) diff --git a/README.md b/README.md index b3d32a66..c8f55df0 100644 --- a/README.md +++ b/README.md @@ -24,3 +24,4 @@ Una vez termines el curso podrás seguir con los mejores cursos de análisis de 9. Estadística descriptiva con datos cualitativos agrupados 10. Introducción a la regresión lineal 11. Introducción a distribuciones de probabilidad +Linea final From 3844da91c8ef16cfd0bc1e96bea7aadc9b912694 Mon Sep 17 00:00:00 2001 From: mrbyron911 <32217355+mrbyron911@users.noreply.github.com> Date: Mon, 7 Oct 2024 01:17:24 -0400 Subject: [PATCH 2/6] Update README.md --- README.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/README.md b/README.md index c8f55df0..7b6a8647 100644 --- a/README.md +++ b/README.md @@ -24,4 +24,4 @@ Una vez termines el curso podrás seguir con los mejores cursos de análisis de 9. Estadística descriptiva con datos cualitativos agrupados 10. Introducción a la regresión lineal 11. Introducción a distribuciones de probabilidad -Linea final +12. Linea final From 1949bd4bbd5ecd61338386ba27a7a0489a796bb8 Mon Sep 17 00:00:00 2001 From: mrbyron911 Date: Tue, 22 Oct 2024 22:42:35 -0400 Subject: [PATCH 3/6] =?UTF-8?q?una=20prueba=20de=20actualizaci=C3=B3ncita?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- README.md | 1 + 1 file changed, 1 insertion(+) diff --git a/README.md b/README.md index 7b6a8647..af8f8eda 100644 --- a/README.md +++ b/README.md @@ -25,3 +25,4 @@ Una vez termines el curso podrás seguir con los mejores cursos de análisis de 10. Introducción a la regresión lineal 11. Introducción a distribuciones de probabilidad 12. Linea final +13. Linea final 2 From 8205f832b782ed662bfb1be6e669e1f5edf9141d Mon Sep 17 00:00:00 2001 From: mrbyron911 Date: Mon, 4 Nov 2024 23:58:05 -0400 Subject: [PATCH 4/6] =?UTF-8?q?R=20como=20calculadora(sqrt,=20exp,=20abs,?= =?UTF-8?q?=20factorial,=20permutaci=C3=B3n,=20trigonometr=C3=ADa)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../tema1/05-Mi prueba R como calculadora.R | 29 +++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 scripts/tema1/05-Mi prueba R como calculadora.R diff --git a/scripts/tema1/05-Mi prueba R como calculadora.R b/scripts/tema1/05-Mi prueba R como calculadora.R new file mode 100644 index 00000000..47f703df --- /dev/null +++ b/scripts/tema1/05-Mi prueba R como calculadora.R @@ -0,0 +1,29 @@ +2*(3+5/2) +1+1 #Suma + +2*3+1) #se debe completar los simbolos como ejemplo, falta el '(' de apertura. + +5-3 #Resta +8*3 #Multiplicación + +2^5 #Potencia + +5/2 #Division +7%/%2 #Solo muestra la parte entera del cociente. +7%%2 #Muestra el residuo o módulo + +30%%7 +30%/%7 +31%%7 + +pi #pi +pi*2 +2*pi/2 + +Inf # Es el número más grande que existe +-Inf #-Infinito es el número más pequeño que existe + +5/0 # El resultado es Inf +0/0 # El resultado es un NaN (Not a Number o Indeterminado) + +NA #Valor desconocido (Not Available) From 9adb000776ea1447a201cec633b575fc70244561 Mon Sep 17 00:00:00 2001 From: mrbyron911 Date: Sun, 10 Nov 2024 02:24:04 -0400 Subject: [PATCH 5/6] Se agregan los numeros complejos --- .../tema1/05-Mi prueba R como calculadora.R | 101 ++++++++++++++++++ 1 file changed, 101 insertions(+) diff --git a/scripts/tema1/05-Mi prueba R como calculadora.R b/scripts/tema1/05-Mi prueba R como calculadora.R index 47f703df..74995191 100644 --- a/scripts/tema1/05-Mi prueba R como calculadora.R +++ b/scripts/tema1/05-Mi prueba R como calculadora.R @@ -27,3 +27,104 @@ Inf # Es el número más grande que existe 0/0 # El resultado es un NaN (Not a Number o Indeterminado) NA #Valor desconocido (Not Available) + +2^50 # = 1.1259e+15 Cantidades muy grande las muestra en notación científica en la consola + +sqrt(25) #Raiz cuadrada + +log10(1000) #Logaritmo base 10 de 1,000 + +exp(1) #Inverso al logaritmo de base e (ln) + +abs(-5) #Valor absoluto + +factorial(7) #El factorial de un numero +factorial(0) #Factorial de 0 es 1 + + +choose(6,3) #Combinación +n<-5 +r<-2 +nPr=factorial(n)/factorial(n-r)#formula permutación + +nPr/2 +#Otra forma de permutación con el paquete combinat: +set <- c(1, 2, 3) +permutations <- permn(set) +print(permutations) +permutations + +arreglo <- c(1,2,3,4) +permutacion <- permn(arreglo) +permutacion + +#Otro ejemplo de permutacion con el paquete gtools + +set<-1:5 +permutations(n=5, r=2, v=set) + +#Funciones trigonométricas +sin(pi/2) +sinpi(1/2) +cos(60*pi/180) + +#Redondeo y decimales +print(sqrt(2)) #Muestra el valor de una variable o expresión +floor(sqrt(2)) #Redondea hacia abajo cualquier decimal +ceiling(sqrt(2)) #Redondea hacia arriba cualquier decimal +trunc(sqrt(2)) #Deja la parte entera y corta la parte decimal +round(pi) # +print(pi,7) #Indicando que muestre 7 cifras decimales +ceiling(sqrt(3)) +#------------------------------------------------------------------ +#Variables +x=pi +y <- 2*pi +pi*3^2 ->z +sqrt(z) +sqrt(2)->a +a^2 +#--------------------------------------------------------- + +#Funciones + +x = function(x){sqrt(x)} +x(25) + +#Formato identada +Emc2 = function(m){ #En este formato se ejecuta en esta línea de la función + m*(3*10^8)^2 + ("J") +} + +Emc2(2) +Emc2(60) +#-------------------------------------------------------------------- + +#OPERACIONES BASICAS + +opBasic = function(a,b){ + + print(paste(sprintf("La suma de %f + %f = ",a,b), a+b)) #"La suma de 6.350000 + 4.000000 = 10.35" + print(paste(sprintf("La resta de %f - %f = ", a,b), a-b)) + print(paste(sprintf("El producto de %f * %f = ", a,b), a*b)) + print(a%/%b) + print(a%%b) + +} +opBasic(6.35,4) # Llamando la función con los argumentos +#Funciones de formateo de texto y numeros +paste0("Hola", "mundo") # "Holamundo" +paste("Hola","Mundo", sep = " ") # "Hola Mundo" +paste(1:3, collapse = "-") #"1-2-3" +sprintf("El hexadecimal es: %X", 1987) #"hex: b9" +formatC(42, width = 5, flag = "0") #00042 #FormatC formate numeros + +n <- 1 +mensaje <- ngettext(n, "There is one file", "There are %d files") +sprintf(mensaje, n) + +# Conversion de números con strtoi() +hex_value <- "1A" # Ejemplo en hexadecimal "1A" +decimal_value <- strtoi(hex_value, base = 16) #base 16 indica que hexadecimal +print(decimal_value) # Resultado: 26 + From cca857981a4961a5a2bd9b5d486730b761143247 Mon Sep 17 00:00:00 2001 From: mrbyron911 Date: Sun, 10 Nov 2024 02:46:32 -0400 Subject: [PATCH 6/6] sqrt(as.complex(-4)) --- .../tema1/05-Mi prueba R como calculadora.R | 61 ++++++++++++++++--- 1 file changed, 54 insertions(+), 7 deletions(-) diff --git a/scripts/tema1/05-Mi prueba R como calculadora.R b/scripts/tema1/05-Mi prueba R como calculadora.R index 74995191..86a01b7e 100644 --- a/scripts/tema1/05-Mi prueba R como calculadora.R +++ b/scripts/tema1/05-Mi prueba R como calculadora.R @@ -112,19 +112,66 @@ opBasic = function(a,b){ } opBasic(6.35,4) # Llamando la función con los argumentos + #Funciones de formateo de texto y numeros -paste0("Hola", "mundo") # "Holamundo" + +# paste: Concatena vectores de texto, permitiendo un separador personalizado. paste("Hola","Mundo", sep = " ") # "Hola Mundo" + +#paste0: Similar a paste, pero sin separador (equivalente a paste(..., sep = "")). +paste0("Hola", "mundo") # "Holamundo" + +#collapse: Concatena todos los elementos en una sola cadena. paste(1:3, collapse = "-") #"1-2-3" -sprintf("El hexadecimal es: %X", 1987) #"hex: b9" -formatC(42, width = 5, flag = "0") #00042 #FormatC formate numeros + +#sprintf tiene diferentes codigos para insertar textos o numeros +#%s: cadena, %d o %i: entero DEC, %f: flotante DEC, %e o %E: Notac. Cient., +#Otros codigos: %g o G, x o X, o, %3d: ancho minimo 3 char, %05d: ancho min 5 char relleno de 0 si no se alcanza +sprintf("Número: %05d", 42) #El resultado es "Número: 00042" +z<-48 #variable de ejemplo +sprintf("El hexadecimal de %i es: %X", z, z) #"El hexadecimal de 48 es: 30" +paste(sprintf("El Octal de %i es: %o", z, z)) #El Octal de 48 es: 60" + +formatC(42, width = 5, flag = "0") #00042 #FormatC formatea numeros, width es el ancho n <- 1 mensaje <- ngettext(n, "There is one file", "There are %d files") sprintf(mensaje, n) # Conversion de números con strtoi() -hex_value <- "1A" # Ejemplo en hexadecimal "1A" -decimal_value <- strtoi(hex_value, base = 16) #base 16 indica que hexadecimal -print(decimal_value) # Resultado: 26 - +#Tomando el ejemplo con el numero hexadecimal "1A" +variable_Hex <- "1A" # Ejemplo de un hexadecimal "1A" + +#Se convierte a decimal: base 16 indica que "1A" es un hexadecimal +conversion_Decimal <- strtoi(variable_Hex, base = 16) +print(conversion_Decimal) # Se imprime la variable con resultado: 26 + +#Ahora se convierte desde un octal +variable_Octal <- 32 +octal_a_decimal <- strtoi(variable_Octal, base = 8) +print(octal_a_decimal) + +#NUMEROS COMPLEJOS EN R +#Los complejos tienen una parte real y una imaginaria. Ejemplos: +z <- 5+3i +w <- 2-4i +Re(z) #Parte real de z: "5" +Im(z) #parte imaginaria de z: 3 +Mod(z) #el modulo es 5.830952: Es la "distancia" desde el origen en el plano complejo +Arg(z) #El argumento es 0.5404195: es el ángulo que forma el número con el eje real, se expresa en radianes (0.5404195 radianes) +#El conjugado: cambia el signo de la parte imaginaria +Conj(z) #Resultado: 5-3i + +#La clave de i es la propiedad: i^2 = −1 | i = sqrt(-1) +#Ej. sqrt(-4) = sqrt(4*(-1)) = 2i +sqrt(-4) #Resultado: NaN | Las calculadoras no calculan la raiz cuadrada +#de números negativos por eso se usan los números imaginarios + +#suma de complejos +z+w #Resultado: "7-1i" +#resta +z-w #Resultado: 3+7i +#multiplicación +z*w #Resultado: 22-14i +#División +z/w #Resultado: -0.1+1.3i \ No newline at end of file