The data is generated with the code:
xs <- seq(-3, 3, 0.01)
dfDistributionData <- purrr::map_df( xs, function(x) { data.frame( X = x, Y = exp(-x^2) + rnorm( n = 1, mean = 0, sd = 0.15 * sqrt( abs( 1.5 - x) / 1.5 ) ) ) })
.
1 |
A data frame with 601 rows and 2 columns.
x-coordinate
y-coordinate
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.