for (X in 1:5467) {
x <- c(data[X,2],data[X,3],data[X,4],data[X,5], data[X,6],data[X,7],data[X,8],data[X,9])
y <- c(data[X,10],data[X,11])
if (t.test(x,y)$p.value < 10e-07) print(data[X,])
}
예전에 사놓고 존재를 망각해버린 책을 뒤져 보다가 if 문은 저렇게 쓴다는 것을 알았다. ㅡㅡ;;
2010/05/26 - [공부해 봅시다/R-Project] - Array data 살펴 보기 - 삽질편
x <- c(data[X,2],data[X,3],data[X,4],data[X,5], data[X,6],data[X,7],data[X,8],data[X,9])
y <- c(data[X,10],data[X,11])
if (t.test(x,y)$p.value < 10e-07) print(data[X,])
}
2010/05/26 - [공부해 봅시다/R-Project] - Array data 살펴 보기 - 삽질편
'R-Project' 카테고리의 다른 글
| Maximally selected chi-square statistics (0) | 2010/06/11 |
|---|---|
| 있어 보이는 heatmap 만들기 (0) | 2010/05/31 |
| Array data 살펴 보기 - Simple (0) | 2010/05/26 |
| Array data 살펴 보기 - 삽질편 (0) | 2010/05/26 |
| Green-Black-Red heatmap (0) | 2010/05/24 |
| Heatmap 만들기 (0) | 2010/05/16 |
Prev
