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]]

