Hypergraph Plot #1 and Tree Diagram #1

for 1.1.1 based on 16 articles & on 12 keywords

protein, cancer, dna, genes, rna, survival, immune,

tumor, patients, human, genome, expression

for 1.1.2 based on 17 articles & on 10 keywords

cancer, mutations, patients, disease, genetic, mutation,

clinical, tumor, genes, protein

for 1.1.3 based on 21 articles & on 8 keywords

protein, dna, cancer, cells, gene, sequence, chemical,

complexes

for 1.1.4 based on 2 articles & on 11 keywords

sequencing, medicine, genes, women, genome, medical,

genetics, disorder, bipolar, autism, variations

for 1.2.1 based on 18 articles & on 9 keywords

cancer, cells, signature, genome, variants, gene, genomic,

human, features

for 1.2.2 based on 18 articles & on 11 keywords

cancer, cells, drug, protein, human, bioinformatics, genes,

clinical, medicine, dna, genomics

for 1.2.3 based on 11 articles & on 11 keywords

dna, cancer, protein, gene, search, amino, health, medicine,

cells, genome, editing

for 1.2.4 based on 5 articles & on 10 keywords

genetic, sequencing, gene, clinical, genome, reproductive,

disease, diagnostics, medicine, ngs

for 1.3 based on 11 articles & on 14 keywords

cells, medicine, cancer, clinical, gene, medical, patients,

sequencing, health, therapy, pharma, drug, genetic, genome

for 1.4 based on 18 articles & on 10 keywords

oncology, healthcare, cancer, data, cells, sequencing, health,

life, gene, AI

for 2.1.1 based on 22 articles & on 14 keywords

cells, crispr, cas, gene, beta, dna, protein, editing, genome,

cancer, target, ripk, rna, expression

for 2.1.2 based on 8 articles & on 14 keywords

crispr, cas, cells, genome, dna, genes, rna, protein, genetic,

editing, disease, target, human, technology

for 2.1.3 based on 15 articles & on 14 keywords

crispr, cas, protein, cells, genome, editing, dna, rna, disease,

genes, cancer, human, target, technology

for 2.1.4 based on 6 articles & on 15 keywords

gene, crispr, human, editing, cas, genome, technology, cells,

genetic, embryos, genes, dna, cancer, nature, germline

for 2.1.5 based on 28 articles & on 11 keywords

crispr, cells, cas, editing, dna, genome, technology, rna,

genes, human, genetic

for 2.2 based on 27 articles & on 13 keywords

cas, crispr, dna, protein, expression, stem, rna, target,

genome, editing, genes, cancer, human

for 2.3 based on 9 articles & on 15 keywords

crispr, cas, editing, cells, disease, genome, dna, human,

genetic, target, therapy, ttr, protein, genes, amyloid

for 2.4 based on 20 articles & on 10 keywords

crispr, cas, editing, patents, gene, therapeutics, cells,

interference, genomics, biotech

for 3.1 based on 8 articles & on 9 keywords

ai, data, health, medicine, clinical, healthcare, patient,

radiology, innovation

for 3.2 based on 9 articles & on 11 keywords

cells, cancer, gene, schizophrenia, protein, brain, frontal,

imaging, patients, disease, dna

for 3.3 based on 23 articles & on 12 keywords

data, cancer, patients, ai, clinical, exon, gene, splicing, health,

cells, rna, imaging

for 3.4 based on 16 articles & on 8 keywords

ai ,data, healthcare, patients, medical, digital,

clinical, access

for 3.5 based on 9 articles & on 12 keywords

cancer, risk, brain, breast, mri, data, molecular, density,

women, image, aging, tissue

for 4.1 based on 9 articles & on 12 keywords

cells, human, atlas, genomics, cellular, cancer,

sequencing, disease, map, immune, biology, body

for 4.2 based on 6 articles & on 12 keywords

cells, ai, sequencing, molecular, expression, fluorescence,

protein, rna, streptavidin, population, surface, magnetic

