Add example

[wfulp]

Need an overall example showing consensusNetR process.

Mike suggested this example:

"READ" "COAD"

GSE39582

a <- GEOquery::getGEO("GSE39582")

[wfulp]

check this out for the consensus construction

https://biogit.pri.bms.com/Systems-Immunology/CRC_Consensus_Network_Construction/blob/8890913625f93823d7d59f5cbbfaa3550ce7344c/network_construction.R#L95-L103