[R-es] Guardar salidas de R - R-help-es

Sun, Jan 17, 2010 6:15 AM #

Hola, yo tambiÃ©n he empezado a utilizar la libreria odfWeave y me he encontrado con el mismo problema que David. Para solucionarlo sÃ³lo basta con instalar Rtools y durante la instalaciÃ³n editar el path. En dicho path es necesario incluir el directorio donde R de encontrar la utilidad zip/unzip (en mi caso tuve que incluir en el path la direcciÃ³n c:/Archivos de programa/7-zip). Esto debe solucionar el error que indicas.

De todos modos, si estÃ¡s dentro del entorno windows, el ejemplo que proporcionas no te va a funcionar. Al menos, a mi no me funcionÃ³. Es necesario que incluyas el cÃ³digo dentro de los simbolos <<>>== tal y como aparece en el manual de odfWeave (por. ej., <<histograma, echo=FALSE, fig = TRUE>>== . De esta manera seguro que te funcionarÃ¡.

TambiÃ©n te digo que he estado probando la recomendaciÃ³n anterior de utilizar r2wd y es bastante interesante porque con odfWeave las tablas pierden el formato original al pasarlas de  oo a Word.

Saludos y suerte!!

M. Morales
Departamento de PsicologÃa Experimental
Universidad de Sevilla




----- Mensaje original -----
De: r-help-es-request en r-project.org
Fecha: Domingo, Enero 17, 2010 12:05 pm
Asunto: Resumen de R-help-es, Vol 11, EnvÃo 5
A: r-help-es en r-project.org

EnvÃe los mensajes para la lista R-help-es a
	r-help-es en r-project.org

Para subscribirse o anular su subscripciÃ³n a travÃ©s de la WEB
	

O por correo electrÃ³nico, enviando un mensaje con el texto "help" en
el asunto (subject) o en el cuerpo a:
	r-help-es-request en r-project.org

Puede contactar con el responsable de la lista escribiendo a:
	r-help-es-owner en r-project.org

Si responde a algÃºn contenido de este mensaje, por favor, edite la
linea del asunto (subject) para que el texto sea mas especifico que:
"Re: Contents of R-help-es digest...". AdemÃ¡s, por favor, incluya en
la respuesta sÃ³lo aquellas partes del mensaje a las que estÃ¡
respondiendo.


Asuntos del dÃa:

   1. seleccionar datos (JosÃ© Miguel Contreras GarcÃa)
   2. Guardar salidas R (David A.C.)
   3. Re: Guardar salidas R (J. Miguel Marin)
   4. Re: seleccionar datos (Jorge Virto Moreno)
   5. Re: Guardar salidas R (Proyecto R UCA)
   6. Guardar salidas R (David A.C.)


----------------------------------------------------------------------

Message: 1
Date: Sat, 16 Jan 2010 14:19:17 +0100 (CET)
From: JosÃ© Miguel Contreras GarcÃa <jmcontreras en ugr.es>
To: r-help-es en r-project.org
Subject: [R-es] seleccionar datos
Message-ID: <11811.81.38.5.29.1263647957.squirrel en goliat12.ugr.es>
Content-Type: text/plain;charset=iso-8859-1




Tengo un problemilla, aparentamente tonto pero no logro resolverlo.

Imaginaros que teneis:

1007 2 6 2 3 2 1 6 1100 1300 650
1007 2 6 3 2 2 1 6 200 1300 650
1058 1 1 2 3 1 1 6 2000 2000 2000
1438 1 1 2 5 1 1 6 300 300 300
1451 1 1 2 3 1 1 6 1747 1747 1747
1670 2 1 2 5 1 1 6 750 1185 592.5
1670 2 6 2 4 1 1 6 435 1185 592.5
1808 2 1 1 5 1 1 6 480 690 345
1808 2 6 1 5 1 1 6 210 690 345
1994 1 1 1 4 1 1 6 650 650 650

Como veis se repite el primer elemento de algunas columnas, pues quiero
hacer un bucle que me cree una tabla con solo la 1Âª fila para cada valor
que se repite, es decir que quede:


1007 2 6 2 3 2 1 6 1100 1300 650
1058 1 1 2 3 1 1 6 2000 2000 2000
1438 1 1 2 5 1 1 6 300 300 300
1451 1 1 2 3 1 1 6 1747 1747 1747
1670 2 1 2 5 1 1 6 750 1185 592.5
1808 2 1 1 5 1 1 6 480 690 345
1994 1 1 1 4 1 1 6 650 650 650

Lo estoy intentando con

for (i in 1:m) {
levels(factor(hog[,1]))->kk
write.table(kk, file="kk.txt",append=TRUE,row.names=FALSE,col.names=FALSE,
quote = FALSE)
}


o con


for (j in 1:m-1){ subset (hog, hog[j,1]!=hog[j+1,1])-> hog2
        	write.table(hog2,
file="hog2.txt",append=TRUE,row.names=FALSE,col.names=FALSE, quote =
FALSE)
                	}
as.matrix(read.table("hog2.txt"))->hog2



pero nada.

Gracias
-- 
                             \|||/
                             (o o)
+-----------------------oOOo-(_)-oOOo------------------------------+
| JosÃ© Miguel Contreras                                            |

| e-mail: jmcontreras en ugr.es                                       |
|                                                |
+----------------------oooO-------Oooo-----------------------------+



------------------------------

Message: 2
Date: Sat, 16 Jan 2010 14:56:43 +0100
From: "David A.C." <diuck7 en hotmail.com>
To: <r-help-es en r-project.org>
Subject: [R-es] Guardar salidas R
Message-ID: <COL122-W80077DD0EE0C2473565B288680 en phx.gbl>
Content-Type: text/plain


Hola a todos,

Estoy realizando una descriptiva inicial de un conjunto de datos y me 
gustarÃa que las salidas de R se guardasen en un fichero ".txt", 
".doc", etc. para luego poder modificarlo (haciendo las mÃnimas 
modificaciones posibles, es decir, que se guarde ya en un formato 
aceptable para presentar un informe) y realizar un informe.

Suelo utilizar la funciÃ³n "sink()", pero el formato en el que lo 
guarda (en un ".txt") no es muy "bonito", por lo que tengo que hacer 
muchos retoques y la verdad es que es mucho trabajo, ya que las 
salidas de R me ocupan bien, bien unas 60 hojas!!! AdemÃ¡s, me 
gustarÃa, por ejemplo, poder aÃ±adir comentarios, los nombres de las 
variables que se viesen mejor (como estilo tÃtulo), etc. entre las 
salidas de R.

Â¿Conocen alguna otra funciÃ³n para ello o tienen un script para 
facilitarme dicho trabajo?

Muchas gracias a todos por adelantado,
David.

_________________________________________________________________


	[[alternative HTML version deleted]]



------------------------------

Message: 3
Date: Sat, 16 Jan 2010 15:50:08 +0100
From: "J. Miguel Marin" <jmmarin en est-econ.uc3m.es>
To: r-help-es en r-project.org
Subject: Re: [R-es] Guardar salidas R
Message-ID: <20100116155008.bzgql6xyqs0s0oo4 en webcartero01.uc3m.es>
Content-Type: text/plain;	charset=ISO-8859-1;	format="flowed"

Hola

la librerÃa R2wd, exporta los resultados en formato doc:






Hola a todos,

Estoy realizando una descriptiva inicial de un conjunto de datos y 
me 
gustarÃa que las salidas de R se guardasen en un fichero ".txt", 
".doc", etc. para luego poder modificarlo (haciendo las mÃnimas 
modificaciones posibles, es decir, que se guarde ya en un formato 
aceptable para presentar un informe) y realizar un informe.

Suelo utilizar la funciÃ³n "sink()", pero el formato en el que lo 
guarda (en un ".txt") no es muy "bonito", por lo que tengo que hacer 

muchos retoques y la verdad es que es mucho trabajo, ya que las 
salidas de R me ocupan bien, bien unas 60 hojas!!! AdemÃ¡s, me 
gustarÃa, por ejemplo, poder aÃ±adir comentarios, los nombres de las 

variables que se viesen mejor (como estilo tÃtulo), etc. entre las 
salidas de R.

Â¿Conocen alguna otra funciÃ³n para ello o tienen un script para 
facilitarme dicho trabajo?

Muchas gracias a todos por adelantado,
David.

_________________________________________________________________


	[[alternative HTML version deleted]]






jm~

_______________________________

        J. Miguel Marin



    Dep. of Statistics
University Carlos III of Madrid
        Spain (E.U.)



------------------------------

Message: 4
Date: Sat, 16 Jan 2010 17:02:49 +0100
From: Jorge Virto Moreno <jorge.virto en ehu.es>
To: r-help-es en r-project.org
Subject: Re: [R-es] seleccionar datos
Message-ID: <20100116170249.110615zgzc1up7a8 en www.ehu.es>
Content-Type: text/plain; charset=ISO-8859-1; DelSp="Yes";
	format="flowed"

Hola JosÃ© Miguel,

si tienes los datos en una matriz es relativamente sencillo resolver  

tu problema usando la opciÃ³n duplicated, que te da un Ãndice con los  

elemntos repetidos.

Por ejemplo:

datos <- matrix(data=c(1007,2,6,2,3,2,1,6,1100,1300,650,
+ 1007,2,6,3,2,2,1,6,200,1300,650,
+ 1058,1,1,2,3,1,1,6,2000,2000,2000,
+ 1438,1,1,2,5,1,1,6,300,300,300,
+ 1451,1,1,2,3,1,1,6,1747,1747,1747,
+ 1670,2,1,2,5,1,1,6,750,1185,592.5,
+ 1670,2,6,2,4,1,1,6,435,1185,592.5,
+ 1808,2,1,1,5,1,1,6,480,690,345,
+ 1808,2,6,1,5,1,1,6,210,690,345,
+ 1994,1,1,1,4,1,1,6,650,650,650),byrow=T,nrow=10)
datos
       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]  [,11]
  [1,] 1007    2    6    2    3    2    1    6 1100  1300  650.0
  [2,] 1007    2    6    3    2    2    1    6  200  1300  650.0
  [3,] 1058    1    1    2    3    1    1    6 2000  2000 2000.0
  [4,] 1438    1    1    2    5    1    1    6  300   300  300.0
  [5,] 1451    1    1    2    3    1    1    6 1747  1747 1747.0
  [6,] 1670    2    1    2    5    1    1    6  750  1185  592.5
  [7,] 1670    2    6    2    4    1    1    6  435  1185  592.5
  [8,] 1808    2    1    1    5    1    1    6  480   690  345.0
  [9,] 1808    2    6    1    5    1    1    6  210   690  345.0
