# NOT RUN {
# Generate fake data to have perfect necessity
set.seed(123)
x <- runif(60, 0, 1)
y <- runif(60, 0, 1)
for(i in 1:length(y)) {
while(x[i] < y[i]) {
y[i] <- runif(1, 0, 1)
x[i] <- runif(1, 0, 1)
}
}
# Default with blue dots and pch = 1
xy.plot.lat(x, y, pch = 1, col = "blue")
# Parameters of fit in the corners with blue dots and pch = 1
xy.plot.lat(x, y, pch = 1, col = "blue", pos.fit = "corner")
# }
Run the code above in your browser using DataLab