UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

INGENIERIA EN ESTADÍSTICA

GRUPO 2

APLICANDO LOS CONOCIMIENTOS DE RSTUDIO

En este documento se presentan los 2 talleres resueltos planteados haciendo uso del rmarkdown

AUTORES

Aimacaña Génesis
Guamán Cristhian
Mosquera Israel
Sampedro Jonathan
Serrano Mayra

COLABORACIÓN

Profesor: Francisco Valverde (PhD en informática)

EJERCICIOS

- EJERCICIO 1

Escribe un programa que solicite los catetos de un triángulorectángulo y muestre su hipotenusa.

c^2=a2+b^2

cateto1<-as.numeric(readline("Ingrese el valor del primer cateto:"))

## Ingrese el valor del primer cateto:

cateto1

## [1] NA

cateto2<-as.numeric(readline("Ingrese el valor del segundo cateto;"))

## Ingrese el valor del segundo cateto;

cateto2

## [1] NA

hipotenusa1<-sqrt(cateto1^2+cateto2^2)
cat("La hipotenusa del triangulo rectangulo es" , hipotenusa1)

## La hipotenusa del triangulo rectangulo es NA

# valores ingresados
cateto1<- 5
cateto2<-4
hipotenusa1<-sqrt(cateto1^2+cateto2^2)
cat("La hipotenusa del triangulo rectangulo es" , hipotenusa1 )

## La hipotenusa del triangulo rectangulo es 6.403124

- EJERCICIO 2

Escribe un programa que calcule las soluciones de una ecuación de segundo grado de la forma ax2+bx+c=0

\[ x=−b±(√b^2-4ac)/2a \]

a<-as.numeric(readline("Ingrese el valor de a:"))

## Ingrese el valor de a:

b<-as.numeric(readline("Ingrese el valor de b:"))

## Ingrese el valor de b:

c<-as.numeric(readline("Ingrese el valor de c:"))

## Ingrese el valor de c:

#aplicamos la ecuacion de 2do grado
x1<-(-b+(sqrt(b^2-4*a*c)))/2*a
x1

## [1] NA

x2<-(-b-(sqrt(b^2-4*a*c)))/2*a
x2

## [1] NA

#salida del programa
cat("resultado de x1=", x1)

## resultado de x1= NA

cat("resultado de x2=", x2)

## resultado de x2= NA

# valores ingresados
a<-3
b<-10
c<--5
#aplicamos la ecuacion de 2do grado
x1<-(-b+(sqrt(b^2-4*a*c)))/2*a
cat("resultado de x1=", x1)

## resultado de x1= 3.973666

x2<-(-b-(sqrt(b^2-4*a*c)))/2*a
cat("resultado de x2=", x2)

## resultado de x2= -33.97367

- EJERCICIO 3

Escribe un programa que solicite calcular el área del triángulo rectángulo dadas su base y altura.

\[ A= (bh)/2 \]

b1<-as.numeric(readline(" Ingrese un valor para la base (cm): "))

##  Ingrese un valor para la base (cm):

h1<-as.numeric(readline(" Ingrese un valor para la altura (cm): "))

##  Ingrese un valor para la altura (cm):

# aplicación de fórmula
a1<-b1*h1
a1

## [1] NA

p<-2*(b1+h1)
p

## [1] NA

# salida de resultados
cat("El área del rectángulo es:\n", a1, "cm^2")

## El área del rectángulo es:
##  NA cm^2

cat("El perímetro del rectángulo es:\n", p, "cm")

## El perímetro del rectángulo es:
##  NA cm

# Datos Ingresados
b1<-10
h1<-5
a1<-b1*h1
cat("El área del rectángulo es:\n", a1, "cm^2")

## El área del rectángulo es:
##  50 cm^2

p<-2*(b1+h1)
cat("El perímetro del rectángulo es:\n", p, "cm")

## El perímetro del rectángulo es:
##  30 cm

- EJERCICIO 4

