28
Le logiciel R
−5
−4
−3
−2
−1
0
1
2
0
5
10 15 20 25 30
x
f(x)
> uniroot(f,c(-5,2))
$root
[1] -0.7320503
$f.root
[1] -1.87445e-06
$iter
[1] 8
$init.it
[1] NA
$estim.prec
[1] 6.103516e-05
> plot(cars)
> abline(lm(dist∼speed,data=cars),col="blue")
> points(cars[30,],col="red",pch=20)
●
●
●
●
●
●
●
●
●
●
●
●
●
●
● ●
● ●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
●
● ●
●
●
5
1 0
1 5
2 0
2 5
0
20
40
60
80
100 120
speed
dist
●