EJERCICIOS EN R

Ejercicios en el Programa de R Nº1

PROGRAMA PARA MEDIR LA TEMPERATURA

x <- as.character(readline("Ingrese FA O CE SEGUN CORRESPONDA:  "))
y <- as.character(readline("Ingrese FA O CE SEGUN CORRESPONDA:  "))
num1 <- as.numeric(readline("Ingrese la temperatura:  "))

if(x == "FA")
  a <- ((num1-32)/1.8)
cat("La transformacion a Celsius es:  ", a)

}else {
  b<-((num1*1.8)+32)
  cat("La transformacion a Fahrenheit es:  ",b)

}

PROGRAMA PARA CALCULAR NÚMERO DE HORAS TRABAJADAS

hora<-as.numeric(readline("Ingrese el numero de horas trabajadas :  "))
costo<-as.numeric(readline("Ingrese el costo de horas trabajadas :  "))
extras<-as.numeric(readline("Ingrese el numero de horas extras trabajadas :  "))

cat("Sueldo a recibir sin horas extras: ",(hora*costo))

cat("Sueldo total a recibir: ",(hora*costo+extras))

PROGRAMA PARA SUMAR NÚMEROS ENTEROS

n <- as.numeric(readline("Por favor, ingrese un número entero positivo: "))
suma <- (n*(n+1)/2)
cat ("La suma de los enteros positivos desde 1 hasta ", n," es: ", suma )

PROGRAMA PARA CALCULAR LA MASA CORPORAL

peso <- as.numeric(readline("Por favor, ingrese el peso (en kg): "))
estatura <- as.numeric(readline("Por favor, ingrese la estatura (en metros): "))
imc <- peso/ (estatura^2)
imc <- round(peso/(estatura^2),2)
cat ("Tu índice de masa corporal es: ", imc)

PROGRAMA PARA SABER LA INVERSIÓN DE UN PRÉSTAMO

cat("Capital obtenido por una inversión ")
inversion<- as.numeric(readline("Ingrese la cantidad que desea invertir: "))
tasa_interes<- as.numeric(readline("Ingrese la tasa de interes en porcentaje: "))
tiempo<- as.numeric(readline("Ingrese el tiempo de inversión: "))
capital <- (inversion*(tasa_interes/100)*tiempo)+inversion
cat("El capital obtenido es ",capital, "cuando se hace una inversion de ",
    inversión, "a una tasa de interés del ",tasa_interes, 
    "% en un tiempo de ",tiempo,"años")

PROGRAMA QUE PIDE EL TIEMPO

### 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

x<- as.numeric(readline("Ingrese el tiempo que desea transformar, este será tomado como un valor en horas: "))
y<- as.numeric(readline("Que tipo de transformacion desea hacer
                         Transformación a segundos presione 1
                         Transformación a minutos presione 2 
                         Transformación a horas presione 3 :"))

if(y==1){
  x1 <- x*3600
  cat(x," tiempo en segundos es:",x1)
}else {
  if(y==2){
  x1 <- x*60
  cat(x," tiempo en minutos es:",x1)
  }else {
    x1 <- x*1
    cat(x," tiempo en horas es:",x1)
  }
}

PROGRAMA PARA ORDENAR NÚMEROS

n1<- as.numeric(readline("Ingrese el primer número: "))
n2<- as.numeric(readline("Ingrese el segundo número: "))
n3<- as.numeric(readline("Ingrese el tercer número: "))
n4<- as.numeric(readline("Ingrese el cuarto número: "))
n5<- as.numeric(readline("Ingrese el quinto número: "))

nume<- c(n1,n2,n3,n4,n5)

cat("Los numeros ordenados son: " ,sort(nume))

PROGRAMA QUE CALCULE EL FACTORIAL DE UN NÚMERO

num<- as.numeric(readline("Ingrese el número"))

fact<-factorial(num)

cat("EL factorial de", num, "! es:", fact)

PROGRAMA PARA SACAR NÚMEROS PRIMOS

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

i <- 1
count <- 0
while(i <= a){
  if(a%%i == 0) {
    count <- count + 1
  }  
  i <- i + 1
 }
print(count)
if(count == 2)
  "Es primo"
} else{
  "No es primo"
}

PROGRAMA PARA SABER SI ES PAR O IMPAR

num<-as.numeric(readline("Ingrese su número: "))

if(num%%2==0){"Su número es par"
}else{"Su número es impar"}

Ejercicios con vectores en R Nº2

Calcular los valores numéricos aproximados de:

Ejemplo de ejercicio para calcular el ejercicio a:

a <- 0.3*0.15
b <- (0.3*0.15)+(0.2*0.8)+(0.5*0.12)
a/b

 RESPUESTA
 [1] 0.1698113

Ejemplo de ejercicio para calcular el ejercicio b:

c <- 5^6
d <- 6*5*4*3*2*1
f <- exp(1)^-5
(c/d)*f

 RESPUESTA
 [1] 0.1462228

Ejemplo de ejercicio para calcular el ejercicio c:

g <- factorial(20)/(factorial(7)*factorial(20-7))
h <- (2/5)^7*(3/5)^13
g*h

 RESPUESTA
 [1] 0.1658823

3. El vector alumnos representa los nombres de una serie de alumnos. crear el vector alumnos con 20 nombres

alumnos <-c("Mario","José","Maria","Milena","Adrian","Anderson","Katy","Magaly","Estefania","Johana","Daniel","Hennry","Abigail","Yadira","Blanca","Diego","Angelica","Alexander","Isabel","Zamira" )

a)Visualízalo en pantalla

