see: Visualize r.diff plots

In alemiani/explora: Explore and Visualize Data

Usage

see(n, g = TRUE)

Arguments

n	The row number of the r.diff results
g	logical. If TRUE, it visualizes subplots divided by groups

Details

The function 'see' automatically seatches for the elemnt 'X' in the global environment.

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (n, g = TRUE)
{
    X[[2]][1]$Rnum <- as.numeric(as.character(X[[2]][1]$Rnum))
    rn <- match(n, X[[2]][1]$Rnum)
    dataset <- X[[2]][5]$dataset[rn]
    group <- X[[2]][4]$group[rn]
    arg1 <- (X[[2]][2]$i[rn])
    arg2 <- (X[[2]][3]$j[rn])
    N.arg.1 <- (which(names(get(dataset)) == arg1))
    N.arg.2 <- (which(names(get(dataset)) == arg2))
    N.Group <- (which(names(get(dataset)) == group))
    Name.arg.1 <- colnames(get(dataset)[N.arg.1])
    Name.arg.2 <- colnames(get(dataset)[N.arg.2])
    Title <- paste(Name.arg.1, "~", Name.arg.2)
    if (g == TRUE) {
        arguments <- list(get(dataset)[, N.arg.1], get(dataset)[,
            N.arg.2], get(dataset)[, N.Group])
    }
    else {
        arguments <- list(get(dataset)[, N.arg.1], get(dataset)[,
            N.arg.2])
    }
    do.call(what = plottest, args = arguments)
    title(Title, col.main = "red", line = 0)
  }

alemiani/explora documentation built on May 28, 2019, 4:54 p.m.