Transformação de dados no R

Quem quiser e puder colaborar com o trabalho de produzir mais vídeos com análises no R pode enviar um pix de qualquer valor, ficarei muito grato.
Pix: [e-mail]
Dica para normalizar dados e assim realizar análises paramétricas (Anova).
#Script usado
Fonte dos dados - www.leg.ufpr.br...
#Dados - Número de reclamações em diferentes sistemas de atendimento
y = c(2370,1687,2592,2283,2910,3020, 1282,1527,871,1025,825,920,
562,321,636,317,485,842,173,127,132,150,129,227,
193,71,82,62,96,44)
tr = data.frame(trat = factor(rep(1:5, each=6)), resp = y)
head(tr) # Mostra as 6 primeiras linhas da tabela(Dataframe)
attach(tr)
shapiro.test(resp) # Não há normalidade dos dados brutos
hist(resp)
fligner.test(resp ~ trat) # Não há homogeneidade dos dados brutos
resp2 = sqrt(resp) # Transformação pela Raiz quadrada (resp)
shapiro.test(resp2) # Não Normalizou
hist(resp2)
fligner.test(resp2 ~ trat) # Há Homogeneidade
resp3 = log(resp) # Transformação pelo Log neperiano (resp)
shapiro.test(resp3) # Normalizou
hist(resp3)
fligner.test(resp3 ~ trat) # Há Homogeneidade
anova(aov(log(resp) ~ trat, data=tr))