Actividad # 3

Actividad # 3

En esta entrada incluiré un código en el lenguaje R.

El lenguaje R y un lenguaje y entorno de programación para análisis estadístico y gráfico.

Realice el Factorial de un numero en este lenguaje.

n <- 0
i <- 0
valor <- 1

#Usa despues de teclear el valor presionar shift+enter para terminar la introducción de valores
n <- scan()

#Se utiliza el cat ya que en el se puede aplicar el salto de linea y asi se concatena la impresion de variables y texto
cat("Valor del Factorial de ",n,":\n")

if(n == 0 || n == 1)
{
    #Imprime el valor del factorial si la n es igual a 0 o a 1
    print(valor)
}else
{
    if(n >= 2)
    {
        while(n >= 1)
        {
            #Se utiliza esta formula para encontrar el factorial
            #factorial(n)
            valor <- (valor * n);
            n <- (n - 1);
        }
        print(valor)
    }else
    {
        cat("Error numero negativo")
    }       
}

#Funcion utilizada para encontrar el factorial
#factorial<-function(i)
#{
    #valor <- valor * i;
    #return(valor)
#}

La forma en la que yo corrí el programa fue estando dentro de la terminal de R y seguí el siguiente comando.

source("/Direccion/del/Archivo/NombredelArchivo.r")

Imagen donde se muestra el funcionamiento del código.