for 4.3 based on 7 articles & on 10 keywords

cells, mutation, sequencing, data, cancer, heterogeneity,

tumor, mutations, gene, immune

for 4.4 based on 2 articles & on 10 keywords

cells, platform, sequencing, isolation, endotoxin, aging,

lifespan, dna, clonal, cellplate

for 5.1 based on 2 articles & on 15 keywords

populations, genetic, evolution, variation, gwas, snps,

association, heritability, ancestry, african, variants,

traits, humans, genomic, genes

for 7.1 based on 3 articles & on 13 keywords

disease, variants, genetic, risk, sequencing, genome, gene,

loci, diabetes, depression, heart, genetics, variant

for 7.2 based on 2 articles & on 12 keywords

cells, cancer, protein, dna, genes, tumor, immune, rna,

humans, biology, genome, drug

for 7.3 based on 4 articles & on 11 keywords

cells, variants, cancer, genome, disease, sequencing,

gene, dna, biomarkers, subpopulations, rna

for 7.4 based on 3 articles & on 12 keywords

thickspace, variants, multifractal, fractal, genomic, genomes,

dna, bioinformatics, variant, sequences, regions, genes

for 7.5 based on 5 articles & on 12 keywords

populations, mutation, variation, loci, diversity, chromosome,

genome, inclusion, locus, genetic, differences, snps

for 7.6 based on 2 articles & on 15 keywords

mrtx, kras, cells, krasgc, inhibition, tumor, signaling, combination,

erk, treatment, dose, mutant, protein, antitumor, pathway

for 8.2 based on 6 articles & on 18 keywords

signature, genome, encode, cancer, dna, types, cells, protein,

genes, mutations, regions, regulatory, transcription,

binding, elements, etiology, sites, functional

for 8.3 based on 5 articles & on 12 keywords

cancer, mrna, cells, rna, vaccines, protein, micrornas, immune,

dna, therapeutic, tfna, polyneuropathy

for 8.4 based on 4 articles & on 15 keywords

cells, cancer, protein, methylation, dna, rna, expression,

epigenetic, gene, pyruvate, glutamine, metabolism,

molecules, stem, human

for 8.5 based on 4 articles & on 11 keywords

epa, chemical, toxrefdb, toxicity, toxicology, kes, gene,

environmental, sperm, air, safety

for 1.1.1 based on 16 articles & on 14 keywords

protein,cancer,dna,gene,genes,rna,survival,immune,tumor,research,patients,human,

genome,expression

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 1.1.2

based on 17 articles & on 12 keywords

cancer,mutations,patients,gene,disease,genetic,mutation,data,clinical,tumor,genes,

protein

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 1.1.3

based on 21 articles & on 14 keywords

protein,dna,cancer,cells,information,gene,hdx,mass,sequence,research,chemical,

analysis,approach,complexes

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 1.1.4

based on 2 articles & on 18 keywords

sequencing,medicine,hospital,genes,women,genome,harvard,genetic,conference,

research,rare,medical,genetics,disorder,department,bipolar,autism,variations

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 1.2.1

based on 18 articles & on 16 keywords

data,cancer,cells,signature,analysis,genome,information,variants,gene,research,

genomic,learning,human,frequency,features,system

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 1.2.2

based on 18 articles & on 19 keywords

cancer,cells,genome,analysis,research,drug,protein,human,information,gene,

bioinformatics,genomic,genes,clinical,medicine,development,dna,genomics,world

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 1.2.3

based on 11 articles & on 12 keywords

dna,cancer,protein,source,gene,search,amino,health,medicine,cells,genome,editing

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 1.2.4

based on 5 articles & on 14 keywords

genetic,sequencing,research,gene,clinical,pacbio,genome,reproductive,disease,

diagnostics,medicine,sinai,ngs,results

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 1.3

based on 11 articles & on 16 keywords

cells,medicine,cancer,personalized,clinical,gene,medical,patients,research,sequencing,

