# NOT RUN {
# Compute matrix dissimilarity in edge weight matrix between squamous cell
# carcinoma, esophagus and squamous cell carcinoma, upper aerodigestive
data(ctrp2)
groups = ctrp2$groups
X = ctrp2$X
Y = ctrp2$Y
x1 = X[groups[["squamous_cell_carcinoma_esophagus"]], ]
y1 = Y[groups[["squamous_cell_carcinoma_esophagus"]], ]
# }
# NOT RUN {
B1 = constructBipartiteGraph(x1, y1)
# }
# NOT RUN {
x2 = X[groups[["squamous_cell_carcinoma_upper_aerodigestive"]], ]
y2 = Y[groups[["squamous_cell_carcinoma_upper_aerodigestive"]], ]
# }
# NOT RUN {
B2 = constructBipartiteGraph(x2, y2)
matrixDissimilarity(B1, B2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab