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