alumnos
## [1] "Mario" "José" "Maria" "Milena" "Adrian"
"Anderson"
## [7] "Katy" "Magaly" "Estefania" "Johana" "Daniel"
"Hennry"
## [13] "Abigail" "Yajaira" "Blanca" "Diego" "Angelica"
"Alexander"
## [19] "Isabel" "Zamira"

b)¿Cuántas componentes tiene el vector alumno?

Fórmula
length(alumnos)

Respuesta
## [1] 20

c)¿En qué posiciones del vector alumnos está la letra ‘A’?

Fórmula
letraA <- substr(alumnos, 1, 1)
letraA

## [1] "M" "J" "M" "M" "A" "A" "K" "M" "E" "J" "D" "H" "A" "Y" "B" "B""A" "A" "I"
## [20] "Z"
which(letraA == "A")
## [1] 5 6 13 17 18

4. El vector notas representa la nota de un examen, de los mismos alumnos cuyo lista se ha guardado en el vector alumnos y en el mismo orden.

notas <- c(12,9,2,8,6,6,10,6,10, 18, 11, 12,17,14,15,16,7,18,19,19)

1. Visualízalo en pantalla

notas
## [1] 12 9 2 8 6 6 10 6 10 18 11 12 17 14 15 16 7 18 19 19

2. ¿Cuántas componentes tiene?

length(notas)
## [1] 20

3. ¿Cuánto suman todas las notas?

sum(notas)
## [1] 235

4. ¿Cuál es la media aritmética de todas las notas?

mean(notas)
## [1] 11.75

5. ¿En qué posiciones están las notas mayores de 7?

which(notas>7)
## [1] 1 2 4 7 9 10 11 12 13 14 15 16 18 19 20

6. Visualiza las notas ordenadas de menor a mayor

sort(notas)
## [1] 2 6 6 6 7 8 9 10 10 11 12 12 14 15 16 17 18 18 19 19

7. Visualiza las notas ordenadas de mayor a menor

sort(notas, decreasing = TRUE)
## [1] 19 19 18 18 17 16 15 14 12 12 11 10 10 9 8 7 6 6 6 2

8. ¿Cuál ha sido la nota máxima?

max(notas)
## [1] 19

9. ¿En qué posición del vector está esa nota máxima?

which.max(notas)
## [1] 19

5. A partir de los vectores alumnos y notas definidos:

1. Visualiza las notas de los 10 primeros alumnos

notas <- c(1,9,4,6,3,4,8,6,3,10,9,5,10,5,1,8,9,8,10,2)
alumnos <-c("Maria","Juana","Juliana","Marco","Polo","Jésus","Diego","Ángel","Arturo","Jaime","Pedro","María","Samira","Pepe","Juana","Mario","Roberto","Carolina","Ale","Andrea")
notas[1:10]
## [1] 1 9 4 6 3 4 8 6 3 10

2. Suma las notas de los 10 primeros alumnos del vector

sum(notas[1:10])
## [1] 54