health,therapy,pharma,drug,genetic,genome

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 1.4

based on 18 articles & on 15 keywords

oncology,healthcare,cancer,data,cells,verily,research,sequencing,conference,technology,horizon,health,life,gene,AI

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 2.1.1

based on 22 articles & on 17 keywords

cells,crispr,cas,gene,beta,figure,dna,protein,editing,genome,cancer,target,ripk,rna,

system,genes,expression

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 2.1.2

based on 8 articles & on 18 keywords

crispr,cas,cells,gene,genome,dna,rnai,genes,rna,research,protein,genetic,editing,

disease,system,target,human,technology

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 2.1.3

based on 15 articles & on 17 keywords

crispr,cas,protein,cells,gene,genome,editing,dna,rna,disease,genes,doudna,cancer,

human,target,mit,technology

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 2.1.4 based on 6 articles & on 19 keywords

gene,crispr,human,editing,cas,genome,technology,cells,research,doudna,genetic,

embryos,genes,science,engineering,dna,cancer,nature,germline

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 2.1.5

based on 28 articles & on 16 keywords

crispr,cells,gene,cas,editing,dna,genome,technology,rna,research,genes,human,doudna,science,genetic,engineering

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 2.2

based on 27 articles & on 16 keywords

cas,crispr,gene,dna,protein,expression,stem,rna,target,genome,editing,genes,cancer,

system,research,human

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 2.3

based on 9 articles & on 19 keywords

crispr,gene,cas,editing,cells,disease,genome,dna,human,genetic,target,therapy,ttr,

protein,research,genes,system,amyloid,technology

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 2.4

based on 20 articles & on 16 keywords

crispr,patent,cas,editing,institute,patents,gene,berkeley,therapeutics,technology,cells,

interference,intellia,genomics,biotech,doudna

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 3.1 based on 8 articles & on 13 keywords

ai,data,hms,health,mgh,medicine,care,clinical,healthcare,ballroom,patient,radiology,

innovation

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 3.2

based on 9 articles & on 14 keywords

cells,cancer,gene,schizophrenia,research,protein,brain,frontal,imaging,patients,disease,dna,researchers,system

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 3.3

based on 23 articles & on 16 keywords

data,cancer,patients,ai,clinical,exon,patient,gene,learning,analysis,splicing,health,cells,

rna,clinicians,imaging

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 3.4

based on 16 articles & on 12 keywords

ai,data,healthcare,patients,technology,world,partners,medical,digital,clinical,access,

research

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 3.5

based on 9 articles & on 16 keywords

cancer,risk,brain,breast,model,mri,data,molecular,mtv,density,women,mdm,image,

aging,analysis,tissue

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 4.1

based on 9 articles & on 17 keywords

cells,human,single,atlas,genomics,cellular,science,institute,nature,cancer,sequencing,

disease,map,immune,biology,body,researchers

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 4.2

based on 6 articles & on 16 keywords

cells,single,ai,sequencing,molecular,information,expression,fluorescence,protein,rna,

streptavidin,population,surface,output,magnetic,seq

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 4.3

based on 7 articles & on 12 keywords

cells,single,mutation,sequencing,data,cancer,heterogeneity,tumor,analysis,mutations,

gene,immune

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 4.4

based on 2 articles & on 17 keywords

cells,single,platform,analysis,sequencing,products,rare,isolation,endotoxin,aging,view,

tapestri,lifespan,dna,clonal,cellplate,mission

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 5.1

based on 1 article & on 17 keywords

populations,genetic,human,population,variation,heritability,snps,gwas,traits,genome,

african,genomic,ancestry,polygenic,feldman,diversity,data

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 7.1

based on 3 articles & on 18 keywords

disease,variants,genetic,risk,sequencing,genome,gene,studies,rare,loci,genes,diseases,diabetes,depression,heart,genetics,variant,personalized

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 7.2

based on 2 articles & on 18 keywords

cells,cancer,protein,dna,gene,fibonacci,genes,tumor,human,data,immune,research,rna,

