This is my test post.
n <- 100
x <- rnorm(n)
y <- x + runif(n,-1,1)
par(mfrow=c(1,1),pty='s')
plot(x,y)
abline(a=0,b=1,col="red")
A new article created using the Distill format.
This is my test post.
n <- 100
x <- rnorm(n)
y <- x + runif(n,-1,1)
par(mfrow=c(1,1),pty='s')
plot(x,y)
abline(a=0,b=1,col="red")