Function to export the graph options and model parameters
yupana_export_smr( data, response, comparison, model, test_comp = NA, type = NA, xlab = NA, ylab = NA, glab = NA, ylimits = NA, xrotation = c(0, 0.5, 0.5), xtext = NA, gtext = NA, legend = "top", sig = NA, error = NA, color = TRUE, opt = NA, dimension = c(20, 10, 100), sig_level = NA )
| data | Fieldbook data. |
|---|---|
| response | Model used for the experimental design. |
| comparison | Factor to compare |
| model | Model used in the analysis |
| test_comp | Type of test comparison |
| type | Plot type |
| xlab | Title for the axis x |
| ylab | Title for the axis y |
| glab | Title for the legend |
| ylimits | limits of the y axis |
| xrotation | Rotation in x axis c(angle, h, v) |
| xtext | Text labels in x axis |
| gtext | Text labels in group |
| legend | the position of legends ("none", "left", "right", "bottom", "top", or two-element numeric vector) |
| sig | Column with the significance |
| error | Show the error bar ("ste" or "std"). |
| color | colored figure (TRUE), otherwise black & white (FALSE) |
| opt | Add news layer to the plot |
| dimension | Dimension of graphs |
| sig_level | Level of significance for the test |
data frame
if (FALSE) { library(inti) library(gsheet) url <- paste0("https://docs.google.com/spreadsheets/d/" , "15r7ZwcZZHbEgltlF6gSFvCTFA-CFzVBWwg3mFlRyKPs/" , "edit#gid=172957346") # browseURL(url) fb <- gsheet2tbl(url) mc <- mean_comparison(data = fb , response = "hi" , model_factors = "geno*treat" , comparison = c("geno", "treat") ) mc$comparison }