\begin{Schunk}
\begin{Sinput}
 x <- seq (-7, 7, by=0.05)
 logis10 <- dlogis(x, location = 0, scale = 1, log = FALSE)
 plot(x, logis10, type="l", ylim=c(0,0.35), xlab=expression(epsilon), ylab="Probability Density", main="") 
 ##legend("topleft", c(expression(paste("Logistic(", location==0, " , ",
 ##                                     scale == 1, ")"))), lty=1:2, col=1:2, cex = 0.8) 
 title("Single peaked, symmetric probability density")
\end{Sinput}
\end{Schunk}
