Funciones aplicadas:
function: una función es un objeto, por lo que el
intérprete de R puede pasar el control a la función, junto con los
argumentos que pueden ser necesarios para que la función realice las
acciones. La función, a su vez, realiza su tarea y devuelve el control
al intérprete, así como cualquier resultado que pueda estar almacenado
en otros objetos.
print: imprime su argumento y lo devuelve de forma
invisible
paste:es una función R incorporada que se utiliza
para concatenar vectores convirtiéndolos en caracteres.
readline:lee una línea de la terminal
as.integer: variable entera
library: para utilizar las funciones que contiene un
paquete.
sample: muestras aleatorias y permutaciones
dlgInput:un cuadro de entrada simple
winDialog: cuadros de diálogo en Windows
cat: es útil para producir resultados en funciones
definidas por el usuario .
Condicionantes:
while: tiempo
if: si
else: mas
for: por
else if: mas si
break: descanso
repeat: repetir
Librerias aplicadas:
svDialogs: Cuadros de diálogo estándar para Windows,
MacOS y Linux
Creación de la función
Se ocupa readline para solicitar el número a
factorizar
#factorial <- function(n){
# factorial <-1
# if(n < 0){
# print("No es posible calcular el factorial de un numero negativo")
# }else if(n == 0){
# print("Su factorial es 0")
# }else{
# for (i in 1:n) {
# factorial<-factorial*i
# }
# print(paste("El factorial de ", n))
# print(paste("es: ", factorial))
# }
#}
#factorial(n<-as.integer(readline("Ingrese el numero del que desea encontrar su factorial:")))svDialogs y se crea el calor
aleatorio con sample y ocupo los condicionales para que el programa
funcione#library(svDialogs)
#
#aleatorio <-sample(1:100,1)
#
#contador <- 1
#while (contador < 11)
#{
# num<- dlgInput(message="Inserte un número:")$res
# if (num==aleatorio)
# {
# resul<-paste("Excelente acertaste, el número era", num)
# winDialog(message=resul)
# contador<-12
# } else
# {
# if (aleatorio>num)
# {
# winDialog(message="El número es demasiado bajo")
# } else
# {
# if (aleatorio<num)
# {
# winDialog(message="El número es demasiado alto")
# }
# }
# }
# if (contador == 10)
# {
# x<-paste("oh, oh se terminaron tus oportudidades, el número era:",aleatorio)
# winDialog(message=x)
# }
# contador<-contador+1
#}
##count <- 0
#contador <- 0
#alg_hast0 <- function(n3) {
# repeat {
# n3 <- as.numeric(readline("Ingrese un número: "))
# contador <- contador + 1
# count <- count + n3
# suma <- sum(count)
# media <- (suma/contador)
# if(n3 == 0) {
# cat("La suma es de los números ingresados es:", suma ,"y la media es:", media)
# break }
# else {
# cat("SIGUIENTE NUMERO")
# }
# }
#}#alg_hast0()#num_mayor <- 0
#num_menor <- 0
#num_igual <- 0
#alg_pnumeros <- function(n4, n5) {
# n4 <- as.numeric(readline("Ingrese la cantidad de números que desee ingresar: "))
# for (num3 in 1:n4) {
# n5 <- as.numeric(readline("Ingrese un número: "))
# if(n5 > 0) {
# num_mayor <- num_mayor + 1
# }
# else
# {
# if (n5 < 0) {num_menor <- num_menor + 1
# }
# else {
# num_igual <- num_igual + 1
# }
# }
# }
# cat("La cantidad de números ingresados mayores a cero es:", num_mayor,"\n")
# cat("La cantidad de números ingresados menores a cero es:", num_menor,"\n")
# cat("La cantidad de números ingresados iguales a cero es:", num_igual,"\n")
#}
#
#alg_pnumeros()
##alg_vocales <- function(caracter1) {
# repeat {
# caracter1 <- as.character(readline("Ingrese una letra: "))
# if(caracter1 == "a" | caracter1 == "e" | caracter1 == "i" | caracter1 == "o" | caracter1 == #"u" |
# caracter1 == "A" | caracter1 == "E" | caracter1 == "I" | caracter1 == "O" | caracter1 == #"U"){
# cat(caracter1, "VOCAL")
# } else {
# if(caracter1 == "0") {
# break }
# else {
# cat(caracter1, "NO VOCAL")
# }
# }
# }
#}
#
#alg_vocales()#library(svDialogs)
#
#alg_numpares<-function(n1, n2)
#{
# for(k in n1:n2)
# {if(k%%2 ==0)
# {
# print(paste(k,"Número par"))
# }else
# {
# " "
# }
# }
#}
#alg_numpares(n1<-as.numeric(dlgInput(message="Ingrese el número de inicio:")$res),
# n2<-as.numeric(dlgInput(message="Ingrese el número final:")$res))#tabla_de_multiplica<-function(n){
# n <- as.numeric(readline("Ingrese la tabla que desea mostrar: "))
# for (i in 1:12) {
# mult<- i * n
# print(paste(n, "x", i, "=", mult))
# }
#}
#tabla_de_multiplica()#numeros <- 1
#suma <- 0
#contador3 <- 0
#lim_inferior <- as.numeric(dlgInput(message="Inserte el límite inferior")$res);
#lim_superior <- as.numeric(dlgInput(message="Inserte el límite superior")$res)
#while(numeros != 0)
#{
# if (lim_inferior > lim_superior) {
# lim_superior <- as.numeric(dlgInput(message="Inserte el límite superior")$res)
# } else {
# numeros<-as.numeric(dlgInput(message="Inserte un número")$res)
# suma<- suma + numeros
# contador3<- contador3 +1
# }
#}
#print(paste("La suma de las cantidades del intevalo es:", suma));
#print(paste("Se ingresaron:", contador3, "números fuera del intervalo"))#alg_baseexp <- function(b,exp) {
# pot <- 1
# for (h in 1:exp)
# {
# pot <- pot * b
# }
# return(print(paste(b, "elevado a", exp, "es = ", pot)))
#}
#alg_baseexp(b<-as.numeric(dlgInput(message="La base es:")$res),
# exp<-as.numeric(dlgInput(message="El exponente es:")$res))#tabla<- 1:5
#for(i in 1:12)
#{
# mult<- tabla * i
# print(paste(tabla, "x", i, "=", mult))
#}NOTA: Copiar y pegar en el R para comprobar la correcta ejecucion de los programas.