knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
psInputFile <- system.file("extdata","VCE_results.csv", package = "PositiveDefinit")
# Run function read_vce ResultDF <- PositiveDefinit::read_vce4grafics(psInputFile = psInputFile)
### # Plot heritability PositiveDefinit::plot_h2(psInputFile = ResultDF)
# Plot genetic correlations PositiveDefinit::plot_gencorr(psInputFile = ResultDF)
PositiveDefinit::plot_var(psInputFile = ResultDF)
sessionInfo()
r paste(Sys.time(),paste0("(", Sys.info()[["user"]],")" ))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.