Modèles Semi-logarithmique

1.                               a=1

2.                               b=1

3.                               x<-seq(1,10,1)

4.                               y<-a+b*log(x)

5.                               df=data.frame(Effort=x, Ventes=y)

6.                               a=0

7.                               y<-a+b*log(x)

8.                               df$Ventes2=y

9.                               b=2

10.                             y<-a+b*log(x)

11.                             df$Ventes3=y

12.                             matplot(x, df[,2:4], pch = 1:3, type = "o", col = 1:3,xlab="Valeurs de x", ylab="Ventes et/ou Profits"

13.                             legend(min(x), max(df[,2:4]),names(df)[2:4], lwd=3, col=1:3, pch=1:3)