if 文 というタイトルのついたページ
例を挙げているのだから,揚げ足取ってもしようがないのだけど,パズルとして
以下のようなものは,
> set.seed(123)
> x <- sample(9,12,replace=TRUE)
> x <- matrix(x,nrow=2,dimnames=list(1:2,letters[1:6]))
> for(i in 1:ncol(x)) if(diff(x[,i]) > 0) x[,i] <- NA
> x
a b c d e f
1 NA NA 9 NA 5 9
2 NA NA 1 NA 5 5
以下のように書ける
> x[,x[2,] > x[1,]] <- NA
> x
a b c d e f
1 NA NA 9 NA 5 9
2 NA NA 1 NA 5 5
※コメント投稿者のブログIDはブログ作成者のみに通知されます