Gráficos

Na linguagem de programação o simbolo (!=) significa igual ou desigual.

numero_de_caras = 470:610
plot(numero_de_caras, dbinom(numero_de_caras, size=1000, prob=0.541),
     type='h')

prop.test(541,1000,p=0.5,conf.level = 0.95)
## 
##  1-sample proportions test with continuity correction
## 
## data:  541 out of 1000, null probability 0.5
## X-squared = 6.561, df = 1, p-value = 0.01042
## alternative hypothesis: true p is not equal to 0.5
## 95 percent confidence interval:
##  0.5095159 0.5721653
## sample estimates:
##     p 
## 0.541

#caras 5010 #10.000

#H0(Hipotese nula) P = 0.5

#H1 P != 0.5

#ALPHA = 0,05

prop.test(5010,10000,p=0.5,conf.level = 0.05)
## 
##  1-sample proportions test with continuity correction
## 
## data:  5010 out of 10000, null probability 0.5
## X-squared = 0.0361, df = 1, p-value = 0.8493
## alternative hypothesis: true p is not equal to 0.5
## 5 percent confidence interval:
##  0.5006365 0.5013635
## sample estimates:
##     p 
## 0.501

#numero de caras = 7 #numero de lançamentos = 10

#H0 (Hipotese nula) p = 0,5

#H1 p = != 0,5

#Alpha = 0,95

prop.test(7,10,p=0.5,conf.level = 0.95)
## 
##  1-sample proportions test with continuity correction
## 
## data:  7 out of 10, null probability 0.5
## X-squared = 0.9, df = 1, p-value = 0.3428
## alternative hypothesis: true p is not equal to 0.5
## 95 percent confidence interval:
##  0.3536707 0.9190522
## sample estimates:
##   p 
## 0.7

#Site: https://github.com/DATAUNIRIO/Base_de_dados/blob/master/Questionario_Estresse.xls

#Carregar base de dados ‘CARROS’ e ‘QUESTIONARIO ESTRESSE’

library(readxl) Questionario_Estresse <- read_excel(“C:/Users/15150559733/Downloads/Questionario_Estresse.xls”)

load(“C:/Users/15150559733/Downloads/CARROS.RData”)

#H: MEDIA DA NOTA = 7

#H1: MEDIA DA NOTA != 7

#ALPHA; 0,05

`` t.test(Questionario_Estresse$Desempenho, MEDIA = 7, conf.level = 0.05) ```