ベクトルから中央値を計算し，中央値の値だけ取り除く． x[c(-1)]で，x[1]の要素を取り除くという意味． med_x <- median(x) n0 <- (1:length(x))[x==med_x] #if(length(n0)>1) n0 <- n0[1] もし要素を1つだけ取り除く場合 x <- x[c(-n0)]