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.2
,
1.2
,
-
2.4
,
-
0.3
,
-
1.3
,
2.5
)
y2 <
-
c(
2.4
,
4.3
,
1.4
,
2.3
,
-
2
,
4.5
)
points(x2, y2, cex
=
2
, pch
=
6
, col
=
"blue"
)
x3 <
-
c(
4
,
0
)
y3 <
-
c(
7
,
-
2
)
points(x3, y3, cex
=
4
, pch
=
14
, col
=
"green"
)