R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

TALLER 2 Y 3

GRUPO: Nº8

#————————-EJERCICIO1———————————

#ESCRIBE UN PROGRAMA QUE SOLICITE LOS CATETOS DE UN TRIANGULO #RECTANGULO Y Y MUESTRE SU HIPOTENUSA

#Paso 1.-Definimos dos variables numericas en este caso cateto1 y cateto2 #e ingresamos un valor para cada cateto

cateto1<-as.numeric(readline("Coloque el primer cateto:"))
## Coloque el primer cateto:
cateto2<-as.numeric(readline("Coloque el segundo cateto:"))
## Coloque el segundo cateto:

#Paso2.-Definimos la variable hipotenusa, y le asignamos la suma de ##los dos catetos al cuadrado entre parentesis de un sqrt(raiz cuadrada)

hipotenusa<-sqrt((cateto1^2)+(cateto2^2))

#Paso3.-Con el comando cat reflejamos el resultado

cat("La hipotenusa del triangulo rectangulo es:", hipotenusa)
## La hipotenusa del triangulo rectangulo es: NA

#————————-EJERCICIO2—————————————–

#ESCRIBIR UN PROGRAMA QUE CALCULE LAS SOLUCIONES DE UNA #ECUACION DE SEGUNDO GRADO DE LA FORMA ax2+bx+c=0

#Paso1.-Definimos tres variables numericas en este caso a, b, c y #le damos un valor a cada variable

a<-as.numeric(readline("Escriba el valor de a:"))
## Escriba el valor de a:
b<-as.numeric(readline("Escriba el valor de b:"))
## Escriba el valor de b:
c<-as.numeric(readline("Escriba el valor de c:"))
## Escriba el valor de c:

#Paso2.-Calcular el valor de la discriminante

discrim<-((b^2)-(4*a*c))
sol1<-((-b-(sqrt(discrim)))/(2*a))
sol2<-((-b+(sqrt(discrim)))/(2*a))
cat("La ecuacion de segundo grado:",a,"X^2+",b,"x+",c,"=0\n\n",
    "Las raices de la segunda ecuacion son:","\n",
    "x1 es:",sol1, "\n",
    "x2 es:",sol2, "\n")
## La ecuacion de segundo grado: NA X^2+ NA x+ NA =0
## 
##  Las raices de la segunda ecuacion son: 
##  x1 es: NA 
##  x2 es: NA

#————————-EJERCICIO3——————————-

#Calcular el area del triangulo rectangulo dadas su base y altura

Paso 1.-Creo un script para solicitar los datos del triangulo rectangulo

#(base y altura) para calcular el area.

base<-as.numeric(readline("Ingresar el valor de la base del tri?ngulo rectangulo: "))
## Ingresar el valor de la base del tri?ngulo rectangulo:
altura<-as.numeric(readline("Ingresar el valor de la altura del tri?ngulo rectangulo: "))
## Ingresar el valor de la altura del tri?ngulo rectangulo:

Paso2.-Desarrollo del script para calcular el area del triangulo rectangulo.

area<-((base*altura)/2)

#Paso3.-Usamos cat() para imprimir nuestros resultados.

cat("El siguiente tri?ngulo rect?ngulo tiene las siguientes dimensiones:","\n",
    "- Base: ",base,"\n",
    "- Altura: ",altura,"\n",
    "El ?rea del tri?ngulo rect?ngulo es:",area)
## El siguiente tri?ngulo rect?ngulo tiene las siguientes dimensiones: 
##  - Base:  NA 
##  - Altura:  NA 
##  El ?rea del tri?ngulo rect?ngulo es: NA

#————————-EJERCICIO 4————————————

#Calcular el area y perimetro de un rectangulo dado su base y altura.

Paso1.-Escribir una linea de codigo y crear las variables

necesarias, coloco el mensaje que le aparece al usuario

para ingresar la informacion utilizando readline.

b<-as.numeric(readline("Ingresar numero para el valor de la base: "))
## Ingresar numero para el valor de la base:
a<-as.numeric(readline("Ingresar numero para el valor de la altura: "))
## Ingresar numero para el valor de la altura:

##Paso2.-Se muestra las f?rmulas que se necesita para calcular el area y el perimetro ##asignar a cada formula una variable respectivamente, para que guarde en la ##misma el resultado del calculo.

area<-b*a
perimetro<-(2*a+2*b)

