UNIVERSIDAD CENTRAL DEL ECUADOR

                            Facultad de Ciencias Económicas

                        Colaborador Ing. Francisco Valverde PhD

R y R STUDIO

R es un software que fue diseñado para hacer análisis estadísticos y gráficas y es un software de libre acceso. RStudio es un entorno de desarrollo integrado para el lenguaje de programación R, dedicado a la computación estadística y gráficos. Incluye una consola, editor de sintaxis que apoya la ejecución de código, así como herramientas para el trazado, la depuración y la gestión del espacio de trabajo. está disponible para Windows, Mac y Linux o para navegadores conectados a RStudio Server o RStudio Server Pro (Debian / Ubuntu, RedHat / CentOS, y SUSE Linux).

MANUAL DE EJERCICIOS BASICOS EN R

EJERCICIOS EN R STUDIO

EJERCICIO 1: PROGRAMA QUE SOLICITE LOS CATETOS DE UN TRIÁNGULO RECTÁNGULO Y MUESTRE SU HIPOTENUSA.

Construcción y asignación del tipo de dato
Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
cateto1<-as.numeric(readline("Ingrese el valor del primer cateto: "));cateto1<-10
## Ingrese el valor del primer cateto:
cateto2<-as.numeric(readline("Ingrese el valor del segundo cateto: "));cateto2<-20
## Ingrese el valor del segundo cateto:
hipotenusa<-sqrt((cateto1^2)+(cateto2^2))
cat("La hipotenusa del triangulo rectangulo es: ", hipotenusa)
## La hipotenusa del triangulo rectangulo es:  22.36068

EJERCICIO 2: PROGRAMA QUE CALCULE LAS SOLUCIONES DE UNA ECUACIÓN DE SEGUNDO GRADO DE LA FORMA AX2+BX+C=0.

Construcción y asignación del tipo de dato
Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
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:

Ejecución

Asignación de valores a las variables a,b,c

a<-1
b<-3
c<-2
discriminante<-(b^2-4*a*c)
solucion1<-(-b-(sqrt(discriminante))/2*a)
solucion2<-(-b+(sqrt(discriminante))/2*a)
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
Comando slash n \n separa líneas del código.
cat("La ecuacion de segundo grado: ", "a*(x)^2+b*x+c=0" , "\n", 
"Las raices de la ecuacion son: ","\n\n")  
## La ecuacion de segundo grado:  a*(x)^2+b*x+c=0 
##  Las raices de la ecuacion son:
cat("la solucion de X1 es :", solucion1 , "\n\n")
## la solucion de X1 es : -3.5
cat("la solucion de X2 es :", solucion2)
## la solucion de X2 es : -2.5

EJERCICIO 3: CALCULAR EL ÁREA DEL TRIÁNGULO RECTÁNGULO DADAS SU BASE Y ALTURA.

Construcción y asignación del tipo de dato
Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
base<-as.numeric(readline("Ingrese la base del triangulo: "))
## Ingrese la base del triangulo:
altura<-as.numeric(readline("Ingrese la altura del triangulo: "))
## Ingrese la altura del triangulo:

Ejecución

Asignación de valores a las variables base y altura

# Base del triangulo rectangulo
b<-10
# Altura del triangulo rectangulo
h<-20
Fórmula general del área de un trángulo rectángulo

\[Área \ triángulo \ rectángulo = \frac{b*h}{2}\]

Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
cat("El Area total es:",((b*h)/2))
## El Area total es: 100

EJERCICIO 4: CALCULAR EL ÁREA Y PERÍMETRO DE UN RECTÁNGULO DADO SU BASE Y ALTURA

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
Fórmula general del área de un rectángulo

\[Área \ rectángulo = b*h\]

Fórmula general del perímetro de un rectángulo

\[Perímetro \ rectángulo = 2*b+2*h\]

Base<-as.numeric(readline("Ingrese la base del rectangulo: "))
## Ingrese la base del rectangulo:
Altura<-as.numeric(readline("Ingrese la altura del rectangulo: "))
## Ingrese la altura del rectangulo:
# Base del triangulo rectangulo
Base<-5
# Altura del triangulo rectangulo
Altura<-15

cat("El area del rectangulo es: ",(Base*Altura),"\n\n")
## El area del rectangulo es:  75
cat("El perimetro del rectangulo es:", (2*Base)+(2*Altura)) 
## El perimetro del rectangulo es: 40

EJERCICIO 5: CALCULAR EL PROMEDIO DE 3 NOTAS QUE ESTEN ENTRE 0 Y 20

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
nota_individual<-as.numeric(readline("Ingrese su nota individual "));nota_individual<-10
## Ingrese su nota individual
nota_grupal<-as.numeric(readline("Ingrese su nota grupal "));nota_grupal<-9
## Ingrese su nota grupal
nota_examen<-as.numeric(readline("Ingrese su nota examen "));nota_examen<-10
## Ingrese su nota examen
promedio<-(nota_individual + nota_grupal + nota_examen)/3

