binnedMSE: Calculate the MSE for binned data
In aserlich/gameify: Functions to deal with games

Description Usage Arguments Details Value Examples

View source: R/extractMoments.r

Calculate the MSE for binned data

1 2	binnedMSE(counts, mu, lowerBounds = seq(0, 95, 5), upperBounds = seq(5, 100, 5))

`counts`	A matrix of data frame of observed counts of binned data
`mu`	The true observed mean
`lowerBounds`	A vector of the lower cut points of the binnned data
`upperBounds`	A vector of the upper cutpoints of the original binnned data

Assumes that the midpoint of the bin is the mean of that prediction.

A vector with one observation for each row in counts

upper <- seq(10, 100, 10)
lower <- seq(0, 90, 10)
counts <- c(0, 0, 4, 4, 4, 2, 0, 0, 0, 0)
counts2 <- c(1, 2, 1, 4, 4, 2, 0, 0, 0, 0)
counts_df <- as.data.frame(rbind(counts, counts2))
binnedMSE(counts_df, mu = 33, lowerBounds = lower, upperBounds = upper)