Nothing
knitr::kable(params$paramEst)
knitr::kable(params$tab)
res <- params$modelAR$residuals par(mfrow = c(1,2)) hist(res, xlab = "Residuals", main = "", freq = FALSE) lines(density(res)) qqnorm(res) qqline(res)
res <- params$modelAR$residuals plot(res, ylab = "Residuals")
\newpage
knitr::kable(params$table)
if (params$table$P.value[1] < 0.05) { textRes <- "According to Shapiro-Wilk normality test at 5% of significance, residuals cannot be considered normal." }else { textRes <- "According to Shapiro-Wilk normality test at 5% of significance, residuals can be considered normal." }
if (params$table$P.value[2] < 0.05) { textRes2 <- "According to Moran I test at 5% of significance, there is spatial correlation among the residuals." }else { textRes2 <- "According to Moran I test at 5% of significance, there is no spatial correlation among the residuals." }
r textRes
r textRes2
Procedure: r params$McompName
knitr::kable(params$McomP)
Treatments with the same letter are not significantly different at 5% of significance.
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.