[10,] 1994    1    1    1    4    1    1    6  650   650  650.0

duplicated(datos[,1])
  [1] FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE

datos[duplicated(datos[,1])==F,]
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]  [,11]
[1,] 1007    2    6    2    3    2    1    6 1100  1300  650.0
[2,] 1058    1    1    2    3    1    1    6 2000  2000 2000.0
[3,] 1438    1    1    2    5    1    1    6  300   300  300.0
[4,] 1451    1    1    2    3    1    1    6 1747  1747 1747.0
[5,] 1670    2    1    2    5    1    1    6  750  1185  592.5
[6,] 1808    2    1    1    5    1    1    6  480   690  345.0
[7,] 1994    1    1    1    4    1    1    6  650   650  650.0

Espero que te valga,

Jorge


JosÃ© Miguel Contreras GarcÃa <jmcontreras en ugr.es> escribiÃ³:




Tengo un problemilla, aparentamente tonto pero no logro resolverlo.

Imaginaros que teneis:

1007 2 6 2 3 2 1 6 1100 1300 650
1007 2 6 3 2 2 1 6 200 1300 650
1058 1 1 2 3 1 1 6 2000 2000 2000
1438 1 1 2 5 1 1 6 300 300 300
1451 1 1 2 3 1 1 6 1747 1747 1747
1670 2 1 2 5 1 1 6 750 1185 592.5
1670 2 6 2 4 1 1 6 435 1185 592.5
1808 2 1 1 5 1 1 6 480 690 345
1808 2 6 1 5 1 1 6 210 690 345
1994 1 1 1 4 1 1 6 650 650 650

