x <-
c
(1.3, 3.5, 1.4, -3.1, 5.7,
2.4, 3.3, 2.5, 2.3, 1.9, 1.8, 2.3)
y <-
c
(2.5, 5.8, 2.1, -3, 12, 5,
6.2, 4.8, 4.2, 3.5, 3.7, 5.2)
plot
(x, y, cex = 1, pch = 3, xlab =
"x"
,
ylab =
"y"
, col =
"black"
)
x2 <-
c
(4.3, 1.2, -2.5, -0.4)
y2 <-
c
(3.5, 4.6, 2.5, 3.2)
lines
(x2, y2, col =
"red"
,
lwd = 2, lty = 1)