CAPÍTULO 6. GRAFICACIÓN CON R
152
anterior llamado a la función
hist()
, ya que la curva se agrega al histograma.
De hecho, si el primer argumento, o argumento
x
, de la función
plot()
, es
una función de esta naturaleza, su comportamiento será el mismo que el de la
función
curve()
.
Para ejemplificar la producción de este tipo de gráficas, se programará una
función productora de funciones de tipo sinusoidales, a partir de la conocida
función trigonométrica seno: la función
sin()
, en R. Esta función producirá
variaciones de la función seno, modificando solamente su amplitud y su fase
inicial, como se muestra a continuación.
# Función productora de funciones
# sinusoidales
fsin
<-
function
(
i
,
j
) {
# i: afecta la fase inicial
# j: afecta la amplitud
function
(
x
)
1
/
(
1
+
j)
*
sin
(x
+
i
*
pi
/
4
)
}
# por ejemplo,
ff1
<-
fsin
(
0
,
0
)
# es lo mismo que la función sin()
# veamos:
sin
(pi
/
6
)
# pi/6 = 30 grados
## [1] 0.5
ff1
(pi
/
6
)
## [1] 0.5
# El mismo resultado se pudo obtener directamente con
fsin
(
0
,
0
)(pi
/
6
)
## [1] 0.5
# También,
ff2
<-
fsin
(
2
,
0
)
# igual al coseno
cos
(pi
/
6
)
## [1] 0.866
ff2
(pi
/
6
)
## [1] 0.866
Ahora se procederá a graficar cuatro de estas funciones mediante la función
curve()
, con el código que se muestra a continuación.