Escribe un programa que calcule el área y perímetro de un rectángulo dado su base y altura

\[ P=2a+2b \]

b2<-as.numeric(readline(" Ingrese un valor para la base (cm): "))

##  Ingrese un valor para la base (cm):

h2<-as.numeric(readline(" Ingrese un valor para la altura (cm): "))

##  Ingrese un valor para la altura (cm):

#Para el área del rectángulo obtenemos:
a2<-b2*h2

a2

## [1] NA

#Y para el perímetro, tenemos:

p2<-2*(b2+h2)

p2

## [1] NA

cat("El área del rectángulo es:\n", a2, "cm^2")

## El área del rectángulo es:
##  NA cm^2

cat("El perímetro del rectángulo es:\n", p2, "cm")

## El perímetro del rectángulo es:
##  NA cm

- EJERCICIO 5

-Calcular el promedio de 3 notas que estén entre 0 y 20:

nota1<-as.numeric(readline("ingrese el valor nota 1"))

## ingrese el valor nota 1

nota2<-as.numeric(readline("ingrese el valor nota 2"))

## ingrese el valor nota 2

nota3<-as.numeric(readline("ingrese el valor nota 3"))

## ingrese el valor nota 3

promedio<-(nota1+nota2+nota3)/3
#salida de resultados
cat("El promedio de la calificaciones ingresadas ", nota1,",", nota2, "y", nota3, ",", "es: ", promedio)

## El promedio de la calificaciones ingresadas  NA , NA y NA , es:  NA

#Datos Ingresados
nota1<-10
nota2<-8
nota3<-7
promedio<-(nota1+nota2+nota3)/3
cat("El promedio de la calificaciones ingresadas ", nota1,",", nota2, "y", nota3, ",", "es: ", promedio)

## El promedio de la calificaciones ingresadas  10 , 8 y 7 , es:  8.333333

- EJERCICIO 6

Calcular el área y perímetro de la circunferencia dado el radio:

$$ P=2πr

radio<-as.numeric(readline("Ingrese el valor del radio del circulo"))

## Ingrese el valor del radio del circulo

areac<-pi*(radio^2)

perímetrop <-2*pi*radio


cat("El perímetro de una circunferencia es: ", perímetrop)

## El perímetro de una circunferencia es:  NA

cat("El área de una circunferencia es: ", areac)

## El área de una circunferencia es:  NA

# dATOS Ingresados
 radio<-4
 areac<-pi*(radio^2)

perímetrop <-2*pi*radio
cat("El perímetro de una circunferencia es: ", perímetrop)

## El perímetro de una circunferencia es:  25.13274

cat("El área de una circunferencia es: ", areac)

## El área de una circunferencia es:  50.26548

- EJERCICIO 7

Calcular el área y perímetro de un trapecio dado su base mayor, base menor y altura.

B<-as.numeric(readline(" Ingrese el valor de la base mayor: "))

##  Ingrese el valor de la base mayor:

b<-as.numeric(readline(" Ingrese el valor de la base menor: "))

##  Ingrese el valor de la base menor:

h<-as.numeric(readline(" Ingrese la altura:"))

##  Ingrese la altura:

# s representa el número que falta para completar la base mayor

s<-(B-b)/2

# Fórmula del teorema de Pitágoras

c=sqrt((s^2)+(h)^2)

cat(" El perímetro del trapecio es de: ",B+b+(2*c))

##  El perímetro del trapecio es de:  NA

#"Cálculo del área del Trapecio"

A<-((B+b)*h)/2

cat(" El área del trapecio es de: ",A)

##  El área del trapecio es de:  NA

- EJERCICIO 8

Dados dos números, determinar cual es el número mayor y cual es el número menor, si los dos números son iguales el mensaje debe decir que son números iguales

x1<-3

x2<-2


## Condiciones y comparaciones de los números

if (x1>x2) {

cat (x1," Es mayor")

} else  {

cat (x1,"No es mayor")

}