3. ¿Cuántos alumnos hay en total?

length(alumnos)
## [1] 20

4. Suma las notas de los alumnos

sum(notas)
## [1] 121

5. ¿Cuántos alumnos han aprobado?

aprobados <- which(notas>=7)
aprobados <- length(aprobados)
aprobados
## [1] 9

6. ¿Qué porcentaje de alumnos han aprobado?

totalalumnos <- 20
porcentaje <- (aprobados/totalalumnos)*100
cat(porcentaje, "%")
## 45 %

7. ¿Cuáles han sido las notas máxima y mínima?

cat("La nota máxima es:",max(notas))
## La nota máxima es: 10
cat("La nota mínima es:",min(notas))
## La nota mínima es: 1

8. ¿De qué alumnos son la máxima y mínima notas?

f <- which(notas==10)
cat("La nota max es ",notas[f]," del alumno ",alumnos[f])
## La nota max es 10 10 10 del alumno Jaime Samira Ale
G <- which(notas==1)
cat("La nota min es ",min(notas)," de los alumnos ",alumnos[G])
## La nota min es 1 de los alumnos Maria Juana

9. Nota media de alumnos, teniendo en cuenta sólo a los que han aprobado.

notaprobados <- notas[notas>=7]
notaprobados
## [1] 9 8 10 9 10 8 9 8 10
promaprob <- mean(notaprobados)
promaprob
## [1] 9

EJERCICIOS EN R

2023-06-25

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

SISTEMAS DE INFORMACIÓN APLICADOS A LA ECONOMÍA

Integrantes:

Vanesa Chávez

Victoria Reyes

Freddy Rojas

Kevin Yépez

Colaboración:

Profesor: Francisco Valverde (PhD en informática)

Ejercicios en el Programa de R Nº1

PROGRAMA PARA MEDIR LA TEMPERATURA

PROGRAMA PARA CALCULAR NÚMERO DE HORAS TRABAJADAS

PROGRAMA PARA SUMAR NÚMEROS ENTEROS

PROGRAMA PARA CALCULAR LA MASA CORPORAL

PROGRAMA PARA SABER LA INVERSIÓN DE UN PRÉSTAMO

PROGRAMA QUE PIDE EL TIEMPO

PROGRAMA PARA ORDENAR NÚMEROS

PROGRAMA QUE CALCULE EL FACTORIAL DE UN NÚMERO

PROGRAMA PARA SACAR NÚMEROS PRIMOS

PROGRAMA PARA SABER SI ES PAR O IMPAR

Ejercicios con vectores en R Nº2

Calcular los valores numéricos aproximados de:

Ejemplo de ejercicio para calcular el ejercicio a:

Ejemplo de ejercicio para calcular el ejercicio b:

Ejemplo de ejercicio para calcular el ejercicio c:

3. El vector alumnos representa los nombres de una serie de alumnos. crear el vector alumnos con 20 nombres

a)Visualízalo en pantalla

b)¿Cuántas componentes tiene el vector alumno?

c)¿En qué posiciones del vector alumnos está la letra ‘A’?

4. El vector notas representa la nota de un examen, de los mismos alumnos cuyo lista se ha guardado en el vector alumnos y en el mismo orden.

1. Visualízalo en pantalla

2. ¿Cuántas componentes tiene?

3. ¿Cuánto suman todas las notas?

4. ¿Cuál es la media aritmética de todas las notas?

5. ¿En qué posiciones están las notas mayores de 7?

6. Visualiza las notas ordenadas de menor a mayor

7. Visualiza las notas ordenadas de mayor a menor

8. ¿Cuál ha sido la nota máxima?

9. ¿En qué posición del vector está esa nota máxima?

5. A partir de los vectores alumnos y notas definidos:

1. Visualiza las notas de los 10 primeros alumnos

2. Suma las notas de los 10 primeros alumnos del vector

3. ¿Cuántos alumnos hay en total?

4. Suma las notas de los alumnos

5. ¿Cuántos alumnos han aprobado?

6. ¿Qué porcentaje de alumnos han aprobado?

7. ¿Cuáles han sido las notas máxima y mínima?

8. ¿De qué alumnos son la máxima y mínima notas?

9. Nota media de alumnos, teniendo en cuenta sólo a los que han aprobado.