Atividade n°4

#IMPORTAÇÃO DO ARQUIVO CARROS

load("C:/Users/Davi/Desktop/CARROS.RData")

#SELEÇÃO DAS VARIÁVEIS QUALITATIVAS TIPO DE COMBUSTÍVEL E TIPO DE MARCHA

CARROS$Tipodecombustivel<-as.factor(CARROS$Tipodecombustivel)
CARROS$TipodeMarcha<-as.factor(CARROS$TipodeMarcha)

#IDENTIFICAÇÃO DOS TIPOS DE COMBUSTÍVEIS E DOS TIPOS DE MARCHAS

levels(CARROS$Tipodecombustivel)<-c("Gasolina","Álcool")
levels(CARROS$TipodeMarcha)<-c("Automático","Manual")

#TABELA CRUZADA COM AS VARIÁVEIS SELECIONADAS

tabela1<-table(CARROS$Tipodecombustivel,CARROS$TipodeMarcha)
tabela1

##           
##            Automático Manual
##   Gasolina         12      6
##   Álcool            7      7

#REALIZAÇÃO DA PROPORÇÃO ENTRE AS VARIÁVEIS

prop.table(tabela1,1)*100

##           
##            Automático   Manual
##   Gasolina   66.66667 33.33333
##   Álcool     50.00000 50.00000

#TENDO EM VISTA O QUE FOI EXPOSTO, DENTRE OS 18(100%) CARROS QUE UTILIZAM GASOLINA, 12(CERCA DE 67%) DELES SÃO AUTOMÁTICOS, ENQUANTO OS OUTROS 6(POR VOLTA DE 33%) SÃO MANUAIS;JÁ ENTRE OS 14(100%) CARROS QUE USAM O ÁLCOOL, 7(50%) SÃO AUTOMÁTICOS E OS OUTROS 7(50%) SÃO MANUAIS.