## 3  Es mayor

if (x2>x1) {

cat (x2," Es mayor")

} else {

cat (x2,"No es mayor")

}

## 2 No es mayor

if (x1 ==x2)  {

cat ('Son iguales')

}

- EJERCICIO ADICIONAL 1

-Escribe un programa que lea dos números y muestre en la salida su suma, resta, multiplicación y división.

num1<-as.numeric(readline("Ingrese el primer número: "))

## Ingrese el primer número:

num2<-as.numeric(readline("Ingrese el segundo número: "))

## Ingrese el segundo número:

cat("LA   SUMA   DE   LOS   NUMEROS   ES:   ",   num1+num2);cat("\nLA   RESTA   DE   LOS NUMEROS  ES:  ",  num1-num2);cat("\nLA  MULTIPLICACIÓN  DE  LOS  NUMEROS  ES:  ", num1*num2);cat("\nLA DIVISIÓN DE LOS NUMEROS ES: ", num1/num2)

## LA   SUMA   DE   LOS   NUMEROS   ES:    NA

## 
## LA   RESTA   DE   LOS NUMEROS  ES:   NA

## 
## LA  MULTIPLICACIÓN  DE  LOS  NUMEROS  ES:   NA

## 
## LA DIVISIÓN DE LOS NUMEROS ES:  NA

- EJERCICIO Adicional 2 - Realice un Programa que pida una cantidad en dólares y como resultado se visualice el IVA (12%) y el valor total a pagar

cant<-as.numeric(readline("ingrese el valor en dólares: "))

## ingrese el valor en dólares:

cat("IVA A PAGAR: ",cant*0.12 );cat("\nTOTAL A PAGAR: ",cant+(cant*0.12) )

## IVA A PAGAR:  NA

## 
## TOTAL A PAGAR:  NA

EJERCICIOS TALLER 3

- EJERCICIO 1 - Escribir un programa que pida la temperatura y si esta es en Fahrenheit o Celsius y presentar en pantalla su transformación en la otra medida.

x<-as.character(readline("Ingrese la temperatura F (Fahrenheit) o C (Celcius):"))

## Ingrese la temperatura F (Fahrenheit) o C (Celcius):

num1<-as.numeric(readline("Ingrese la temperatura: "))

## Ingrese la temperatura:

##PASO 2: Se crea condiciones para F y C
##Y con el comando cat() se presenta el resultado de las transformaciones de 
##Celsius y Fahrenheit.
if(x=="F")
  a<-((num1-32)/1.8)
cat("La transformci?n a Celsius es: ",a)

## La transformci?n a Celsius es:  3

if(x=="C")
  b<-((num1*1.8)+32)
cat("La transformaci?n a Fahrenheit es: ",b)

## La transformaci?n a Fahrenheit es:  NA

- EJERCICIO 2

-Escribir un programa que pregunte al usuario por el número de horas trabajadas y el coste por hora. Después debe mostrar por pantalla la paga que le corresponde, además debe preguntar si existen horas extras que tienen un valor diferente y con estos valores se calcule la paga correspondiente

##PASO 1: Se crean variables tipo num?ricas como horas, coste y extras.
##Se ingresa valores en cada una.
horas <- as.numeric(readline("INGRESE EL NUMERO DE HORAS TRABAJADAS: "))

## INGRESE EL NUMERO DE HORAS TRABAJADAS:

coste <- as.numeric(readline("INGRESE EL VALOR POR HORAS TRABAJADAS: "))

## INGRESE EL VALOR POR HORAS TRABAJADAS:

extras <- as.numeric(readline("INGRESE EL NUMERO DE HORAS EXTRAS TRABAJADAS: "))

## INGRESE EL NUMERO DE HORAS EXTRAS TRABAJADAS:

##PASO 2: Para presentar el resultado de la consola del calculo del sueldo a recibir,
##con las horas extras trabajadas, se usa el comando cat().
cat("SUELDO A RECIBIR: ",horas*coste );cat("\nSUELDO POR HORAS EXTRAS TRABAJADAS: ",extras*(coste/2) )

