# NOT RUN {
# load part of the beatAML data
beatAML_data <- NIMAA::beatAML[1:10000,]
# convert to incidence matrix
beatAML_incidence_matrix <- nominalAsBinet(beatAML_data)
# plot with the interactive bipartite network
plotBipartiteInteractive(inc_mat = beatAML_incidence_matrix)
# }
Run the code above in your browser using DataLab