Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Teste de sheffé
#R version 3.3.2 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 === ") } else { cat(" === não significativo para sheffe. Aceitam-se H0 === ") } 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
21-09-2020IntpoliLagaproxf
Visualization Test Exercise 6 ggplot
At matrix division
sentiment analysis
Regressão linear
R1
Chapter 4:Comparing Distributions (same scale)
Call option formula for Geometric Laplace distributed stock
Ex11-03-21EdsonAmanda
16-09-2020ExVitorb