[R] Problems with table

[silvano]

Hi,

I have 25 questions divided into 3 modules. I'm building tables of DISCIPLINE 
with each of the questions (Q1, Q2, Q3, ..., Q25).
Each table, of course, has a different title.

In the first module (questions Q1, Q2, ..., Q7) I don’t have problems with 
the titles of tables.

DISCIPLINA <- serie_2$DISCIPLINA
for (i in 1:7){
                    aux <- paste("Q", i, sep="")
                    }

for (i in 1:7){
  aux <- paste("nome.Questao", i, sep="")
  assign(aux, paste("Nome da Questao", i))
}

nome.Questoes = c("Apresentação da proposta de programa a ser desenvolvida na 
disciplina.",
                  "Profundidade dos temas em relação aos objetivos da 
disciplina.",
                  "Aplicabilidade dos temas abordados.",
                  "Articulação do conteúdo da disciplina com outras e com a 
profissão.",
                  "Estabelecimento de critérios de avaliação claros e 
adequados.",
                  "Os resultados das avaliações são discutidos com os 
alunos.",
                  "Atendimento da disciplina às suas expectativas.")

cria.tabela <- function(Questao, i){
  Questao1 <- get(Questao)
  tab1 <- table(DISCIPLINA, Questao1)
  tab1.prop = round(100*prop.table(tab1, 1),  2)
  capt <- nome.Questoes[i]
  tab1.txt = xtable(tab1.prop, align="l|rrrrr", label=Questao, 
caption=paste(capt))
  print(tab1.txt, format.args=list(big.mark = ".", decimal.mark = ","), 
caption.placement='top', table.placement='H')
  cat("\n\n\n")
}

Discip <- function(){
  for (i in 1:7){
    x <- paste("Q", i, sep="")
    cria.tabela(x, i)
    }
}

Discip()


In the second module the questions are Q8, Q9 and Q10 and I try use the same 
code, but all titles (3 tables) are equal.

INFRA <- serie_2$DISCIPLINA
for (i in 8:10){
  aux <- paste("Q", i, sep="")}

for (j in 1:3){
  aux <- paste("nome.Questao", j, sep="")
  assign(aux, paste("Nome da Questao", j))
}

nome.Infra = c("As instalações utilizadas durante as aulas da disciplina.",
                  "Qualidade dos recursos didáticos e demais materiais 
relacionados à disciplina.",
                  "Disponibilidade das referências bibliográficas atuais e 
demais materiais didáticos.")

cria.tabela <- function(Questao, i){
  Questao1 <- get(Questao)
  tab1 <- table(INFRA, Questao1)
  tab1.prop = round(100*prop.table(tab1, 1),  2)
  capt <- nome.Infra[j]
  tab1.txt = xtable(tab1.prop, align="l|rrrrr", label=Questao, 
caption=paste(capt))
  print(tab1.txt, format.args=list(big.mark = ".", decimal.mark = ","), 
caption.placement='top', table.placement='H')
  cat("\n\n\n")
}

Infra <- function(){
  for (i in 8:10){
    x <- paste("Q", i, sep="")
    cria.tabela(x, i)
    }
}

Infra()


How can I solve this problem?


Thanks,


Silvano.

---
Este email está limpo de vírus e malwares porque a proteção do avast! 
Antivírus está ativa.


        [[alternative HTML version deleted]]


______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.