# \donttest{
# Create example data
data <- data.frame(
uniprot_id = c(
"P0A7R1",
"P02359",
"P60624",
"P0A7M2",
"P0A7X3",
"P0AGD3"
),
xref_string = c(
"511145.b4203;",
"511145.b3341;",
"511145.b3309;",
"511145.b3637;",
"511145.b3230;",
"511145.b1656;"
),
is_known = c(
TRUE,
TRUE,
TRUE,
TRUE,
TRUE,
FALSE
)
)
# Perform network analysis
network <- analyse_functional_network(
data,
protein_id = uniprot_id,
string_id = xref_string,
organism_id = 511145,
binds_treatment = is_known,
plot = TRUE
)
network
# }
Run the code above in your browser using DataLab