Generate Bland-Altman Limits of Agreement Plot using the same distribution. Observe that the mean of difference is closer to 0, with no visible bias.

set.seed(1234)
library("blandr")
measurement1 <- rnorm(100)
measurement2 <- rnorm(100)
statistics.results <- blandr.statistics( measurement1 , measurement2 )
blandr.plot.ggplot( statistics.results )

## Warning: Use of `plot.data$x.axis` is discouraged. Use `x.axis` instead.

## Warning: Use of `plot.data$y.axis` is discouraged. Use `y.axis` instead.

Generate Bland-Altman Limits of Agreement Plot using distribution with different means and add bias. Observe that the mean of difference is closer to -5.

measurement1 <- rnorm(100)
measurement2 <- rnorm(100,4,1) + rt(100,4,1)
statistics.results <- blandr.statistics( measurement1 , measurement2 )
blandr.plot.ggplot( statistics.results )

## Warning: Use of `plot.data$x.axis` is discouraged. Use `x.axis` instead.

## Warning: Use of `plot.data$y.axis` is discouraged. Use `y.axis` instead.