# NOT RUN {
LambdaF <- matrix(c(1.00, 0.74, 1.14, 0.92), ncol = 1)
LambdaR <- matrix(c(1.00, 0.76, 1.31, 0.98), ncol = 1)
ThreshF <- c(0.00, 1.28, -0.82, 0.44)
ThreshR <- c(0.00, 0.65, -0.77, 0.47)
MeanF <- 0.21
VarF <- 1.76
SD <- c(2.12, 1.85, 1.12, 3.61)
dmacs_summary_single(LambdaR, ThreshR, LambdaF, ThreshF, MeanF, VarF, SD)
# }
Run the code above in your browser using DataLab