R/create_pair.R

In Gabegit/gmtools: My small tools for efficiency

#' create pair-wises for aph yaml
#' @author lgm
#' @param pair_vec: a vector
#' @return pairs
#' @export
#' @examples
#' job.vec <- c("研究课题","发展前途","待遇","同事情况","地理位置","单位名气")
#' job.vecen <- c("research","development","income","workmate","location","unit")
#' create_pair(job.vecen)
#' create_pair(job.vec)
#'

create_pair <- function(pair.vec) {
	p = combn(pair.vec,2,simplify = TRUE)

	pf <- function(p.col){
		paste0("[",noquote(paste(noquote(p.col),collapse =",")),", ]")
	}
	cat(apply(p,2, pf),sep="\n")
	return(apply(p,2, pf))

}