Commit 9086b12f authored by Gosset Simon's avatar Gosset Simon
Browse files

Update R/build_network_window.R, R/methods.R

parent 9819663a
......@@ -214,7 +214,7 @@ build_network = function(organism, db, ipl, th, method, degree, remove.sdi, remo
cat ( '\n>Autocorrection' )
cat ( '\n' )
data2 <<- data
pb1 <<- txtProgressBar(min = 0, max = dim(data)[1], style = 3)
pb1 <<- txtProgressBar(min = 0, max = dim(data2)[1], style = 3)
nbpassage<<-0
nf<<-c()
apply(data2,1,cherche_uniprotID,data=data2,thesaurus=thesaurus)
......
......@@ -653,7 +653,7 @@ remove_unique_links <- function(inputtable) {
if(length(ind2) == 1) {
tab_PPI = tab_PPI[-ind,]
tab_PPI = tab_PPI[-unique(ind),]
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment