################################################################################
#                                                                              #
#                   SME0320 - QUESTIONARIO 5 USANDO R-Studio                   #
#                    EXEMPLO DE IMPORTAÇÃO DE DADOS VIA .txt                   #
#                         Patrícia Stülp e Jorge Bazan                         #
#                                                                              #
################################################################################
#                          #
# RESOLUÇÃO QUESTIONÁRIO 5 #
#                          #
############################

# Limpar memória do R e console
rm(list = ls()); cat('\014')

################################## Questão 1 ###################################


# Escrever dados

dados1 = c(39.2, 46.4, 22.2, 41.7, 22.1, 32.6, 42.8, 20.6, 26.5, 45.4,
           37.3, 32.1, 48.2, 43.0, 33.2, 37.0, 36.5, 36.3, 19.8, 32.7)
dados1
  # Também podemos substituir o sinal de '=' por '<-'
  # dados1 <- c(39.2, 46.4, 22.2, 41.7, 22.1, 32.6, 42.8, 20.6, 26.5, 45.4,
  #             37.3, 32.1, 48.2, 43.0, 33.2, 37.0, 36.5, 36.3, 19.8, 32.7)


# Calcular a média de dados1. Usar comando mean() e comando round() para
# arredondar

media1 = mean(dados1)
media1 = round(media1, 1)
media1

  # Obs.: Neste caso poderíamos ter simplificado em apenas 1 passo:
  # media1 = round( mean(dados1), 1 ); media1


# Calcular a amplitude dos dados. Usar comandos max() e min()

max1 = max(dados1); max1
min1 = min(dados1); min1

  # Outra opção para determinar o máximo e mínimo é utilizar o comando range()
  # range(dados1), por exemplo, fornece os valores mínimo e o máximo, respecti-
  # vamente do conjunto de dados 'dados1'.

amp = max1 - min1
amp


# Calcular amplitude de cada classe. Primeiro precisamos calcular k
  # O comando sqrt() é para calcular raiz quadrada;
  # O comando length() fornece o tamanho do objeto que estamos interessados,
  # que neste caso é o tamanho de dados1.

n = length(dados1); n
k = sqrt(n)
k = round(k, 0); k

  # Aqui também podemos simplificar em apenas 1 passo:
  # k = round( sqrt(length(dados1)), 0 ); k

ampclasse = amp/k
ampclasse = round(ampclasse, 0); ampclasse


################################## Questão 3 ###################################


# Escrever dados

dados3 = c(11.8, 12.9, 8, 14.3, 10.6, 12.5, 12.2, 10, 8.9, 12.6)
dados3


# Calcular desvio padrão. Usar comando sd() e comando round() para arredondar

desvio3 = sd(dados3)
desvio3 = round(desvio3, 2); desvio3


# Calcular coeiciente de variação. Primeiro precisamos calcular a média

media3 = mean(dados3); media3

coefvar3 = round( desvio3/media3, 2 )
coefvar3


################################## Questão 4 ###################################


# Escrever dados

X = c(201, 333, 938, 750, 396, 665, 463, 512); X
Y = c(174, 170, 122, 71, 204, 350, 76, 115); Y


# Calcular a variância de X

varX = var(X); varX


# Calcular a variância de Y

varY = var(Y); varY


# Calcular a correlação de X e Y e arredondar

corXY = round( cor(X,Y), 3 )
corXY


################################################################################
#                        #
# EXERCÍCIO 22 - LISTA 6 #
#                        #
##########################

# Limpar memória do R e console
rm(list = ls()); cat('\014')

# Diretório
setwd(dirname(rstudioapi::getActiveDocumentContext()$path))


# Importar dados "DadosLista.txt"

dados22 = read.table("DadosLista.txt", dec = ",", header = TRUE)
dados22

attach(dados22)

################################################################################

# (a) Classifique cada umas das variaveis.

str(dados22)

# Secao, Ig e M são variáveis qualitativas;
# A, D, R, E, P e Ec são variáveis quantitativas.


################################################################################

# (b) Construa um histograma para as notas de Redacao.

x11()
hist(R, main = "Notas de Redação", col = 5)


################################################################################