require(viridis)
data(matrices)
data(exData)
### run function
sim <- msc.similarity(matrices, samples = exData$samples,
groups = exData$species)
### visualize results (absolute frequencies)
barplot(sim$absfreq$id93)
### adjust plot (relative frequencies)
sim$relfreq.plot + scale_fill_viridis(discrete = TRUE)
sim$relfreq$id97["2"]*100
sim$relfreq$id97["3"]*100
### reduce number of groups
groups <- exData$species
levels(groups)[levels(groups)!='hybrid'] <- "non-hybrid"
sim.red <- msc.similarity(matrices, samples = exData$samples, groups = groups)
sim.red$relfreq.plot + scale_fill_viridis(discrete = TRUE)
Run the code above in your browser using DataLab