Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Maintenance - Mise à jour mensuelle Lundi 6 Février entre 7h00 et 9h00
Open sidebar
GNet
APPINetwork
Commits
30f9ee59
Commit
30f9ee59
authored
Mar 14, 2022
by
Gosset Simon
Browse files
Update R/clustering_tfit_window.R
parent
aeb92e7b
Changes
1
Hide whitespace changes
Inline
Side-by-side
R/clustering_tfit_window.R
View file @
30f9ee59
...
...
@@ -39,7 +39,7 @@ clustering_tfit <- function(organism, network) {
i
=
0
while
(
length
(
clust
)
>
0
)
{
while
(
length
(
clust
)
>
0
)
{
clust
=
NULL
...
...
@@ -52,11 +52,15 @@ clustering_tfit <- function(organism, network) {
clust
=
result_tfit
[[
2
]][
clust
]
if
(
length
(
clust
)
>
0
)
{
row
=
cbind
(
i
,
paste
(
clust
,
collapse
=
";"
))
row
=
cbind
(
i
,
paste
(
clust
,
collapse
=
";"
)
)
print
(
row
)
clust_tab
=
rbind
(
clust_tab
,
col
)
clust_tab
=
rbind
(
clust_tab
,
row
)
}
}
...
...
@@ -66,6 +70,7 @@ clustering_tfit <- function(organism, network) {
write.table
(
x
=
clust_tab
,
file
=
File.clas
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment