sraGraph <-
 function (search_terms, sra_con) {
 	## get acc data.frame	
 	acc <- getSRA(search_terms, out_types='sra', sra_con, acc_only=TRUE)
 	## create graphNEL object
 	g <- entityGraph(acc)
 	return(g)
 }