structure,humans,biology,genome,drug

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 7.3

based on 4 articles & on 14 keywords

cells,variants,cancer,genome,disease,sequencing,gene,dna,biomarkers,subpopulations,

rna,diseases,researchers,data

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 7.4

based on 3 articles & on 18 keywords

thickspace,genome,variants,gene,information,tools,multifractal,fractal,genomic,

genomes,dna,bioinformatics,variant,sequences,human,regions,data,genes

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 7.5

based on 5 articles & on 15 keywords

populations,mutation,population,variation,loci,human,diversity,data,chromosome,

genome,inclusion,locus,genetic,differences,snps

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 7.6

based on 2 articles & on 18 keywords

mrtx,kras,cells,krasgc,inhibition,tumor,signaling,combination,erk,treatment,dose,

mutant,demonstrated,protein,antitumor,activity,single,pathway

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 8.2

based on 6 articles & on 23 keywords

signature,genome,encode,cancer,dna,human,types,gene,data,cells,mutational,protein,

genes,mutations,regions,regulatory,transcription,binding,elements,associated,aetiology,sites,functional

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 8.3

based on 5 articles & on 17 keywords

cancer,mrna,cells,rna,moderna,vaccines,protein,micrornas,vaccine,immune,treatment,

dna,therapeutic,personalized,merck,tfna,polyneuropathy

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 8.4

based on 4 articles & on 16 keywords

cells,cancer,protein,methylation,dna,rna,expression,epigenetic,gene,pyruvate,

glutamine,metabolism,epigenetics,molecules,stem,human

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 8.5

based on 4 articles & on 18 keywords

data,epa,chemical,information,toxrefdb,toxicity,toxicology,chemicals,kes,gene,

environmental,national,sperm,air,si,safety,mies,mesh

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

edgeList = Append[edgeList,Prepend[words1, “”]] ;

For[i = 1, i <= Length[words1], i++,  edgeList = Append[edgeList, Append[broadTerms[[i]], words1[[i]]]]];

ResourceFunction[“HypergraphPlot”][edgeList, VertexSize -> 0.01, VertexLabels -> Automatic, PlotTheme -> “Detailed”, SubsetEdge -> False, SubsetBoundaryScale -> 7, VertexStyle ->

Red,”BaseLayout” -> “RadialEmbedding”,”SubsetEdgeStyle” -> ColorData[100, “ColorList”]]

for 1.1.1 based on 16 articles & on 14 keywords

protein,cancer,dna,gene,genes,rna,survival,immune,tumor,research,patients,human,

genome,expression

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 1.1.1” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 1.1.2

based on 17 articles & on 12 keywords

cancer,mutations,patients,gene,disease,genetic,mutation,data,clinical,tumor,genes,

protein

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 1.1.2” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 1.1.3

based on 21 articles & on 14 keywords

protein,dna,cancer,cells,information,gene,hdx,mass,sequence,research,chemical,

analysis,approach,complexes,

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 1.1.3” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 1.1.4

based on 2 articles & on 18 keywords

sequencing,medicine,hospital,genes,women,genome,harvard,genetic,conference,

research,rare,medical,genetics,disorder,department,bipolar,autism,variations

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 1.1.4” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 1.2.1

based on 18 articles & on 16 keywords

data,cancer,cells,signature,analysis,genome,information,variants,gene,research,

genomic,learning,human,frequency,features,system

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 1.2.1” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 1.2.2

based on 18 articles & on 19 keywords

cancer,cells,genome,analysis,research,drug,protein,human,information,gene,

bioinformatics,genomic,genes,clinical,medicine,development,dna,genomics,world

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 1.2.2” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 1.2.3

based on 11 articles & on 12 keywords

dna,cancer,protein,source,gene,search,amino,health,medicine,cells,genome,editing

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 1.2.3” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 1.2.4

based on 5 articles & on 14 keywords

genetic,sequencing,research,gene,clinical,pacbio,genome,reproductive,disease,