## SUELDO A RECIBIR:  NA

## 
## SUELDO POR HORAS EXTRAS TRABAJADAS:  NA

cat("SUELDO A RECIBIR: ",(horas*coste)+extras*(coste/2) )

## SUELDO A RECIBIR:  NA

##
horas<-40
coste<-2.60
extras<- 10
cat("SUELDO A RECIBIR: ",horas*coste );cat("\nSUELDO POR HORAS EXTRAS TRABAJADAS: ",extras*(coste/2) )

## SUELDO A RECIBIR:  104

## 
## SUELDO POR HORAS EXTRAS TRABAJADAS:  13

cat("SUELDO A RECIBIR: ",(horas*coste)+extras*(coste/2) )

## SUELDO A RECIBIR:  117

- EJERCICIO 3

Escribir un programa que lea un entero positivo, n, introducido por el usuario y después muestre en pantalla la suma de todos los enteros desde 1 hasta n. La suma de los n primeros enteros positivos puede ser calculada de la siguiente forma: \[ suma=n(n+1)2 \]

##PASO 1: Se crea una variable de tipo num?rica
##Se ingresa valores en cada una.
n <- as.numeric(readline("INGRESE UN N?MERO ENTERO POSITIVO: "))

## INGRESE UN N?MERO ENTERO POSITIVO:

##PASO 2: Se aplica la f?rmula para hacer el respectivo calculo:
##A nuestra variable "suma" se le asigna el c?lculo
suma<-(n*(n+1)/2)
suma

## [1] NA

cat("La suma de los n?meros enteros positivos de 1 hasta:",n, "es:",suma)

## La suma de los n?meros enteros positivos de 1 hasta: NA es: NA

##
n<-7
suma<-(n*(n+1)/2)
suma

## [1] 28

cat("La suma de los n?meros enteros positivos de 1 hasta:",n, "es:",suma)

## La suma de los n?meros enteros positivos de 1 hasta: 7 es: 28

- EJERCICIO 4

Escribir un programa que pida al usuario su peso (en kg) y estatura (en metros), calcule el índice de masa corporal y lo almacene en una variable, y muestre por pantalla la frase Tu índice de masa corporal es donde es el índice de masa corporal calculado redondeado con dos decimales

##Paso 1: El usuario ingresa valores de tipo numerico a nuestras 
#variables "peso" y "estatura".
peso<-as.numeric(readline("Ingrese su peso:"))

## Ingrese su peso:

estatura<-as.numeric(readline("Ingrese su estatura:"))

## Ingrese su estatura:

#Paso 2: A nuestra variable "imc" le asignamos la f?rmula para hacer 
#el respectivo c?lculo.
imc<- round(peso/(estatura^2),2)
imc

## [1] NA

#Paso 3: Aplicamos la funci?n "cat" para que lea nuestro resultado.
cat("Su ?ndice de masa corporal es:",imc)

## Su ?ndice de masa corporal es: NA

##
peso<-70
estatura<-1.60
imc<- round(peso/(estatura^2),2)
imc

## [1] 27.34

cat("Su ?ndice de masa corporal es:",imc)

## Su ?ndice de masa corporal es: 27.34

- EJERCICIO 5

Escribir un programa que pregunte al usuario una cantidad a invertir, el interés anual y el número de años, y muestre por pantalla el capital obtenido en la inversión

print("Programa para obtener el capital de una inversión")

## [1] "Programa para obtener el capital de una inversión"

inversion1<-(as.numeric(readline(print("Ingrese la cantidad que desea invertir"))))

## [1] "Ingrese la cantidad que desea invertir"
## Ingrese la cantidad que desea invertir

interes_t1<-(as.numeric(readline(print("Ingresar la tasa de interes"))))

## [1] "Ingresar la tasa de interes"
## Ingresar la tasa de interes

