Estatística Aplina na Ed. Fisica II

Prévia do material em texto

Menu
	Estatistica aplicada na Ed. Fisica II.
	Menu
	E.1
	E.2
	E.3
	E.4
	E.5
	E.6
	CODE
Aluna: Ana Paula Saraiva Marreiros
6º semestre - 3º ano
E.1
	MENU
	E.2
		E.1) Numa urna com 10 bolas numeradas de 1 a 10, extrair, aleatoriamente, uma bola e observar o seu número.
		a) Construa um modelo probabilístico.
		Resultados	1	2	3	4	5	6	7	8	9	10
		Probabilidades	10%	10%	10%	10%	10%	10%	10%	10%	10%	10%
		b) Liste os resultados contidos nos eventos: A = número par, B = número ímpar e C = número menor que 3.
		A=	5/10
		B=	5/10
		C=	2/10
		c) Atribua probabilidades aos eventos do item (b)
		P(A)=	50%
		P(B)=	50%
		P(C)=	20%
Estatística Aplicada a Educação Física II
E.2
	MENU
	E.3
		E.2) Numa sala com 10 homens e 20 mulheres, sorteia-se um indivíduo, observando o sexo (masculino ou feminino). Construa um modelo probabilístico.
		Resultados	homem	mulher		Sexo	nº	Probalidade
		Probabilidades	33%	67%		Homem	10	33%
						Mulher	20	67%
						Total	30	100%
Estatística Aplicada a Educação Física II
E.3
	MENU
	E.4
		E.3) Numa eleição para prefeitura de uma cidade, 30% dos eleitores pretendem votar no Candidato A, 50% no Candidato B e 20% em branco ou nulo. Sorteia-se um eleitor na cidade e verifica-se o candidato de sua preferência.
		a) Apresente um modelo probabilístico.
		Resultados	A	B	branco ou nulo
		Probabilidades	0.3%	0.5%	0.2%
		b) Qual é a probabilidade de o eleitor sorteado votar num dos dois candidatos?
		P(A U B)=	0.8%
Estatística Aplicada a Educação Física II
E.4
	MENU
	E.5
		E.4) Seja uma família sorteada de uma população de 120 famílias, as quais se distribuem conforme a seguinte tabela.
		Distribuição conjunta de frequências do nível de instrução do chefe da casa e uso deprogramas de alimentação popular, num conjunto de 120 famílias.
		Uso de programas	Nível de instrução do chefe da casa			Total
			nenhum	fundamental	médio
		sim	31	22	25	78
		não	7	16	19	42
		Total	38	38	44	120
		Calcule a probabilidade de a família sorteada ser:
		a) usuária de programas de alimentação popular;
		65%
		b) tal que o chefe da casa tenha o nível médio;
		37%
		c) tal que o chefe da casa não tenha o nível médio
		63%
		d) usuária de programas de alimentação popular, e o chefe da casa ter o nivel médio;
		21%
		e) usuária de programas de alimentação popular, e o chefe da casa não ter o nível médio;
		44%
		f) usuária de programas de alimentação popular, considerando que o sorteio tenha sido restrito às famílias cujo chefe da casa tenha o nível médio;
		57%
		g) tal que o chefe da casa tenha o nível médio, considerando que o sorteio tenha sido restrito às famílias usuárias de programas de alimentação popular.
		32%
Estatística Aplicada a Educação Física II
E.5
	MENU
	E.6
		E.5) Seja a população descrita no Exercício 4. Selecionam-se, aleatoriamente, duas famílias, sendo uma após a outra, repondo a primeira familia selecionada antes de proceder a segunda seleção (amostragem com reposição). Qual é a Probabilidade de que ambas as famílias sejam usuárias de programas de alimentação popular?
		Uso de programas	Nível de instrução do chefe da casa			Total
			nenhum	fundamental	médio				Instrução	Probabilidade
		sim	31	22	25	78			Fundamental	27%
		não	7	16	19	42			medio	30%
		Total	38	38	44	120
