
Buenas noches a todos.

1.- Estoy utilizando la función odfWeave y me ha surgido un problema y no sé dónde puede estar el error:


<<echo
= FALSE, results = verbatim>>=
for(i
in 1:dim(categ)[2]){
	print(paste(colnames(categ)[i],dicc$etiqueta_variable[colnames(categ)[i]==dicc$nom
& dicc$taula=='T'],sep=': '))
	if(!is.na(dicc$etiqueta_valor[colnames(categ)[i]==dicc$nom
& dicc$taula=='T'])){
		print(dicc$etiqueta_valor[colnames(categ)[i]==dicc$nom
& dicc$taula=='T'])
	}
	print(stat.table(list(Categoria=categ[,i]),
list(N=count(), '%'=percent(categ[,i])), data=categ))
}
@

No se printa la salida de stat.table y R se queda colgado. También he probado:

...tab<-stat.table(list(Categoria=categ[,i]),
list(N=count(), '%'=percent(categ[,i])), data=categ)

odfTable(tab,horizontal
= TRUE)}
@
pero tampoco se printa, aunque aquí R no se cuelga.

2.- Aprovecho también para ver si alguien me puede decir por qué cuando hago el primer 'for' directamente en R, es decir, sin odfWeave, con la primera variable salen bien los porcentajes, pero con todas las siguientes siempre pone 100% ?

Muchas gracias por adelantado,
David.
 		 	   		  
_________________________________________________________________
[[elided Hotmail spam]]

	[[alternative HTML version deleted]]

