# NOT RUN {
data(dataFSMUMI)
X <- dataFSMUMI[, 1] ; Y <- dataFSMUMI[, 2]
compute.fsd(Y,X)
compute.fsd(Y,X, verbose = TRUE)
# By definition, if true and imputed values are equal and constant,
# FSD = 0.
X <- rep(runif(1), 10)
Y <- X
compute.fsd(Y,X)
# However, if true and imputed values are constant but different,
# FSD is not calculable. An error is displayed.
# }
# NOT RUN {
X <- rep(runif(1), 10);Y <- rep(runif(1), 10)
compute.fsd(Y,X)
# }
Run the code above in your browser using DataLab