# ある集合に順序があり # その部分集合を全体集合に定まった順序でソートしたい my.sort.subset <- function(subset,setorder){ loc <- rep(0,length(subset)) for(i in 1:length(loc)){ loc[i] <- which(setorder==subset[i]) } ord <- order(loc) return(subset[ord]) } a <- c(7,2,5) b <- sample(1:8) a b my.sort.subset(a,b)
遺伝学・遺伝統計学関連の姉妹ブログ『ryamadaの遺伝学・遺伝統計学メモ』
京都大学大学院医学研究科ゲノム医学センター統計遺伝学分野のWiki
講義・スライド
医学生物学と数学とプログラミングの三重学習を狙う学習ツール
駆け足で読む○○シリーズ
ぱらぱらめくるシリーズ
カシオの計算機
オンライン整数列大辞典