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]]