R/T2P.R

In livioivil/neuR: R package for neuroscience data processing and statistical analysis of neuro-data

# calcola i p-value a partire dalla mappa di T
T2P <- function(D,tail=0,
                Tvolume.name="spmT"){
  if(tail==0){ 
    spmP=2*pt(-abs(D@data[[Tvolume.name]]),D@info$df$df.res.unico)
  } else {
    spmP=pt(-tail*D@data[[Tvolume.name]],D@info$df$df.res.unico)
  }
  spmP
}