if (FALSE) {
example <- list(Mu = 3.41, Sigma = 0.504, Shift = 1, Lambda = 0.06,
Method = "manual", roundingBase = NA)
class(example) <- "RWDRI"
test <- getRISimilarity(example, c(4, 55.5))
getRISimilarity(c(4, 55.5), c(6, 58))
getRISimilarity(c(4, 55.5), c(6, 58), UMprop = 0.95)
}
Run the code above in your browser using DataLab