티스토리 뷰
[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)
'일상' 카테고리의 다른 글
교육에 정답은 없다 ~는 어떻게해야 할까 ~ (0) | 2018.02.20 |
---|---|
줄리안 사붸아 | 로뮈의 재래 (0) | 2018.02.16 |
Apple, Safari 및 iOS 등 Apple 제품 보안 업데이트를 공개 (0) | 2018.02.12 |
[막말 스케치] 다카 세가와 시마다 하지메 (0) | 2018.02.03 |
"길거리 보물 산이다"방치 자전거 철거를 가장 자전거를 훔쳐 재판매 ... NPO 법인 직원을 체포 (0) | 2018.02.02 |