# Algandmete genereerimine: x=0:17 y=72+10*x+1*x*x+rnorm(18, 0, 20+x) # Joonis: plot(x+1989,y, xlab="Aasta", ylab="Kasum (tuhandetes kroonides)", main="Meie firma minevik ja tulevik", xlim=c(1994, 2015), ylim=c(0,1100) ) points(2015, 1008, pch=19) text(2015, 900, "Aastal 2015 \n oleme rikkad", adj=1) arrows(2014, 970, 2014.8, 1000, length=0.09) |