Como veis se repite el primer elemento de algunas columnas, pues quiero
hacer un bucle que me cree una tabla con solo la 1Âª fila para cada valor
que se repite, es decir que quede:


1007 2 6 2 3 2 1 6 1100 1300 650
1058 1 1 2 3 1 1 6 2000 2000 2000
1438 1 1 2 5 1 1 6 300 300 300
1451 1 1 2 3 1 1 6 1747 1747 1747
1670 2 1 2 5 1 1 6 750 1185 592.5
1808 2 1 1 5 1 1 6 480 690 345
1994 1 1 1 4 1 1 6 650 650 650

Lo estoy intentando con

for (i in 1:m) {
levels(factor(hog[,1]))->kk
write.table(kk, file="kk.txt",append=TRUE,row.names=FALSE,col.names=FALSE,
quote = FALSE)
}


o con


for (j in 1:m-1){ subset (hog, hog[j,1]!=hog[j+1,1])-> hog2
        	write.table(hog2,
file="hog2.txt",append=TRUE,row.names=FALSE,col.names=FALSE, quote =
FALSE)
                	}
as.matrix(read.table("hog2.txt"))->hog2



pero nada.

Gracias
--
                             \|||/
                             (o o)
+-----------------------oOOo-(_)-oOOo------------------------------+
| JosÃ© Miguel Contreras                                            |

| e-mail: jmcontreras en ugr.es                                       |
|                                                |
+----------------------oooO-------Oooo-----------------------------+

_______________________________________________
R-help-es mailing list
R-help-es en r-project.org






------------------------------

