Displaying 1 result from an estimated 1 matches for "pdthom".
Did you mean:
fathom
2012 Aug 19
2
Prueba de Thom y series temporales homogéneas de prueba
...lse {cruce.largo<-FALSE}
excepcion<-if (
i==1 | (vector[i] == valor.cruce & !cruce.largo)
) {TRUE} else {FALSE}
if ( (cruce.corto | cruce.largo) & !excepcion ) {paso<-paso+1}
# Si la función cruza y no hay excepción
i<-i+1
}
return(paso)
}
pdThom<-function(vector,na.rm=F) {
# Prueba de Thom, de las rachas o de las alternancias. (1.966)
# Prueba de homogeneidad absoluta aconsejada para distribuciones no
# conocidas o no normales.
# Depende de la función contar.pasos
longitud<-length(vector)
mediana<-me...