作者memphis (让你喜欢这世界~)
站内Statistics
标题Re: [程式] R apply
时间Wed Jan 13 17:16:34 2010
※ 引述《laba1014 (我也要去美国!!!)》之铭言：
: ※ 引述《laba1014 (我也要去美国!!!)》之铭言：
: 想请问板上前辈 以下的双回圈要怎样用 apply 简化计算 ?
: aaa <- matrix(1:3, 3, 1) # aaa 是依个 3*1 的 vector a[i,1]= i , i =1, 2, 3
: q <- matrix(NA, 3, 3)
: For (j in 1:3) { For (i in 1:3) {
: if ( a[i,1] < a[j,1] ) { q[i,j] <- 0 } else { q[i,j] <- 1 }
: }}
: q 出来应该会是个上三角矩阵 1 1 1
: 0 1 1
: 0 0 1
: 先谢谢肯回答的版友 <(_ _)>
看起来是一个vector里要两两比较大小
如果我没有会错意的话...
方案一
a <- rnorm(100,0,1)
final <- c()
for(i in 1:length(a)){
temp <- rev(as.numeric(a[i]>a))
final <- rbind(final, temp)
}
方案二
a <- rnorm(100,0,1)
b <- combn(a,2)
c <- as.numeric(b[1,]>b[2,])
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.109.73.58
1F：推 laba1014:谢谢M大 :) 01/14 14:25