Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Teste de sheffé
#R version 3.3.2 print("Teste de Sheffé") iron.sheffe.teste<-function(gltrat,glres,rep,qmr,coef,medias){ contraste<-sum(coef*medias) somacoeficientes<-sum(coef) var.cont<-(sum(coef^2))*qmr/rep F<-qf(1-0.05,gltrat,glres) sheffe<-sqrt(gltrat*F*var.cont) cat("soma dos coeficientes dos contrastes. = ", somacoeficientes) cat(" ---> ") cat("RESULTADO DO TESTE") if(abs(contraste)>sheffe) { cat (" === significativo para sheffe. aceita-se H1 === p<= 0,05") } else { cat(" === não significativo para sheffe. Aceitam-se H0 === p> 0,05") } cat(" Estimativa do contraste =", abs(contraste),",", " valor de sheffé=", sheffe," == Decisão: se estimativa do contraste < sheffé aceita H0 Se estimativa do contraste > Sheffé aceita H1")} coef<-c(4,-1,-1,-1,-1) medias=c(97.20,135.18,139.65,124.55,131.75) #iron.sheffe.teste(gltrat,glres,rep,qmr,coef,medias) iron.sheffe.teste(4,12,4,286.1137,coef,medias)
run
|
edit
|
history
|
help
0
Camelcase
histograms for survey stats and fats
123
Ex15-12
Guess the next number
Not able to install packages
Exp 2
Correlação
ExDecaiEulerMin28-01-21
Visualization Test Exercise 6 ggplot