[R-br] Matriz de correlação entre vetores de diferentes tamanhos

[ASANTOS]

Prezados Listeiros,

         Estou tentando implementar uma matriz de correlação para dados 
desbalanceados, isso é possível? Segue CRM abaixo da tentativa do que 
venho tentando fazer, alguém poderia iluminar a questão para mim?



#Variáveis artificiais
var1<-rnorm(200,5,0.25)## Tamanho do vetor: 200 valores
var2<-1:500 ## Tamanho do vetor: 500 valores
var3<-rnorm(100,5,0.25)## Tamanho do vetor: 100 valores
var4<-500:1## Tamanho do vetor: 500 valores

#Função by Walmes
pn <- function(X){crossprod(!is.na(X))}

cor.prob <- function(X){
      pair.SampSize <- pn(X)
      above1 <- row(pair.SampSize) < col(pair.SampSize)
      pair.df <- pair.SampSize[above1] - 2

      R <- cor(X, use="pair")
      above2 <- row(R) < col(R)
      r2 <- R[above2]^2
      Fstat <- (r2 * pair.df)/(1 - r2)
      R[above2] <- 1 - pf(Fstat, 1, pair.df)
      R
      }


correla <- round(cor.prob(var1,var2,var3,var4),4)

Obrigado,

-- 
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
e-mails:alexandresantosbr em yahoo.com.br
         alexandre.santos em cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
OrcID: orcid.org/0000-0001-8232-6722
Researchgate: https://www.researchgate.net/profile/Alexandre_Santos10
LinkedIn: https://br.linkedin.com/in/alexandre-dos-santos-87961635
======================================================================