##Paso 3.-Por ultimo, despues de realizar los calculos correspondientes solo falta colocar ##el mensaje que recibe el estudiante con respecto a los valores de a y b. Para ello utilizamos ##la funcion cat() y colocamos las variables en el lugar correspondiente.

cat("El area de dicho rectangulo es:", area, "cm^2")
## El area de dicho rectangulo es: NA cm^2
cat("El perimetro de dicho rectangulo es: ", perimetro, "cm")
## El perimetro de dicho rectangulo es:  NA cm

#————————-EJERCICIO 5———————————— #Calcular el promedio de 3 notas que estan entre 0 y 20

n1<-as.numeric(readline("Ingrese la primera calificaci?n: "))
## Ingrese la primera calificaci?n:
n2<-as.numeric(readline("Ingrese la segunda calificaci?n: "))
## Ingrese la segunda calificaci?n:
n3<-as.numeric(readline("Ingrese la tercera calificaci?n: "))
## Ingrese la tercera calificaci?n:

#Formulas para calcular el promedio y que las notas estan entre 0 y 20

promedio<-(n1+n2+n3)/3
mayorque0<-promedio>0
menorque20<-promedio<20

#Utilizamos cat para conocer el promedio

cat("El promedio de las calificaciones es:", promedio)
## El promedio de las calificaciones es: NA

#————————-EJERCICIO 6———————————— #Calcular el area y perimetro de la circunferencia dado el radio

r<-as.numeric(readline("Ingresar n?mero para el valor del radio: "))
## Ingresar n?mero para el valor del radio:

#Formulas para calcular el area y el perimetro de la circunferencia

ar<-pi*r^2

per<-2*pi*r

#Utilizamos cat para conocer los valores del area y el perimetro de la #circunferencia

cat("El ?rea de la circunferencia es ", ar, "cm^2")
## El ?rea de la circunferencia es  NA cm^2
cat("El per?metro de la circunferencia es ", per, "cm")
## El per?metro de la circunferencia es  NA cm

#————————-EJERCICIO 7————————————

#Calcular el area y el perimetro de un trapecio dado su base mayor, #base menor y altura.

base_mayor <- as.numeric(readline("Ingrese la base mayor del trapecio: "))
## Ingrese la base mayor del trapecio:
base_menor <- as.numeric(readline("Ingrese la base menor del trapecio: "))
## Ingrese la base menor del trapecio:
altura <- as.numeric(readline("Ingrese la altura del trapecio: "))
## Ingrese la altura del trapecio:
lado <- as.numeric(readline("Ingrese el lado del trapecio: "))
## Ingrese el lado del trapecio:
perimetro <- base_mayor+base_menor+lado+lado
area <- ((base_mayor+base_menor)*altura)/2

cat("El Área del trapecio es de ",area,"cm^2\n"); cat("El perimetro del trapecio es de ",perimetro,"cm")
## El Área del trapecio es de  NA cm^2
## El perimetro del trapecio es de  NA cm

#————————-EJERCICIO 8————————————

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

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:

#if (num1>num2) {cat(“El numero mayor es”,num1,“El numero menor es”,num2)} #else if (num1<num2) {cat(“El numero mayor es”,num2,“El numero menor es #”,num1)} else {“Los dos números son iguales”}

#————————-EJERCICIO ADICIONAL1—————————-

Escribe un programa que lea dos números y muestre en la salida su suma,

#resta, multiplicación y división

N1 <-as.numeric(readline("Ingrese el primer número: "))
## Ingrese el primer número:
N2 <- as.numeric(readline("Ingrese el segundo número: "))
## Ingrese el segundo número:
cat("La suma de los dos números es: ",N1+N2,
    "\nLa resta de los dos números es: ",N1-N2,
    "\nLa multiplicación de los dos números es: ",N1*N2,
    "\nLa división de los dos números es: ",N1/N2)
## La suma de los dos números es:  NA 
## La resta de los dos números es:  NA 
## La multiplicación de los dos números es:  NA 
## La división de los dos números es:  NA

#————————-EJERCICIO ADICIONAL2—————————-

#REALICE UN PROGRAMA QUE PIDA UNA CANTIDAD EN D?LARES Y COMO #RESULTADO SE VISUALICE EL IVA (12%) Y EL VALOR TOTAL A PAGAR

