library(purrr)
n <- 1000
x <- imap_dbl(1:n, ~rnorm(1,0,.x))
y <- imap_dbl(1:n, ~rnorm(1,0,.x))
par(mfrow=c(1,1),pty='s')
plot(x,y)
A new article created using the Distill format.
library(purrr)
n <- 1000
x <- imap_dbl(1:n, ~rnorm(1,0,.x))
y <- imap_dbl(1:n, ~rnorm(1,0,.x))
par(mfrow=c(1,1),pty='s')
plot(x,y)