cat("Su nota final es", "\n", "Programacion: ", round(promedio, digits = 2))
## Su nota final es 
##  Programacion:  9.67

EJERCICIO 6: CALCULAR EL ÁREA Y PERÍMETRO DE LA CIRCUNFERENCIA DADO EL RADIO

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
Fórmula general del área de una circunferencia

\[Área \ circunferencia = \pi*(r)^2\]

Fórmula general del perímetro de una circunferencia

\[Perímetro \ circunferencia = 2*\pi*r\]

r<- as.numeric(readline("Ingrese el valor del radio: "));r<-5
## Ingrese el valor del radio:
perimetro <- 2*pi*(r)
area <-pi*(r)^2
cat("El perimetro de la circunferencia es: ", perimetro,"\n",
  "El area de la circunferencia es: ", area)
## El perimetro de la circunferencia es:  31.41593 
##  El area de la circunferencia es:  78.53982

EJERCICIO 7: CALCULAR EL ÁREA Y PERÍMETRO DE UN TRAPECIO DADO SU BASE MAYOR, BASE MENOR Y ALTURA.

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
Fórmula general del área del trapecio

\[Área \ trapecio = \frac{(B*b)*h}{2}\]

Fórmula general del perímetro del trapecio

\[Perímetro \ trapecio = L+L+L+L\]

base_mayor<-as.numeric(readline("Ingrese la base mayor "));base_mayor<-10
## Ingrese la base mayor
base_menor<-as.numeric(readline("Ingrese la base menor "));base_menor<-5
## Ingrese la base menor
altura<-as.numeric(readline("Ingrese la altura "));altura<-7
## Ingrese la altura
cat("El area del trapecioes: ", (base_mayor+base_menor)/2*altura ,"\n" )
## El area del trapecioes:  52.5
cat("El perimetro del trapecio es: ", (base_mayor+altura+base_menor+altura))
## El perimetro del trapecio es:  29

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.

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
opc1<-as.numeric(readline("ingrese el primer numero  :" ));opc1<-5
## ingrese el primer numero  :
opc2<-as.numeric(readline("ingrese el segundo numero  :" ));opc2<-7
## ingrese el segundo numero  :
# valor menor
cat("El valor menor entre los dos valores resgistrados es:",min(opc1,opc2),"\n\n")
## El valor menor entre los dos valores resgistrados es: 5
# valor mayor
cat("El valor mayor entre los dos valores resgistrados es:",max(opc1,opc2),"\n\n")
## El valor mayor entre los dos valores resgistrados es: 7
# si los numeros son iguales 
cat("los valores ingresados son iguales  :" ,(opc1==opc2)  )
## los valores ingresados son iguales  : FALSE

EJERCICIO 9: ESCRIBE UN PROGRAMA QUE LEA DOS NÚMEROS Y MUESTRE EN LA SALIDA SU SUMA, RESTA, MULTIPLICACIÓN Y DIVISIÓN

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
Operaciones básicas
  • Suma +
  • Resta -
  • Multiplicación *
  • División /
x<-as.numeric(readline("Ingrese el primer numero "));x<-7
## Ingrese el primer numero
y<-as.numeric(readline("Ingrese el segundo numero "));y<-5
## Ingrese el segundo numero
cat("La suma de los numeros es: ",x+y, "\n",
    "La resta de los numeros es: ",x-y, "\n",
    "La multiplicacion de los numeros es: ",x*y, "\n",
    "La divicion de los numeros es: ",x/y)
## La suma de los numeros es:  12 
##  La resta de los numeros es:  2 
##  La multiplicacion de los numeros es:  35 
##  La divicion de los numeros es:  1.4

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

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
dolares<-as.numeric(readline("Ingrese la cantidad en dolares: "));dolares<-10
## Ingrese la cantidad en dolares:
IVA<-dolares*0.12
cat("El valor del IVA es de: ",IVA,"\n\n")
## El valor del IVA es de:  1.2
cat("El valor total a pagar es de: ",IVA+dolares)
## El valor total a pagar es de:  11.2

EJERCICIO 11: 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.

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
Función if Esta instrucción sirve para realizar un conjunto de operaciones si se cumple cierta condición.

#####Función elseEsta instrucción sirve para realizar un conjunto de operaciones cuando NO se cumple cierta condición evaluada por un if.

