File: plot.gmci.R

package info (click to toggle)
r-cran-ctmcd 1.4.1-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 1,384 kB
  • sloc: cpp: 183; ansic: 19; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 621 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
plot.gmci <-
function (x, mattext, col = c("grey", "red"), main, las = 1, 
    xlab = "To", ylab = "From", xnames, ynames, cex = 1, fig = 2, 
    opacity_factor, ...) 
{
    if (missing(main)) {
        main = paste0(round(100 * (1 - x$alpha), 3), "% ", x$method)
    }
    n = nrow(x$par)
    if (missing(mattext)) {
        mattext = matrix(paste0("[", signif(x$lower, fig), "; ", 
            signif(x$upper, fig), "]"), n, n)
        mattext[which(is.na(x$lower) & is.na(x$upper))] = ""
    }
    plotM(x$par, mattext, col, main, las, xlab, ylab, xnames, 
        ynames, cex, fig, opacity_factor)
}