find.delta: Find delta from data.

In haberdashPI/wright.lab.util: A set of utilitiy functions used in our lab.

Description

TODO

Usage

find.delta(data, delta.column = "(SigLev|[[:alpha:]]+Diff|Delta)", filename = "UNKONWN", ...)

Arguments

data
delta.column
filename
...

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 (data, delta.column = "(SigLev|[[:alpha:]]+Diff|Delta)", 
    filename = "UNKONWN", ...) 
{
    col = grep(delta.column, colnames(data))
    if (length(col) == 0) {
        stop(paste("Could not find column pattern '", delta.column, 
            "' in file '", filename, "'.", sep = ""))
    }
    revs = reversals(data[, col[1]])
    n = length(revs)
    if (n < 7) {
        warning(paste("Insufficinet reversals to calculate threshold", 
            " for file \"", filename, "\".", sep = ""))
        NA
    }
    else if (n%%2 == 0) 
        mean(revs[4:n])
    else mean(revs[3:n])
  }

haberdashPI/wright.lab.util documentation built on Nov. 4, 2019, 1:25 p.m.