# predicted interactions
pred_ppi <- read.table(
system.file("extdata/ppi_input_ClusterONE.txt", package = "MACP"),
header = FALSE)
# get all the proteins in the predicted network
custom_bg <- union(pred_ppi$V1, pred_ppi$V2)
# reference complexes
data("refcpx")
# reduce redundancy in reference complexes
filt_cpx <- EliminateCpxRedundance(refcpx,
custom_bg,
sim_method = "euclidean",
linkage="average",
h = 0.2)
Run the code above in your browser using DataLab