#Paso1.-Definimos una variable y dijitamos cualquier cantidad

d<- as.numeric(readline("Dijite su cantidad de dinero: "))
## Dijite su cantidad de dinero:

#Paso2.-Colocamos la formula de calcular el iva

iva<- d*0.12
total<- d+iva

#Paso3.-Con el comando cat imprimos el resultado

cat("Su dinero incluido el iva es igual a: ", total)
## Su dinero incluido el iva es igual a:  NA

#————————-EJERCICIO 1———————————

"Escribir un programa que pida la temperatura y si esta es en Fahrenheit o Celsius 
y presentar en pantalla su transformacion en la otra medida"
## [1] "Escribir un programa que pida la temperatura y si esta es en Fahrenheit o Celsius \ny presentar en pantalla su transformacion en la otra medida"
"Paso 1"
## [1] "Paso 1"
"Definir nuestras variables"
## [1] "Definir nuestras variables"
t <- as.numeric(readline("ingrese la temperatura deseada: "))
## ingrese la temperatura deseada:
medida <- as.character(readline("digite la letra C si es celcius o F si es fahrenheit:"))
## digite la letra C si es celcius o F si es fahrenheit:
"Paso2"
## [1] "Paso2"
"Con el comando if y else condicionamos y con el comando cat presentamos los resultados "
## [1] "Con el comando if y else condicionamos y con el comando cat presentamos los resultados "
if(medida=="c" | medida=="c"){
  f <- (t*1.8)+32
  cat("los grados en fahrenheit es:",f, "fahrenheit")
}else{
  c <- (t-32)/1.8
  cat("los grados en celsius es:",c,"celsius")}
## los grados en celsius es: NA celsius

#————————-EJERCICIO 2—————————————–

"Escribir un programa que pregunte al usuario por el numero de horas trabajadas
y el coste por hora. Despues debe mostrar por pantalla la paga que le corresponde,
ademas debe preguntar si existen horas extras que tienen un valor diferente y con
estos valores se calcule la paga correspondiente"
## [1] "Escribir un programa que pregunte al usuario por el numero de horas trabajadas\ny el coste por hora. Despues debe mostrar por pantalla la paga que le corresponde,\nademas debe preguntar si existen horas extras que tienen un valor diferente y con\nestos valores se calcule la paga correspondiente"
"Paso 1"
## [1] "Paso 1"
"Primero definimos nuestras variables para las horas trabajas, costo y horas extras"
## [1] "Primero definimos nuestras variables para las horas trabajas, costo y horas extras"
hora <- as.numeric(readline("ingrese el numero de horas trabajadas:"))
## ingrese el numero de horas trabajadas:
costo <- as.numeric(readline("ingrese el costo por hora trabajada:"))
## ingrese el costo por hora trabajada:
h.extras <- as.numeric(readline("ingrese las horas extras trabajadas:"))
## ingrese las horas extras trabajadas:
"Paso 2"
## [1] "Paso 2"
"Asignamos una formula para el calculo de sueldo a recibir sin horas extras y con horas extras"
## [1] "Asignamos una formula para el calculo de sueldo a recibir sin horas extras y con horas extras"
"Con el comando cat reflejaremos los resultados"
## [1] "Con el comando cat reflejaremos los resultados"
cat("sueldo a recibir sin horas extras");cat("\nvalor por horas extras trabajadas:",h.extras*((costo/2)+costo))
## sueldo a recibir sin horas extras
## 
## valor por horas extras trabajadas: NA
cat("sueldo a recibir:", hora*costo+h.extras*((costo/2)+costo))
## sueldo a recibir: NA

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

#Paso1 #Creamos una variable n para que nos ingrese el numero entero positivo

n <- as.numeric(readline(“Ingrese un numero entero positivo:”))

#Paso2.- utilizamos la variable suma para la formula que haga el conteo

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

#Paso3.- Utilizamos la funcion cat para mandar un mensaje a la pantalla la suma de #de los numeros enteros

cat(“La suma de los enteros positivos desde 1 hasta”, n, ““)

#————————-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 indice de masa corporal es donde es #el indice de masa corporal calculado redondeado con dos decimales

#Paso1.-primero escribo una linea de codigo donde creo las variables que #necesito, y coloco el mensaje que le aparece al usuario para #ingresar la informacion.