Message: 5
Date: Sat, 16 Jan 2010 21:44:17 +0100
From: Proyecto R UCA <r-uca en uca.es>
Cc: r-help-es en r-project.org
Subject: Re: [R-es] Guardar salidas R
Message-ID: <1263674657.5369.3.camel en seta>
Content-Type: text/plain; charset="UTF-8"

Hola,

otras alternativas con odfWeave
( y Sweave
(

Ambas alternativas integran en un solo fichero el cÃ³digo R y las
salidas, por lo que no es necesario andar copiando ni pegando nada.

Saludos.

El sÃ¡b, 16-01-2010 a las 15:50 +0100, J. Miguel Marin escribiÃ³:
Hola

la librerÃa R2wd, exporta los resultados en formato doc:






Hola a todos,

Estoy realizando una descriptiva inicial de un conjunto de datos y 
me 
gustarÃa que las salidas de R se guardasen en un fichero ".txt", 
".doc", etc. para luego poder modificarlo (haciendo las mÃnimas 
modificaciones posibles, es decir, que se guarde ya en un formato 

aceptable para presentar un informe) y realizar un informe.

Suelo utilizar la funciÃ³n "sink()", pero el formato en el que lo 
guarda (en un ".txt") no es muy "bonito", por lo que tengo que 
hacer 
muchos retoques y la verdad es que es mucho trabajo, ya que las 
salidas de R me ocupan bien, bien unas 60 hojas!!! AdemÃ¡s, me 
gustarÃa, por ejemplo, poder aÃ±adir comentarios, los nombres de 
las 
variables que se viesen mejor (como estilo tÃtulo), etc. entre las 

salidas de R.

Â¿Conocen alguna otra funciÃ³n para ello o tienen un script para 
facilitarme dicho trabajo?

Muchas gracias a todos por adelantado,
David.

_________________________________________________________________


	[[alternative HTML version deleted]]






jm~

_______________________________

        J. Miguel Marin



    Dep. of Statistics
University Carlos III of Madrid
        Spain (E.U.)

_______________________________________________
R-help-es mailing list
R-help-es en r-project.org



-- 
===
Proyecto R-UCA

r-uca en uca.es
Manuel MuÃ±oz MÃ¡rquez
===



------------------------------

Message: 6
Date: Sat, 16 Jan 2010 22:43:11 +0100
From: "David A.C." <diuck7 en hotmail.com>
To: <r-help-es en r-project.org>
Subject: [R-es] Guardar salidas R
Message-ID: <COL122-W3561C38FEBEFBD0BDA263988680 en phx.gbl>
Content-Type: text/plain


Gracias por ambas respuestas!

Buscando, habÃa encontrado informaciÃ³n sobre la funciÃ³n odfWeave, pero 
realmente no acabo de entender cÃ³mo funciona.
He preparado el documento .odt con el texto que quiero incluir y el 
cÃ³digo de R (p.ej.):


En
este documento vamos a probar el paquete odfWeave.
Primero
cargamos los datos de forma oculta para el documento final.
<<>>=
#
Los datos son 

coches
<- mtcars[ ,1:6]
@
Los
datos a estudiar contienen \Sexpr{dim(coches)[2]}
variables medidas sobre \Sexpr{dim(coches)[1]}
coches.
Podemos
insertar una tabla resumen de los datos:
<<>>=
medias
<- apply(coches,2,mean)
odfTable(medias,
horizontal = TRUE)
@
TambiÃ©n
podemos aÃ±adir algÃºn bonito grÃ¡fico:
<<>>=
pairs(coches)
@
Y a continuaciÃ³n he ejecutado:

odfWeave("C:\\Documents and 
Settings\\Administrator\\Escritorio\\Prueba\\Prueba2.odt","C:\\Documents 
and Settings\\Administrator\\Escritorio\\Prueba\\Out2.odt")

Y obtengo el siguiente error:

  Copying  C:\Documents and 
Settings\Administrator\Escritorio\Prueba\Prueba2.odt 
  Setting wd to  
C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\Rtmp72suQH/odfWeave16224203398 
  Unzipping ODF file using unzip -o "Prueba2.odt" 
Error en odfWeave("C:\\Documents and 
Settings\\Administrator\\Escritorio\\Prueba\\Prueba2.odt",  : 
  Error unzipping file
AdemÃ¡s: Warning message:
In system(zipCmd[2], invisible = TRUE) : unzip no encontrado

De nuevo, muchas gracias por todo,
David.

                                               
_________________________________________________________________


	[[alternative HTML version deleted]]



------------------------------

_______________________________________________
R-help-es mailing list
R-help-es en r-project.org



Fin de Resumen de R-help-es, Vol 11, EnvÃo 5
********************************************