R/expand.list.R

#' expand.list
#' @param list1 TODO
#' @param list2 TODO
#' @export

expand.list = function(list1,list2)
{
	list1_N=length(list1)
	list2_N=length(list2)
	
	list1_ids=1:list1_N
	list2_ids=1:list2_N
	
	listcombo_ids=as.data.frame(t(expand.grid(list1_ids,list2_ids)))
	
	listcombo_N=length(listcombo_ids)
	
	listcombo=mapply(function(list1,list2,list_ids) { list(list1[[list_ids[1]]],list2[[list_ids[2]]]) }
				,list_ids=listcombo_ids,MoreArgs=list(list1=list1,list2=list2),SIMPLIFY=FALSE)
		
	return(listcombo)
	
}

Try the STARStools package in your browser

Any scripts or data that you put into this service are public.

STARStools documentation built on May 2, 2019, 6:48 p.m.