Scrivi in R N <- … con al posto di ... un numero intero, incolla le 4 righe seguenti. Ottieni un grafico simile a quello rappresentato qui a destra.  Scrivi qual è la funzione di cui viene rappresentato il grafico. Controlla la risposta incollando e completando la riga finale.

N <- ...               # completa
plot(c(-4,7),c(-4,7),type="n",ylab="",xlab="")
abline(h=0,v=0,lty=2); abline(h=-4:7,v=-4:7,lty=3,col="blue")
set.seed(N); a <- floor(c(runif(1)*7-3,runif(1)*6-3,runif(1)*3+1))
abline(a[1],a[2]/a[3],lwd=3)
f <- function(x) ... ; curve(f,col="green",add=TRUE)  # completa