diagnostics,medicine,sinai,ngs,results

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 1.2.4” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 1.3

based on 11 articles & on 16 keywords

cells,medicine,cancer,personalized,clinical,gene,medical,patients,research,sequencing,

health,therapy,pharma,drug,genetic,genome

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 1.3” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 1.4

based on 18 articles & on 15 keywords

oncology,healthcare,cancer,data,cells,verily,research,sequencing,conference,technology,horizon,health,life,gene,AI

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 1.4” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 2.1.1

based on 22 articles & on 17 keywords

cells,crispr,cas,gene,beta,figure,dna,protein,editing,genome,cancer,target,ripk,rna,

system,genes,expression

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 2.1.1” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 2.1.2

based on 8 articles & on 18 keywords

crispr,cas,cells,gene,genome,dna,rnai,genes,rna,research,protein,genetic,editing,

disease,system,target,human,technology

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 2.1.2” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 2.1.3

based on 15 articles & on 17 keywords

crispr,cas,protein,cells,gene,genome,editing,dna,rna,disease,genes,doudna,cancer,

human,target,mit,technology

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 2.1.3” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 2.1.4 based on 6 articles & on 19 keywords

gene,crispr,human,editing,cas,genome,technology,cells,research,doudna,genetic,

embryos,genes,science,engineering,dna,cancer,nature,germline

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 2.1.4” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 2.1.5

based on 28 articles & on 16 keywords

crispr,cells,gene,cas,editing,dna,genome,technology,rna,research,genes,human,doudna,science,genetic,engineering

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 2.1.5” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 2.2

based on 27 articles & on 16 keywords

cas,crispr,gene,dna,protein,expression,stem,rna,target,genome,editing,genes,cancer,

system,research,human

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 2.2” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 2.3

based on 9 articles & on 19 keywords

crispr,gene,cas,editing,cells,disease,genome,dna,human,genetic,target,therapy,ttr,

protein,research,genes,system,amyloid,technology

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 2.3” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 2.4

based on 20 articles & on 16 keywords

crispr,patent,cas,editing,institute,patents,gene,berkeley,therapeutics,technology,cells,

interference,intellia,genomics,biotech,doudna

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 2.4” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 3.1 based on 8 articles & on 13 keywords

ai,data,hms,health,mgh,medicine,care,clinical,healthcare,ballroom,patient,radiology,

innovation

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 3.1” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 3.2

based on 9 articles & on 14 keywords

cells,cancer,gene,schizophrenia,research,protein,brain,frontal,imaging,patients,

disease,dna,researchers,system

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 3.2” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 3.3

based on 23 articles & on 16 keywords

data,cancer,patients,ai,clinical,exon,patient,gene,learning,analysis,splicing,health,cells,

rna,clinicians,imaging

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 3.3” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 3.4

based on 16 articles & on 12 keywords

ai,data,healthcare,patients,technology,world,partners,medical,digital,clinical,access,

research

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 3.4” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 3.5

based on 9 articles & on 16 keywords

cancer,risk,brain,breast,model,mri,data,molecular,mtv,density,women,mdm,image,

aging,analysis,tissue

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 3.5” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 4.1

based on 9 articles & on 17 keywords

cells,human,single,atlas,genomics,cellular,science,institute,nature,cancer,sequencing,

disease,map,immune,biology,body,researchers

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 4.1” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 4.2

based on 6 articles & on 16 keywords

cells,single,ai,sequencing,molecular,information,expression,fluorescence,protein,rna,

streptavidin,population,surface,output,magnetic,seq

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 4.2” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 4.3

based on 7 articles & on 12 keywords

cells,single,mutation,sequencing,data,cancer,heterogeneity,tumor,analysis,mutations,

gene,immune

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 4.3” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 4.4

based on 2 articles & on 17 keywords

cells,single,platform,analysis,sequencing,products,rare,isolation,endotoxin,aging,view,