Estatística Aplicada a Educação Física II
E.6
	MENU
	CODE
		E.6) Utilize a planilha do desafio prático e construa uma tabela de contingência (conforme abaixo) entre grupo de idade e saúde autopercebida. Seja uma pessoa sorteada da amostra, responda o que se pede.
		Distribuição conjunta de frequências do grau de saúde autopercebido e o grupo de idade. 
		Grupo de idade	Saúde autopercebida		Total
			boa	não boa
		jovem	47	10	57
		idoso	27	34	61
		Total	74	44	118
		Calcule a probabilidade de a pessoa sorteada ser:
		a) do grupo jovem;
		48%
		b) ter saúde autopercebida como "não boa";
		37%
		c) ser idoso e ter saúde autopercebida como boa;
		44%
		d) ser jovem e ter saúde autopercebida como não boa;
		18%
		e) ter saúde autopercebida como boa, considerando que o sorteio tenha sido restrito ao grupo jovem;
		82%
		f) ter saúde autopercebida como boa, considerando que o sorteio tenha sido restrito ao grupo idoso;
		44%
Estatística Aplicada a Educação Física II
Planilha1
	Age group	self-percieved health					Jovem			Idoso
	[1 =young, 2 = old ]	[1 = good, 2 = not good]		1	57		1	47		1	27
	1	1		2	61		2	10		2	34
	1	1
	1	1
	1	1
	1	1
	1	2
	1	2
	1	2
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	1
	1	2
	1	1
	1	1
	1	1
	1	2
	1	1
	1	1
	1	2
	1	1
	1	1
	1	1
	1	2
	1	1
	1	2
	1	1
	1	1
	1	2
	1	2
	1	1
	1	1
	1	1
	2	2
	2	1
	2	2
	2	1
	2	1
	2	1
	2	1
	2	2
	2	2
	2	1
	2	2
	2	2
	2	1
	2	1
	2	1
	2	2
	2	2
	2	2
	2	1
	2	2
	2	1
	2	1
	2	1
	2	1
	2	2
	2	2
	2	2
	2	2
	2	2
	2	2
	2	1
	2	1
	2	2
	2	1
	2	2
	2	1
	2	1
	2	2
	2	2
	2	1
	2	1
	2	2
	2	1
	2	1
	2	2
	2	2
	2	1
	2	2
	2	2
	2	2
	2	2
	2	2
	2	1
	2	2
	2	2
	2	2
	2	1
	2	2
	2	2
	2	1
	2	2
code
	if(!require(dplyr)) install.packages("dplyr") 												MENU
	library(dplyr)
	if(!require(rstatix)) install.packages("rstatix") 
	library(rstatix)
	if(!require(psych)) install.packages("psych") 
	library(psych)
	if(!require(corrplot)) install.packages("corrplot") 
	library(corrplot)
	if(!require(psych)) install.packages("psych") 
	library(psych)
	dados <- X2021_03_07_Raw_data_test_retest_reliability
	dados$`Age group` <- factor(dados$`Age group`, label = c("Jovem", "Idoso"), levels = c(1, 2))
	dados$`self-percieved health` <- factor(dados$`self-percieved health`, label = c("Boa", "Não boa"), levels = c(1, 2))
	dados$Gender <- factor(dados$Gender, label = c("Feminino", "Masculino"), levels = c(1, 2))
	table(dados$`Age group`, dados$Gender)
	table(dados$`Age group`, dados$`self-percieved health`)
	describe.by(dados$`1_Height`, group = dados$`Age group`:dados$Gender)
	tabela <- table(dados$`Age group`, dados$`self-percieved health`)
	tabela
	quiqua1 <- chisq.test(tabela)
	quiqua1
	quiqua1$expected
	quiqua1$residuals
	quiqua1$stdres
	novoalfa <- 0.05/(2*2)
	novoalfa
	novoalfa <- 0.05/(nrow(tabela)*ncol(tabela))
	qnorm(novoalfa/2)
	round(2*(1-pnorm(abs(quiqua1$stdres))),6)
	cramer_v(tabela)
	phi(tabela)