Hola amigo estoy haciendo una gráfica de una función y quiero trasladar el eje X y que se grafique en el punto 0, como puedo hacer ello:
xvalor<-seq(-3,3,0.1)
n<- length(xvalor)
yvalor<- rep(0,n)
for(i in 1:n){
x<- xvalor[i]
if((x< -2) & (x>= -3)){
y=0
} else{
if((x< -1) & (x>= -2)){
y=1+(x/2)
}
else{
if((x< 1) & (x>= -1)){
y=1/2
}
else{
if((x<2 ) & (x>= 1)){
y=x/2
}
else{
y=1
}
}
}
}
yvalor[i]=y
}
plot(xvalor,yvalor,type="l",lwd=4,main="Función de distribución")
abline(h=1, lty=2,lwd=2,col="red")
Traslación del eje X
de JUAN MIGUEL ANDURI -
Hacer un comentario en este tema
(3 réplicas)