R/mat_to_fromto.R

In BNDataGenerator: Data Generator based on Bayesian Network Model

mat_to_fromto = function(arcs_mat)
{
	# Check DAG
	check_dag_arcs = as.matrix(arcs_mat)
	if (is_DAG(check_dag_arcs) == FALSE) {
		stop("arcs_mat must a DAG")
	}
	
	nodename = dimnames(arcs_mat)[[2]]
	num_of_nodes = length(nodename)
	result_mat = NULL
	

	for (i in 1:num_of_nodes)
	{
		where = which(arcs_mat[i,] == 1)
		len = length(where)
		if (len > 0)
		{
			for (j in 1:len)
			{
				temp = c(nodename[i], nodename[where[j]])
				result_mat = rbind(result_mat, temp)
			}
		}
	}
	
	dimnames(result_mat)[[1]] = NULL
	dimnames(result_mat)[[2]] = c("from", "to")
	
	return(result_mat);
}