knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(planex) library(tidyverse) data(fibras) glimpse(fibras) fibras <- fibras %>% mutate( maquina = as.factor(maquina) ) fit <- aov(forca ~ diametro + maquina, data = fibras) testResiduals(fit) plotResiduals(fit)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.