# Scatter plot of Perfect Accuracy Model
# Generate [Link](123)x <- rnorm(100, 0, 1) # generate random data points for
x-axisy <- rep(1, 100) # generate a vector of 100 values of 1 for y-axis (perfect
accuracy)par(mfrow=c(1,2))# Plot scatter plotplot(x, y, main="Scatter Plot of
Perfect Accuracy Model", xlab="Distance between Data Points", ylab="Accuracy",
col = "blue")# Scatter plot of Model with Varying Accuracy# Generate data
[Link](123)x <- rnorm(100, 0, 1) # generate random data points for x-axisy <-
rnorm(100, 0.5, 0.25) # generate random accuracy values for y-axis# Plot scatter
plotplot(x, y, main="Scatter Plot of Model with Varying Accuracy",
xlab="Distance between Data Points", ylab="Accuracy", col = "blue")