ダメ出し：if 文

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