# NOT RUN {
# Extract bipartite edge weight matrix B for cell lines from the
# squamous cell carcinoma, esophagus group
data(ctrp2)
groups = ctrp2$groups
X = ctrp2$X
Y = ctrp2$Y
x = X[groups[["squamous_cell_carcinoma_esophagus"]], ]
y = Y[groups[["squamous_cell_carcinoma_esophagus"]], ]
# Extract bipartite edge weight matrix B with subsampling
# }
# NOT RUN {
B = constructBipartiteGraph(x, y, n_subsample = 100,
subsampling_ratio = 0.90,
parallel = TRUE, maxCores = 2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab