11-Programa Interactivo

Interactivo

David J. Santana

3 de julio de 2016

Este es un ejemplo de cómo hacer una sencilla función interactiva donde R le pida al usuario escribir los parámetros que use nuestra función.

En este caso vamos a programar una función que calcule las raí­ces reales de una ecuación de segundo grado.

ecgrado2=function(){
  a=as.numeric(readline("Escribe el coeficiente de X cuadrada a= "))
  b=as.numeric(readline("Escribe el coeficiente de X b= "))
  c=as.numeric(readline("Escribe el el término constante c= "))
  resultado1=(-b+sqrt(b^2-4*a*c))/(2*a)
  resultado2=(-b-sqrt(b^2-4*a*c))/(2*a)
  noquote(rbind("A continuación las soluciones de la ecuación cuadrática ",
        paste(a,"x^2+",b,"x+",c,"=0"),
        paste("La Sol. 1 es ",resultado1),
        paste("La Sol. 2 es ",resultado2)))
}

La siguiente es una salida ejemplo

> #Ejemplo
> ecgrado2()
Escribe el coeficiente de X cuadrada a= 1
Escribe el coeficiente de X b= 9
Escribe el el término constante c= 1
     [,1]                                                    
[1,] A continuación las soluciones de la ecuación cuadrática 
[2,] 1 x^2+ 9 x+ 1 =0                                        
[3,] La Sol. 1 es  -0.112517806303939                        
[4,] La Sol. 2 es  -8.88748219369606                         
>