santo_cov <- structure(c(0.00998001, 0.00237829932, 0.00783482733, 0.008280711, 0.0015909075, 0.00393182424, 0.0002669328, 0.00375220404, 0.00237829932, 0.00151321, 0.00233237398, 0.002366676, 0.00095305, 0.00224712852, 0.00052490104, 0.00206618906, 0.00783482733, 0.00233237398, 0.00737881, 0.006749163, 0.001569393, 0.00408061078, 0.00029838224, 0.00352408186, 0.008280711, 0.002366676, 0.006749163, 0.0081, 0.00163485, 0.00409446, 0.000823644, 0.002887092, 0.0015909075, 0.00095305, 0.001569393, 0.00163485, 0.001225, 0.002984618, 0.00123914, 0.001591044, 0.00393182424, 0.00224712852, 0.00408061078, 0.00409446, 0.002984618, 0.01119364, 0.00329342704, 0.00360712404, 0.0002669328, 0.00052490104, 0.00029838224, 0.000823644, 0.00123914, 0.00329342704, 0.00446224, 0.00128141104, 0.00375220404, 0.00206618906, 0.00352408186, 0.002887092, 0.001591044, 0.00360712404, 0.00128141104, 0.00649636), .Dim = c(8L, 8L), .Dimnames = list( c("Log.Mass", "Conspicuous.coloration", "Log.RMR", "Log.Scope", "Alkaloid.quantity", "Alkaloid.diversity", "Ant.Mite.Specialization", "log.Prey"), c("Log.Mass", "Conspicuous.coloration", "Log.RMR", "Log.Scope", "Alkaloid.quantity", "Alkaloid.diversity", "Ant.Mite.Specialization", "log.Prey")))
Alternativamente, em https://gist.github.com/gustavobio/c71f411e161d3852def54efa326bd5c2.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.