Hi!

 

Why do I still get an error message on the try function?:

 

> options(show.error.messages = FALSE)

> 

> trab <-matrix(nrow=6,ncol=6)

> trab[,] <-0.0001

> rownames(trab) <- c("A","B","C","D","E","I")

> colnames(trab) <- c("A","B","C","D","E","I")

> indice <- c(3,9,15,21,27,33)

> for (i in 1:6) {

+   indica <-indice[i]

+   for (j in 0:5){

+ #      trabajo <-na.remove(Servicio[,indica+j])

+       trab[i,j+1] <-
try(pp.test(na.remove(Servicio[,indica+j]))$statistic,silent=TRUE)}}

Hubo 35 avisos (use warnings() para verlos)

> trab

  A                   B
C                   D                  

A "-91.0106940099417" "-93.0801725394798"
"-75.4341204496035" "-46.6207719226855"

B "-73.8492925425051" "-70.5586282981188"
"-101.614988942500" "-82.2714031040752"

C "-71.7670802564532" "-68.4322642682006"
"-77.1019926591636" "-70.0837841986902"

D "-46.0449172721826" "Error in pp.test(na.remove(Servicio[, indica + j])) :
\n  Singularities in regression\n" "-61.4482431169745" "-49.1104388262267"

E "-50.9585955273747" "-52.3786516745925"
"-51.1000107610379" "-51.1000107610379"

I "-83.0651877153614" "-78.9250095794153"
"-87.0109510418216" "-79.2108347154887"

  E                   I                  

A "-83.412702018264"  "-95.6741432416986"

B "-82.2770351988955" "-76.0720393731655"

C "-80.2654629001921" "-87.2121235599635"

D "-47.5290118476599" "-46.9431100805296"

E "-47.923976815854"  "-51.0806358774243"

I "-82.9725166785599" "-79.0824192946018"

> 

> 

 

 

Thanks,

 

Ignacio Perez Ph.D.

IQuartil Ltda.

Bogota, Colombia


	[[alternative HTML version deleted]]