peso<-as.numeric(readline("Ingrese su peso en kg: "))
## Ingrese su peso en kg:
estatura<-as.numeric(readline("ingrese su estatura en metros: "))
## ingrese su estatura en metros:

#Paso2.-Redaccion del codigo, para ello asignaremos a cada formula mostrada anteriormente #una variable respectivamente, para que guarde en la misma el resultado del calculo.

imc = round(peso/(estatura**2),2)
imc
## [1] NA

Paso3.-Por ultimo, despues de realizar los calculos correspondientes solo falta

#colocar el mensaje que recibe el estudiante con respecto a los valores de x. #Para ello utilizamos la funcion cat() y colocamos las variables en el lugar correspondiente.

cat("Tu indice de masa corporal es ", imc)
## Tu indice de masa corporal es  NA

#————————-EJERCICIO 5———————————— #Escribir un programa que pregunte al usuario una cantidad a invertir, #el interes anual y el numero de años, y muestre por pantalla el capital #obtenido en la inversion

#Definimos las variables

inversion <- as.numeric(readline("Ingrese la cantidad que desea invertir: "))
## Ingrese la cantidad que desea invertir:
intanual <- as.numeric(readline("Ingrese el interes anual que desea obtener: "))
## Ingrese el interes anual que desea obtener:
tiempo<-as.numeric(readline("Ingrese el numero de años: "))
## Ingrese el numero de años:

#Utilizamos la formula para calcular el capital obtenido

capital <- (inversion*(intanual/100)*tiempo)+inversion

#Utilizamos cat para llamar a la funcion

cat ("El capital total al invertir", inversion, 
     "a un inter?s anual del", intanual, 
     "% en un tiempo de", tiempo, 
     "a?os es de", capital)
## El capital total al invertir NA a un inter?s anual del NA % en un tiempo de NA a?os es de NA

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

#Definimos la variable

hora <- as.numeric(readline("Ingrese la hora que desea transformar: "))
## Ingrese la hora que desea transformar:

#Utilzamos cat para llamar a la funci?n y dentro de cat utilizamos #las f?rmulas para conocer la hora en segundos o minutos

cat ("Su hora transformada en minutos es: ",  hora*60)
## Su hora transformada en minutos es:  NA
cat ("Su hora transformada en segundos es: ",  hora*3600)
## Su hora transformada en segundos es:  NA

#————————-EJERCICIO 7———————————— # Escribir un programa en el que se digiten varios numeros y # luego los n?meros se presenten en pantalla ordenados

print("Ingrese los numeros: ")
## [1] "Ingrese los numeros: "
vectornumeros <- as.numeric(scan())

cat("Los numeros ingresados de manera ordenada son: ",
    sort(vectornumeros))
## Los numeros ingresados de manera ordenada son:

#————————-EJERCICIO 8———————————— # Escribir un programa que calcule el factorial de un numero # que ha sido digitado por el usuario

num1 <- as.integer(readline(“Ingrese su numero:”)) fac <- 1 if (num1<0) { “No existe el fectorial negativo” }else if(num1==0) { “El factorial es 1” }else { for (i in 1:num1) { fac <- fac*i } cat(“El factorial es:”,fac) }

#————————-EJERCICIO ADICIONAL1—————————- # Escribir un programa que pida un numero e indique si el # numero es primo o no

numero <- as.integer(readline(“Ingrese un numero:”))

contador <- 0 for (i in 0:numero) { if (numero%%(i+1)!=0) { next } else { contador <- contador+1 } } if (contador==2) { print (“El numero es primo”) }else { print(“El numero no es primo”) }

#————————-EJERCICIO ADICIONAL2—————————- #Escribir un programa que pida un numero e indique si el numero #es par o impar

#Paso1.-Creo la linea de codigo que me permita solicitar al usuario ingrese un numero #cualquiera, del cual desee saber si es par o impar.

num<-as.numeric(readline("Ingrese el numero que quiera: "))
## Ingrese el numero que quiera:

#Paso2.-Para saber si el numero ingresado es par o impar, asignaremos a dos #variable los calculos correspondientres.

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

#Paso3.-Por ultimo, usaremos el codigo cat para imprimir el mensaje con #los resultados encontrados.

cat("\n","El numero ingresado ",num," es par:",p,"\n",
    "El numero ingresado ",num," es impar:",imp)
## 
##  El numero ingresado  NA  es par: NA 
##  El numero ingresado  NA  es impar: NA