Makes a radar plot showing the individual genetic worth for the Smith-Hazel index
# S3 method for sh plot( x, SI = 15, radar = TRUE, arrange.label = FALSE, size.point = 2.5, size.line = 0.7, size.text = 10, col.sel = "red", col.nonsel = "black", ... )
x | An object of class |
---|---|
SI | An integer [0-100]. The selection intensity in percentage of the total number of genotypes. |
radar | Logical argument. If true (default) a radar plot is generated
after using |
arrange.label | Logical argument. If |
size.point | The size of the point in graphic. Defaults to 2.5. |
size.line | The size of the line in graphic. Defaults to 0.7. |
size.text | The size for the text in the plot. Defaults to 10. |
col.sel | The colour for selected genotypes. Defaults to |
col.nonsel | The colour for nonselected genotypes. Defaults to |
... | Other arguments to be passed from ggplot2::theme(). |
An object of class gg, ggplot
.
Tiago Olivoto tiagoolivoto@gmail.com
# \donttest{ library(metan) vcov <- covcor_design(data_g, GEN, REP, everything()) means <- as.matrix(vcov$means) pcov <- vcov$phen_cov gcov <- vcov$geno_cov index <- Smith_Hazel(means, pcov = pcov, gcov = gcov, weights = rep(1, 15)) plot(index)# }