inersiont1<-(as.numeric(readline(print( "Ingresar el tiempo en años"))))

## [1] "Ingresar el tiempo en años"
## Ingresar el tiempo en años

# ingresamos la formula que nos permite obtener el capital final
capitalf1<-(inversion1+(inversion1*interes_t1/100)*inersiont1)
cat("El total de su inversion es de:", capitalf1 ,"$" , "Dolares")

## El total de su inversion es de: NA $ Dolares

##
inversion1<-500
interes_t1<-5
inersiont1<-5
capitalf1<-(inversion1+(inversion1*interes_t1/100)*inersiont1)
cat("El total de su inversion es de:", capitalf1 ,"$" , "Dolares")

## El total de su inversion es de: 625 $ Dolares

- EJERCICIO 6

Realizar un programa que pida el tiempo ya sea en horas, minutos o segundos, luego indicar en qué tipo de tiempo desea transformar y luego presentar el resultado

cat("Ingrese los valores en la variable de su elección siendo",
"\n", "h = Horas; m = Minutos y s = Segundos, 
en la variable no elegida colocar 0")

## Ingrese los valores en la variable de su elección siendo 
##  h = Horas; m = Minutos y s = Segundos, 
## en la variable no elegida colocar 0

#ingresamos los datos requeridos
h <- as.numeric(readline("Ingrese la cantidad en horas: "))

## Ingrese la cantidad en horas:

m <- as.numeric(readline("Ingrese la cantidad en minutos: "))

## Ingrese la cantidad en minutos:

s <- as.numeric(readline("Ingrese la cantidad en segundos: "))

## Ingrese la cantidad en segundos:

# ingresamos los calculos requeridos para dar los resultados del programa
horas_segundos <- h*3600
horas_minutos <- h*60
minutos_horas <- m/60
minutos_segundos <- m*60
segundos_horas <- s/3600
segundos_minutos <- s/60
# Damos salida de los resultados obtenidos del siguiente programa
cat("La transformación de ",h , "horas a segundos es: ", horas_segundos)

## La transformación de  NA horas a segundos es:  NA

cat(" La transformación de ",h , "horas a minutos es: ", horas_minutos)

##  La transformación de  NA horas a minutos es:  NA

cat(" La transformación de ",m , "minutos a horas es: ", minutos_horas)

##  La transformación de  NA minutos a horas es:  NA

cat(" La transformación de ",m , "minutos a segundos es: ",minutos_segundos)

##  La transformación de  NA minutos a segundos es:  NA

cat(" La transformación de ",s , "segundos a horas es: ", segundos_horas)

##  La transformación de  NA segundos a horas es:  NA

cat(" La transformación de ",s , "segundos a minutos es: ", segundos_minutos)

##  La transformación de  NA segundos a minutos es:  NA

## 
h<-2
m<-3
s<-40
horas_segundos <- h*3600
horas_minutos <- h*60
minutos_horas <- m/60
minutos_segundos <- m*60
segundos_horas <- s/3600
segundos_minutos <- s/60
cat("La transformación de ",h , "horas a segundos es: ", horas_segundos)

## La transformación de  2 horas a segundos es:  7200

cat(" La transformación de ",h , "horas a minutos es: ", horas_minutos)

##  La transformación de  2 horas a minutos es:  120

cat(" La transformación de ",m , "minutos a horas es: ", minutos_horas)

##  La transformación de  3 minutos a horas es:  0.05

cat(" La transformación de ",m , "minutos a segundos es: ",minutos_segundos)

##  La transformación de  3 minutos a segundos es:  180

cat(" La transformación de ",s , "segundos a horas es: ", segundos_horas)

##  La transformación de  40 segundos a horas es:  0.01111111

cat(" La transformación de ",s , "segundos a minutos es: ", segundos_minutos)

##  La transformación de  40 segundos a minutos es:  0.6666667

- EJERCICIO 7

Escribir un programa en el que se digiten varios números y luego los números se presenten en pantalla ordenados

## Paso 1 
num1 <- as.numeric(readline("Ingrese el valor 1:"))

## Ingrese el valor 1:

num2 <- as.numeric(readline("Ingrese el valor 2:"))

## Ingrese el valor 2:

num3 <- as.numeric(readline("Ingrese el valor 3:"))

## Ingrese el valor 3:

num4 <- as.numeric(readline("Ingrese el valor 4:"))

## Ingrese el valor 4:

num5 <- as.numeric(readline("Ingrese el valor 5:"))

## Ingrese el valor 5:

## Paso 2
numeros <- c(num1,num2,num3,num4,num5)
## Paso 3
cat("Los n?meros ordenados son:",sort(numeros))

## Los n?meros ordenados son:

#
num1<-3
num2<-4
num3<-5
num4<-6
num<-7
numeros <- c(num1,num2,num3,num4,num5)
cat("Los n?meros ordenados son:",sort(numeros))

## Los n?meros ordenados son: 3 4 5 6

- EJERCICIO 8

Escribir un programa que calcule el factorial de un número que ha sido digitado por el usuario

## Paso 1
m <- as.numeric(readline(" Ingrese un n?mero para calcular su factorial: "))

##  Ingrese un n?mero para calcular su factorial:

## Paso 2
cat("El factorial de",m,"es: ",factorial(m))

## El factorial de NA es:  NA

m<-6
cat("El factorial de",m,"es: ",factorial(m))

## El factorial de 6 es:  720

- EJERCICIO ADICIONAL 1

-Escribir un programa que pida un número e indique si el número es primo o no

x<-5
##PASO 2: Realizamos el cálculo para encontrar su residuo
residuo<-(sum(x/1:x==x%/%1:x))
residuo<-(sum(x/1:x==x%/%1:x))
residuo

## [1] 2

##PASO3: Con el comando if damos la orden que nos indique en la consola
#si es un numero primo o no
if(residuo==2)
{
  cat("EL NÚMERO", x, "ES UN NÚMERO PRIMO")
}else
{
  cat("EL NÚMERO", x, "NO ES UN NÚMERO PRIMO")
}

## EL NÚMERO 5 ES UN NÚMERO PRIMO

##

- EJERCICIO ADICIONAL 2

Escribir un programa que pida un número e indique si el número es par o impar

##PASO 1: Se crea la variable y el mensaje para que el usuario ingrese un número
num<-as.numeric(readline("INGRESE UN NÚMERO: "))

## INGRESE UN NÚMERO:

##PASO 2: Realizamos los cálculos correspondientes para obtener los resultados
p<-(num%%2==0)
imp<-(num%%2==1)
p<-(num%%2==0)
p

## [1] NA

imp<-(num%%2==1)
imp

## [1] NA

##PASO 3: Usamos el comando cat para imprimir el mensaje 
#con los resultados encontrados.
cat("\n","EL NÚMERO ",num," ES PAR:",p,"\n",
    "EL NÚMERO ",num," ES IMPAR:",imp)

## 
##  EL NÚMERO  NA  ES PAR: NA 
##  EL NÚMERO  NA  ES IMPAR: NA

##
num<-6
p<-(num%%2==0)
imp<-(num%%2==1)
p<-(num%%2==0)
p

## [1] TRUE

imp<-(num%%2==1)
imp

## [1] FALSE

cat("\n","EL NÚMERO ",num," ES PAR:",p,"\n",
    "EL NÚMERO ",num," ES IMPAR:",imp)

## 
##  EL NÚMERO  6  ES PAR: TRUE 
##  EL NÚMERO  6  ES IMPAR: FALSE

EL CONOCIMIENTO ES LA GUÍA PARA FORJAR UN FUTURO MEJOR

TALLER 4 Publicar mis Conocimientos en RPUBS

Aimacaña Génesis,Guamán Cristhian, Mosquera Israel, Sampedro Jonathan, Serrano Mayra

12/12/2022