R/table_2_matrix_D4.R

In Luisiglm/KBoost: Inference of gene regulatory networks from gene expression data

#' Function to produce the gold standard of the DREAM4 Multifactorial Challenge in matrix format.
#' @param g_table the network in table format. The first column is the Tf, the second column the gene, and the third indicates if there is an interaction.
#' @param G the number of genes.
#' @export
#' @return a network in table format transformed into a matrix.
#' @examples
#' g_table = KBoost::G_D4_multi_1
#' g_mat = tab_2_matrix_D4(g_table,100)
tab_2_matrix_D4 <- function(g_table,G){
    # Pre-allocate memory for the matrix.
    g_mat  <- matrix(0,G,G)
    # Run a loop and set the network.
    for (i in seq_len(dim(g_table)[1])){
        g_mat[g_table[i,2],g_table[i,1]] <- g_table[i,3]
    }
    # Return g_mat.
    return(g_mat)
}