1列目と5列目のデータのみを取り出す． ついでに，中央値以上の行のみにしてから取り出している． max <- length(z1) med_z <- z1 n0 <- (1:max)[z1>med_z] up <- x[c(n0),c(1,5)]