[R 언어] 정리해 상관 관계를 계산하여 출력하고 싶을 때

[R 언어] 정리해 상관 관계를 계산하여 출력하고 싶을 때

csv 등의 데이터에 대해 각 열의 상관 관계를 for 문으로 정리해 요구 보았습니다.

r p를 각각 다른 파일에 저장합니다.

배열 데이터를 벡터로 변환하여 cor.test ()하는 것이 시간이 걸렸기 때문에 각서 ...

as.vector () 사용해도 벡터 변환되지 않았기 때문에 unlist ()를 사용했습니다.

c () 사용 해보고 여러가지 시도 해봤지만, unlist ()가 정답이었던 것 같습니다 ...

굉장 시간 워진 ...

다음 스크립트 ---------

rm (list = ls (all = TRUE))

addName <- "입출력 파일이있는 폴더 지정"

# 입력 파일 읽기

x <- read.csv (paste (addName "x.csv", sep = ""), header = FALSE)

y <- read.csv (paste (addName "y.csv", sep = ""), header = FALSE)

# r, p 값 저장

ans <- array (0, dim = c (ncol (x), ncol (y) 2))

for (i in 1 : ncol (accept))

{

  for (j in 1 : ncol (jinkaku))

  {

    cresult <- cor.test (unlist (x [i]) unlist (y [j]))

    ans [i, j 1] <- cresult $ estimate

    ans [i, j 2] <- cresult $ p.value

  }

}

write.csv (t (ans [,, 1]), paste (addName "r_value.csv", sep = ""), quote = FALSE, row.names = FALSE, col.names = FALSE)

write.csv (t (ans [,, 2]), paste (addName "p_value3.csv", sep = ""), quote = FALSE, row.names = FALSE, col.names = FALSE)