tapestri,lifespan,dna,clonal,cellplate,mission

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 4.4” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 5.1

based on 1 article & on 17 keywords

populations,genetic,human,population,variation,heritability,snps,gwas,traits,genome,

african,genomic,ancestry,polygenic,feldman,diversity,data

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 5.1” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 7.1

based on 3 articles & on 18 keywords

disease,variants,genetic,risk,sequencing,genome,gene,studies,rare,loci,genes,diseases,diabetes,depression,heart,genetics,variant,personalized

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 7.1” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 7.2

based on 2 articles & on 18 keywords

cells,cancer,protein,dna,gene,fibonacci,genes,tumor,human,data,immune,research,rna,

structure,humans,biology,genome,drug

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 7.2” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 7.3

based on 4 articles & on 14 keywords

cells,variants,cancer,genome,disease,sequencing,gene,dna,biomarkers,subpopulations,

rna,diseases,researchers,data

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 7.3” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 7.4

based on 3 articles & on 18 keywords

thickspace,genome,variants,gene,information,tools,multifractal,fractal,genomic,

genomes,dna,bioinformatics,variant,sequences,human,regions,data,genes

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 7.4” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 7.5

based on 5 articles & on 15 keywords

populations,mutation,population,variation,loci,human,diversity,data,chromosome,

genome,inclusion,locus,genetic,differences,snps

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 7.5” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 7.6

based on 2 articles & on 18 keywords

mrtx,kras,cells,krasgc,inhibition,tumor,signaling,combination,erk,treatment,dose,

mutant,demonstrated,protein,antitumor,activity,single,pathway

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 7.6” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 8.2

based on 6 articles & on 23 keywords

signature,genome,encode,cancer,dna,human,types,gene,data,cells,mutational,protein,

genes,mutations,regions,regulatory,transcription,binding,elements,associated,aetiology,sites,functional

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 8.2” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 8.3

based on 5 articles & on 17 keywords

cancer,mrna,cells,rna,moderna,vaccines,protein,micrornas,vaccine,immune,treatment,

dna,therapeutic,personalized,merck,tfna,polyneuropathy

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 8.3” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 8.4

based on 4 articles & on 16 keywords

cells,cancer,protein,methylation,dna,rna,expression,epigenetic,gene,pyruvate,

glutamine,metabolism,epigenetics,molecules,stem,human

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 8.4” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]

for 8.5

based on 4 articles & on 18 keywords

data,epa,chemical,information,toxrefdb,toxicity,toxicology,chemicals,kes,gene,

environmental,national,sperm,air,si,safety,mies,mesh

};

topN = Length[wordSheet];

words = {};

For[i = 1, i <= topN, i++,

words = Append[words, ToString[wordSheet[[i]]]]];

Print[words];

maxN = 3;

broadTerms = {};

words1 = {};

words2 = {};

For[i = 1, i <= topN, i++,If[Length[Position[WordData[], Extract[words, i]]] > 0,

broadTerms = Append[broadTerms, Flatten[Values[WordData[Extract[words, i], “BroaderTerms”]]]];

words1 = Append[words1, Extract[words, i]], words2 = Append[words2, Extract[words, i]]]];

For[i = 1, i <= Length[broadTerms], i++, If[Length[broadTerms[[i]]] > maxN, broadTerms[[i]] = broadTerms[[i]][[1 ;; maxN]]]];

edgeList = {};

For[i = 1 , i <= Length[broadTerms], i++,  edgeList = Append[edgeList, broadTerms[[i]]]];

For[i = 1 , i <= Length[broadTerms], i++, For[j = 1, j <= Length[edgeList[[i]]], j++,  edgeList[[i]][[j]] = words1[[i]] -> edgeList[[i]][[j]]]];

For[i = 1 , i <= Length[words1], i++, edgeList = Append[edgeList, {“Chapter 8.5” -> words1[[i]]}]];

TreePlot[Flatten[edgeList], VertexSize -> 0.1, VertexLabels -> Automatic]