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
Skewed Right
Mandelbrotset
Gab1A(resumido)
12-08-2020Ex3.19
Gab1A(resumido)
sum of digits is prime
Scatterplot using Ggplot Sample
List of libraries in R
SAMPLING
14-09-2020GRamLD