x <-
round
(
runif
(1000, 1, 10))
y <- x +
rnorm
(1000, mean = 0, sd = 5)
png
(file=
"withoutJitterFactor.png"
)
plot
(x, y, xlim =
c
(0, 11),
main =
"Without Jitter Function"
)
dev.off
()
x_j <-
jitter
(x, factor = 2)
png
(file=
"withJitterFactor.png"
)
plot
(x_j, y, xlim =
c
(0, 11),
main =
"With Jitter Function and Large Factor"
)
dev.off
()