The problem with the missing/failing mirror plots was that the function used the global variable sim, which got overwritten. I have now changed the function to also take the sim parameter. Note that then you need to call the function with:
i.e. passing in addition sim_hmdb (or sim_mbank) to the function - and instead of calling sim <- ... in the code chunk below I suggest to specifically assign the similarity matrix to either sim_hmdb <- or sim_mbank <-.
The problem with the missing/failing mirror plots was that the function used the global variable
sim, which got overwritten. I have now changed the function to also take thesimparameter. Note that then you need to call the function with:i.e. passing in addition
sim_hmdb(orsim_mbank) to the function - and instead of callingsim <- ...in the code chunk below I suggest to specifically assign the similarity matrix to eithersim_hmdb <-orsim_mbank <-.