部分集合要素のソート

# ある集合に順序があり
# その部分集合を全体集合に定まった順序でソートしたい

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)