2018-05-15から1日間の記事一覧

部分集合要素のソート

# ある集合に順序があり # その部分集合を全体集合に定まった順序でソートしたい 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(…