get_R {prioGene}

Title get the final genetic disease risk scores

Description

Title get the final genetic disease risk scores

Usage

get_R(node_weight, net_disease_term, bet, R_0, threshold = 10^(-9))

Arguments

node_weight

a matrix, genes and their weights

net_disease_term

GO terms for each pair of nodes in the network

bet

a parameter to measure the importance of genes and interactions

R_0

the vector of initial disease risk scores for all genes

threshold

a threshold for terminating iterations

Value

a matrix

Examples

net_disease <- deal_net(net,dise_gene)
genes_mat <- get_gene_mat(net_disease)
node_weight <- get_node_weight(genes_mat)
net_disease_term <- get_net_disease_term(genes_mat,net_disease)
R_0<- get_R_0(dise_gene,node_weight,f=1)
result <- get_R(node_weight, net_disease_term, bet = 0.5, R_0 = R_0, threshold = 10^(-9))