R/pcor.R

pcor <-
function(x,y=NA){
if(!is.na(y[1]))temp<-wincor(x,y,tr=0)
if(is.na(y[1]))temp<-winall(x,tr=0)
list(cor=temp$cor,p.value=temp$siglevel)
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.