temp<-as.numeric(readline("Ingrese la temperatura: "));temp<-50
## Ingrese la temperatura:
grados<-as.character(readline("Si esta en Celsius 
                              ingrese la letra C y si esta en Fahrenheit 
                              ingrese una F: "));grados<-20
## Si esta en Celsius 
##                               ingrese la letra C y si esta en Fahrenheit 
##                               ingrese una F:
if (grados=="C"|grados=="c")
{
  fa<-(temp*1.8)+32
  cat("Estos grados en Fahrenheit son :", fa, "F")
}else
{
  cel<-(temp-32)/1.8
  cat("Los grados en Celsius son:", cel, "C")

}
## Los grados en Celsius son: 10 C

EJERCICIO 12: 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

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
horas<- as.numeric(readline ("Ingrese el total de horas trabajadas: "));horas<-10
## Ingrese el total de horas trabajadas:
extras<- as.numeric(readline ("Ingrese el total de horas extras trabajadas: "));horas<-2
## Ingrese el total de horas extras trabajadas:
ht<- as.numeric(horas*2.50)

he<- as.numeric(extras*1)

sueldo<- as.numeric(ht+he)

cat("El total de sus horas trabajadas es: $", ht, "dolares", "\n",
    "El total de sus horas extras trabajadas es: $", he, "dolares", "\n",
    "El sueldo total que debe recibir es de: $", sueldo, "dolares")
## El total de sus horas trabajadas es: $ 5 dolares 
##  El total de sus horas extras trabajadas es: $ NA dolares 
##  El sueldo total que debe recibir es de: $ NA dolares

EJERCICIO 13 : 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

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
x<-as.numeric(readline ("Ingrese un número entero: "));x<-10
## Ingrese un número entero:
suma<-(x*(x+1))/2

cat("La suma de este número entero es: ", suma)
## La suma de este número entero es:  55

EJERCICIO 14: 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

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
p<-as.numeric(readline ("Ingrese su peso en kilogramos: "));p<-20
## Ingrese su peso en kilogramos:
est<- as.numeric(readline ("Ingrese su estatura en metros: "));est<-10
## Ingrese su estatura en metros:
imc<-p/est^2
cat ("Su índice de masa corporal es de : ",round (imc,2))
## Su índice de masa corporal es de :  0.2

EJERCICIO 15: 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

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
inversion<-as.numeric(readline("Ingrese la cantidad que desea invertir: "));inversion<-500
## Ingrese la cantidad que desea invertir:
interesanual<-as.numeric(readline("Ingrese el interés anual: "));interesanual<-50
## Ingrese el interés anual:
años<-as.numeric(readline("Ingrese el número de años: "));años<-2
## Ingrese el número de años:
tasainteres<-interesanual/100
cap<-inversion*(1+tasainteres)^años
cat("El capital obtenido es de : ",round(cap,digits = 2))
## El capital obtenido es de :  1125
EJERCICIO 16: REALIZAR UN PROGRAMA QUE PIDA EL TIEMPO YA SEA EN HORAS, MINUTOS O SEGUNDOS LUEGO INDICAR EN QUE TIPO DE TIEMPO DESEA TRANSFORMAR Y LUEGO PRENTAR EL RESULTADO.

####FUNCIONES Y COMANDOS

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
Comando slash n \n separa líneas del código.
NOTA
Una hora tiene 60 minutos y 3600 segundos
Un minuto tienes 60 segundos
COMANDOS
COMANDO DE HORAS A MINUTOS Y SEGUNDOS
H·(60)“minutos , H·(3600) segundos
COMANDO DE MINUTOS A HORAS Y SEGUNDOS
M·(1/60)“horas , M·(60) segundos
COMANDO DE SEGUNDOS A MINUTOS Y HORAS
S·(1/60)“minutos , S·(1/3600) horas
# Asignación de las variable hora (H), minutos (M) y segundos (S)


{
  H<-as.numeric(readline("DIGITE EL TIEMPO DE HORAS :"));H<-2
  M<-as.numeric(readline("DIGITE EL TIEMPO DE MINUTOS :"));M<-120
  S<-as.numeric(readline("DIGITE EL TIEMPO DE SEGUNDOS :"));S<-7200
}
## DIGITE EL TIEMPO DE HORAS :
## DIGITE EL TIEMPO DE MINUTOS :
## DIGITE EL TIEMPO DE SEGUNDOS :
{
  cat("TRANSFORMACION DE HORAS: \n A minutos y segundos  
    el numero de horas ingresadas equivale a:  \n\n" , H*(60/1)  , 
    "minutos \n\n" , H*(3600/1)  , "segundos","\n\n")
  
  cat("TRANSFORMACION DE MINUTOS: \n  A horas Y segundos
    el numero de horas ingresadas equivale a:   \n\n" , M*(1/60)  , 
    "horas \n\n" , M*(60/1)  , "segundos","\n\n")
  
  cat("TRANSFORMACION DE SEGUNDOS: \n  A minutos y horas
    el numero de horas ingresadas equivale a:   \n\n" , S*(1/60)  , 
    "minutos \n\n" , S*(1/3600)  , "horas")
}
## TRANSFORMACION DE HORAS: 
##  A minutos y segundos  
##     el numero de horas ingresadas equivale a:  
## 
##  120 minutos 
## 
##  7200 segundos 
## 
## TRANSFORMACION DE MINUTOS: 
##   A horas Y segundos
##     el numero de horas ingresadas equivale a:   
## 
##  2 horas 
## 
##  7200 segundos 
## 
## TRANSFORMACION DE SEGUNDOS: 
##   A minutos y horas
##     el numero de horas ingresadas equivale a:   
## 
##  120 minutos 
## 
##  2 horas

EJERCICIO 17 ESCRIBIR UN PROGRAMA QUE SE DIGITE VARIOS NÚMEROS SE REPRESENTEN EN LA PANTALLA ORDENADOS.

####FUNCIONES Y COMANDOS

Función as.numeric Selecciona el dato de tipo número en el script
Función readline Permite ingresar datos desde la consola directamente en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.

Función sort es útil para ordenar los elementos de un vector o para saber las posiciones que ocuparían los elementos de un vector al ser ordenado.

{
  n1<-as.numeric(readline("DIGITE EL PRIMER NÚMERO :"));n1<- 24
  n2<-as.numeric(readline("DIGITE EL SEGUNDO NÚMERO :"));n2<- 12
  n3<-as.numeric(readline("DIGITE EL TERCER NÚMERO :"));n3<- 70
  n4<-as.numeric(readline("DIGITE EL CUARTO NÚMERO :"));n4 <- 5
}
## DIGITE EL PRIMER NÚMERO :
## DIGITE EL SEGUNDO NÚMERO :
## DIGITE EL TERCER NÚMERO :
## DIGITE EL CUARTO NÚMERO :
numeros <- c(n1,n2,n3,n4)

cat("ordernar de forma ascendente:" , sort(numeros ))
## ordernar de forma ascendente: 5 12 24 70
num <- factor(scan())
levels(num)
## character(0)
EJERCICIO 18: ESCRIBIR UN PROGRAMA QUE CALCULE EL FACTORIAL DE UN NÚMERO QUE HA SIDO DIGITADO POR EL USUARIO

####FUNCIONES Y COMANDOS

Función as.integer Se implementa para convertir un valor numérico a factorial en R
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
Función readline Sirve para escribir un mensaje en la consola y solicitar al usuario una información que luego se puede utilizar para realizar alguna operación.
  m<-as.integer(readline("DIGITE EL NUMERO PARA CALCULAR EL FACTORIAL \n:"));m <- 6
## DIGITE EL NUMERO PARA CALCULAR EL FACTORIAL 
## :
factorial<- function(){
  
  fact=1
  for (i in 1:m) {
    fact=fact*i
    
  }
  cat("El factorial del valor ", m ,"! es =" , fact)
  
}

factorial()
## El factorial del valor  6 ! es = 720

EJERCICIO 19 ESCRIBIR UN PROGRAMA QUE PIDA UN NÚMERO E INDIQUE SI EL NÚMERO ES PRIMO O NO.

####FUNCIONES Y COMANDOS

Función as.integer Se implementa para convertir un valor numérico a factorial en R
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
Función if Esta instrucción sirve para realizar un conjunto de operaciones si se cumple cierta condición.

#####Función elseEsta instrucción sirve para realizar un conjunto de operaciones cuando NO se cumple cierta condición evaluada por un if.

numero<-as.integer(readline("INGRESE UN NUMERO: "));numero <- 3
## INGRESE UN NUMERO:
residuo<-(sum(numero/1:numero==numero%/%1:numero))

if(residuo==2)

 {
  cat("EL NUMERO", numero, "ES PRIMO")
 }else
 {
  cat("EL NUMERO",numero, "NO ES PRIMO")
 }
## EL NUMERO 3 ES PRIMO

EJERCICIO 20 ESCRIBIR UN PROGRAMA QUE PIDA UN NÚMERO E INDIQUE SI EL NÚMERO ES PAR O IMPAR.

####FUNCIONES Y COMANDOS

Función as.numeric Selecciona el dato de tipo número en el script
Función cat Permite convertir sus argumentos en cadenas de caracteres, los concatena, separándolos por la cadena sep= dada y luego los imprime.
Función readline Sirve para escribir un mensaje en la consola y solicitar al usuario una información que luego se puede utilizar para realizar alguna operación.
numero<-as.numeric(readline("DIJITE EL NUMERO PARA IDENTIFICAR : ")); numero <- 24
## DIJITE EL NUMERO PARA IDENTIFICAR :
par<-numero %% 2 == 0
impar<-numero %% 2 == 1

cat(" el numero ingresado es par " , par)
##  el numero ingresado es par  TRUE
cat("el numero ingresado es impar", impar)
## el numero ingresado es impar FALSE