#Carregando o pacote xlsx
require(xlsx)

#Carregando a Tabela 2.1
tabe = read.xlsx("D:\\R\\BussabTab2.1.xlsx",1)

#Extraindo - Estado civil
ecivil = tabe[1]

#Calculando as frequencias - Estado civil
fecivil=t(t(table(ecivil)))

#Calculando as proporções - Estado civl
pecivil = prop.table(fecivil)

#Crindo uma tabela com as frequencias e proporções
tecivil = cbind(fecivil,pecivil)

#Criando um data frame com as tabela
tabela.ec = data.frame(tecivil)

#Calculando os totais e criando cum vetor auxiliar com esses resultados
aux = c(sum(tabela.ec[1]),sum(tabela.ec[2]))

#Juntado a tabela gerada com o vetor auxiliar
tabela.ec = rbind(tabela.ec,aux)

#Criando o vetor Porcentagem 100fi e armazenando seu conteudo transposto
aux=t(c(tabela.ec[1:3,2]*100))

#Juntando o vetor auxiliar a tabela com os resultados
tabela.ec=cbind(tabela.ec,t(aux))

#Definindo o nome das linhas e coluna da matriz
dimnames(tabela.ec)[1] = list(c("Casado","Solteiro","Total"))
dimnames(tabela.ec)[2] = list(c("Frequencia","Porcentagem","Porcentagem 100fi"))
tabela.ec