Re: [R-es] Salida/Puesta Sol
Talvez este paquete ayude: https://cran.r-project.org/web/packages/suncalc/suncalc.pdf El jue., 18 oct. 2018 a las 13:07, Milagros Camacho (< mila.camachobell...@gmail.com>) escribió: > Buenas tardes, > > > > > > Quería saber si, por favor, podías ayudarme. ¿Existe algún paquete en R > que > calcule la hora de salida y puesta de sol dando como entrada la latitud y > longitud de una posición y el día en el que se produzca dicha salida y > puesta? > > > > > > > > Muchas gracias a todos. > > > > Un saludo, > > > > Milagros Camacho Bellido. > > > [[alternative HTML version deleted]] > > ___ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > -- DMTV Fernando Macedo Asistente del área Mejoramiento Genético Facultad de Veterinaria - UdelarR - Uruguay Tel: 26284291 Cel.: 098596947ferm...@gmail.com [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Importando mal los datos
Muy útil la información, ayer mismo estuve intentando usar fread para leer archivos de algunos millones de filas y números como 20171010108 (ejemplo) me los guardaba como exponenciales raros. Leí algo sobre bit64 pero no tuve tiempo de ahondar. Muchas gracias! Saludos Fernando Macedo El 06/10/17 a las 10:55, Jesús Para Fernández escribió: > Es ese segundo paso el que no se como hacer. Es decir, como detecto una > anomalia en caracter factor de una columna? > > Gracias Carlos > > De: Carlos Ortega > Enviado: viernes, 6 de octubre de 2017 15:27 > Para: Jes�s Para Fern�ndez > Cc: r-help-es@r-project.org > Asunto: Re: [R-es] Importando mal los datos > > Puedes forzar que esa columna sea de un tipo determinado... con el par�metro > "colClasses" de "fread()"... > > O dejar que te importe todo "data.table", detectar la anomal�a, corregirla y > forzar el tipo de la columna a tipo num�rico... > > Saludos, > Carlos Ortega > www.qualityexcellence.es<http://www.qualityexcellence.es> > P.S: Acu�rdate que en este foro est�n prohibidas las palabrotas... :-))... > > > El 6 de octubre de 2017, 15:07, Jes�s Para Fern�ndez > mailto:j.para.fernan...@hotmail.com>> escribi�: > Entendido... El otro dia lei un art�culo sobre el efecto 2031 que versaba > justo sobre eso > > Una duda mas. En la columna ID hay alguna fila que esta mal metida y tiene un > caracter o algo que esta hacinedo que toda esa columna me la importe como un > factor y no como un numero. �Como detecto esas filas que me est�n jo...? > > Gracias Carlos!!! > > De: Carlos Ortega > mailto:c...@qualityexcellence.es>> > Enviado: viernes, 6 de octubre de 2017 15:01 > > Para: Jes�s Para Fern�ndez > Cc: r-help-es@r-project.org<mailto:r-help-es@r-project.org> > Asunto: Re: [R-es] Importando mal los datos > > Porque tienes n�meros menores que 10^-31... > > El 6 de octubre de 2017, 14:54, Jes�s Para Fern�ndez > mailto:j.para.fernan...@hotmail.com>> escribi�: > Gracias Carlos, > > Me lo ha solucionado, pero.. > �Por que es necesario instlara ese paquete? > > Un saludo > Jes�s > > > De: Carlos Ortega > mailto:c...@qualityexcellence.es>> > Enviado: viernes, 6 de octubre de 2017 14:51 > Para: Jes�s Para Fern�ndez > Cc: r-help-es@r-project.org<mailto:r-help-es@r-project.org> > Asunto: Re: [R-es] Importando mal los datos > > Instala el paquete "bit64" > > Saludos, > Carlos Ortega > www.qualityexcellence.es<http://www.qualityexcellence.es> > > El 6 de octubre de 2017, 14:43, Jes�s Para Fern�ndez > mailto:j.para.fernan...@hotmail.com>> escribi�: > Buenas chicos, > > Estoy intentando importar el csv que adjunto y que tiene la siguietne forma: > > "a";"b" > 11092740;0 > 8978056137;0 > > > Usando la funcion fread. Necesito usar la funci�n fread por velocidad (lo que > envio es un ejemplo simplificado pero que replica el error). El problema es > que al importar los datos, usando: > > datos<-fread(datos.csv,sep=";") > > el campo a no lo importa correctamente, importandome lo siguiente: > > a b > 1: 5.480542e-317 0 > 2: 4.435749e-314 0 > > �Como puedo hacer para que me lo importe bien? > > Gracias > Jes�s > > > > ___ > R-help-es mailing list > R-help-es@r-project.org<mailto:R-help-es@r-project.org> > https://stat.ethz.ch/mailman/listinfo/r-help-es > > > > -- > Saludos, > Carlos Ortega > www.qualityexcellence.es<http://www.qualityexcellence.es> > > > > -- > Saludos, > Carlos Ortega > www.qualityexcellence.es<http://www.qualityexcellence.es> > > > > -- > Saludos, > Carlos Ortega > www.qualityexcellence.es<http://www.qualityexcellence.es> > > [[alternative HTML version deleted]] > > > > ___ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] problema al transformar columna tipo "factor" a tipo "numeric" en data.table
Creo que el problema es que cuando lo pasas directamente a numeric el toma los niveles para transformarlos. Los factores tienen sus niveles con sus etiquetas, digamos, que es lo que vemos nosotros. Por ejemplo machos y hembras puede ser lo que vemos mientras que internamente los niveles son 1 y 2. Si fuera ese el problema yo lo resuelvo transformando primero en character y luego a numeric. Quedaría así: datos$coltipofactor = as.numeric(as.character(datos$coltipofactor)) Prueba así a ver si era eso. -- Fernando Macedo El 02/08/17 a las 14:49, Carlos Ortega escribió: Hola, Hacerlo dentro de data.table tampoco es que te ofrezca muchas ventajas... datos$coltipofactor <- as.factor(datos$coltipofactor) Saludos, Carlos Ortega www.qualityexcellence.es El 2 de agosto de 2017, 19:16, eric escribió: Estimada comunidad, quiero pedirles ayuda con un problema que parece simple, pero que no se como resolver. Resulta que quiero transformar una columna tipo "factor" a tipo "numeric" en un data.table, pero al hacerlo asi: datos[, coltipofactor:=as.numeric(coltipofactor)] toma los datos de "coltipofactor" y los cambia de manera consecutiva a los que estaban en la columna. Me explico, "coltipofactor" contiene numeros del 1 al 12, que representan meses. Cuando transformo la columna a numerica el 1 se transforma en 13, el 2 en 14 el 3 en 15 y asi ... Que estoy haciendo mal ? como se hace bien ? o no se puede hacer ? Ya me habia pasado esto antes, y lo resolvi de forma manual, pero ahora son muchos datos y seguro que hay una forma correcta de hacerlo. Muchas gracias, Eric. ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Problema en lectura de datos. Memoria insuficiente
Buenas, no se como te llevas con data.table pero usando la función fread
del mismo obtuve estos resultados:
x=fread("ESS1-7e01.csv")
Read 331871 rows and 1020 (of 1020) columns from 0.443 GB file in 00:00:13
Estoy en un i5 con 8 GB de memoria y Ubuntu (creo que el 16.10 no
recuerdo bien).
Saludos.
Fernando Macedo
El 27/06/17 a las 17:52, Antonio Rodriguez Andres escribió:
Si he intentado con el paquete haven pero no me lee todos los datos, se me
corta el archivo, después de un tiempo de procesamiento. Te adjunto el
fichero que quiero leer, que es del ESS, es verdad que es muy pesado, y
luego puedo seleccionar un subconjunto de ello
ESS1-7e01.rar
<https://drive.google.com/file/d/0BzjI-OU4De0rdWtubWRocTVnNnc/view?usp=drive_web>
2017-06-27 12:37 GMT-05:00 Freddy Omar López Quintero <
freddy.lopez.quint...@gmail.com>:
2017-06-27 13:12 GMT-04:00 Antonio Rodriguez Andres <
antoniorodriguezandre...@gmail.com>:
Que archivo has intentado leer el del VWS o el de la link que te envié?
Ambos. El del enlace que me enviaste es bastante más pequeño (me tendrías
que decir qué variables seleccionar para que sean exactamente iguales -o
enviárnoslo en un enlace drive o dropbox o algo así-).
¡
Salud!
--
«Pídeles sus títulos a los que te persiguen, pregúntales
cuándo nacieron, diles que te demuestren su existencia.»
Rafael Cadenas
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Incluir versión
En general cuando quiero mantener diferentes versiones de datos, lo que hago es agregarle la fecha al nombre (y si es más de uno por día la hora también) simplemente con paste() para generar el nombre. Como dijeron, la otra posibilidad que permite mantener versiones de todo, programas y datos, es git. Con RStudio puedes integrar git, lo he probado hace un par de días. https://support.rstudio.com/hc/en-us/articles/200532077-Version-Control-with-Git-and-SVN Saludos! Fernando Macedo El 18/06/17 a las 05:46, José Trujillo Carmona escribió: Supongo que si estás usando control de versiones automático, estás utilizando git o algo similar. Hasta donde llega mi conocimiento del tema git es la herramienta opensource (como R) para control automático de versiones de ficheros. Y puesto que la versión actual está disponible en el servidor git que estés utilizando apostaría que existe alguna función de R que recupere esa versión. No utilizo git, pero una rápida búsqueda me da que efectivamente hay muchos recursos de git incorporados a R: http://finzi.psych.upenn.edu/cgi-bin/namazu.cgi?query=git&max=100&result=normal&sort=score&idxname=functions&idxname=views Espero que ahí puedas encontrar lo que buscas. Saludos. El 18/06/17 a las 08:51, Carlos Ortega escribió: Hola, No, eso no se puede hacer con "write.csv". El control de versiones de tus ficheros, o de tu código R lo tienes que gestionar de otra forma. Puedes cambiar el nombre del fichero (pero es algo que haces tú) o utilizar un repositorio de gestión de código que te lleve los cambios. Saludos, Carlos Ortega www.qualityexcellence.es El 18 de junio de 2017, 8:07, Manuel Máquez escribió: Estimado Freddy: Gracias por tu pronta respuesta; se trata de poner la versión de la tabla, y de esa manera distinguir el número de edición. Nuevamente muchas gracias. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Servicios en la nube
Buenas, me gustaría saber su experiencia sobre servicios en la nube. Se que hay varios que usan los servicios de MS Azure. Tengo una duda respecto a eso, funciona como una maquina virtual, no? Lo que significa que para correr procesos debo estar conectado a la maquina, o puedo dejar corriendo procesos en segundo plano y volver luego para ver el resultado. Saludos y muchas gracias! -- Fernando Macedo ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Alternativa a RStudio
Solo entendí bien lo de no usar el mouse jejeje. De echo es algo que yo me estoy acostumbrando bastante, a no tener que agarrar el mouse para todo, me resulta más fácil y rápido hacer las cosas sin sacar las manos del teclado. Por lo que vi no es muy sencillo el tema de entrarle al emacs, y como no ando con tiempo excedente para dedicarle tendré que dejarlo para más adelante o dedicarle algún ratito libre para probarlo. Por lo que vi algo que piden es un plugin para Python, lo han implementado ya? Saludos y gracias! Fernando Macedo El 26/03/17 a las 04:50, Fernando Arce escribió: > Hola de nuevo (acabo de regresar del campo, de ahi la tardanza): > > No es sencillo. A Bill Venables, conocido sobre todo por su obra > Venables & Ripley, se le atribuye la siguiente frase: "los primeros > cinco anos con emacs son los peores, despues, es simplemente dificil". > > No conozco ningun tutorial ni nada realmente "amigable" como > introduccion, salvo quizas el libro "mastering emacs" que me parece > bastante util, aunque siempre hay que leer mucho antes de empezar > propiamente dicho. El autor tiene un blog bastante interesante: > https://www.masteringemacs.org/ (y el libro suele andar por la > "tienda" google) > > Ahora bien, ese manual, y la mayoria de informacion que puedas > encontrar no tiene mucho que ver con el uso de R en emacs (via ess), > aunque ayuda mucho a sentirse a gusto en el "infierno" de emacs. > > El manual no es para nada amigable: > http://ess.r-project.org/ess.pdf > > y esta introduccion, no demasiado amigable tampoco: > http://pj.freefaculty.org/guides/Rcourse/emacs-ess/emacs-ess.pdf > > > Yo realmente no tengo nada contra los botones ni nada de eso, pero me > he acostumbrado bastante a manejarme con el teclado, en mi caso, por > ejemplo, te pongo una situacion recurrente de mi trabajo: > > > si estoy escribiendo una funcion y la quiero probar, suelo tener tres > ventanas abiertas minimo (en emacs una ventana no es lo mismo que en > otros programas... tiene un lenguaje muy caprichoso), en una la > funcion que estoy testeando, en otra el codigo para probarla, y en > otra una sesion de R > > Supongamos que cambio algo en la funcion durante su desarrollo, los > pasos serian, empezando en el script que contiene la funcion, los > siguientes, una vez cambiada: C-c-f (recargo la funcion), C-, (vuelvo > al script donde estoy haciendo las pruebas), C-c-j (mando el codigo > que prueba su funcionamiento). Si la funcion genera un mensaje de > error, presiono Alt-g p y me lleva directamente a la linea que ha > generado el error dentro de la funcion y la corrijo (si se como, > claro) y vuelta a empezar... Si la funcion esta bien, pues C-x-s o C-x > s dependiendo de en que buffer me encuentre, y si no lo he hecho > antes, vuelvo a el buffer de la funcion (en mi caso via C-.) y con > C-c-o-o genero o actualizo un esqueleto de roxygen para escribir la > ayuda de la misma [C- significa presionar Control y manteniendolo > apretado, las siguientes letras, si no hay - es que se suelta el Ctrl, > esa seria la diferencia entre C-x-s y C-x s, en el segundo caso tras > la x se suelta antes de apretar la s] > > Es dificil escribir de manera amigable una introduccion para eso (si > es que es posible). Aunque lo cierto es que todo eso se puede hacer > con clicks de raton desde el menu, pero bastante mas lento y no se > como sera la experiencia de usuario. > > Ignorando el tema de los atajos de teclado, un uso bastante recurrente > que hago yo es el tener diferentes sesiones de R abiertas en la misma > sesion de trabajo, y varias sesiones de emacs normalmente, una por > cada proyecto, en diferentes workspaces del escritorio. Si trabajo con > un mismo script puedo hacerlo en diferentes sesiones de R sin tener > que abrirlo mas de una vez (con el problema de que version guardar > despues) > > No se si te ayuda algo o no... > > Saludos > > Fer > > > El Jueves 23 de marzo de 2017 23:42, Fernando Macedo > escribió: > > > Buenas Fernando, podrías recomendar alguna lectura/tutorial/web para > alguien que siempre escucho hablar de las bondades del emacs pero nunca > lo usó? > Como para iniciantes. > > Gracias, saludos! > > Fernando Macedo > > > [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Alternativa a RStudio
Buenas Fernando, podrías recomendar alguna lectura/tutorial/web para alguien que siempre escucho hablar de las bondades del emacs pero nunca lo usó? Como para iniciantes. Gracias, saludos! Fernando Macedo El 21/03/17 a las 21:31, Fernando Arce via R-help-es escribió: Buenos dias, que tal? yo utilizo emacs ess (emacs speaking statistics). Para mi es de lejos la mejor herramienta para interactuar con R. No es lo mas sencillo de aprender, por la naturaleza de emacs, pero es lo mas completo. ESS da soporte a R, S-Plus, JAGS, Julia y algun otro scripting software, pero emacs basicamente da soporte a todo. Por ejemplo, los tres "clasicos" que mas se utilizan en mi entorno, R, matlab y python, pueden ejecutarse desde emacs, lo cual es una ventaja tener un mismo entorno de trabajo y no tres diferentes, sobre todo si se utiliza mayoritariamente 1 como es mi caso.Sin embargo, no es tan utilizado por la curva de aprendizaje (uno de los nombres chistosos no oficiales de EMACS es "Escape Meta Alter Control Shift", en una mañana de trabajo no se cuantas veces podré presional las teclas Control, Alter o Shift, pero varios cientos (o miles) minimo). No es algo que recomiende a todo el mundo, pero es una alternativa que a mi me satisface, no asi RStudio, que desinstalé del todo, y lo paso realmente mal cuando a veces interactuo con codigo en ordenadores de compañeros que tienen RStudio instalado. Me pasa como con ggplot2 (o con el tidyverse), aprendi a utilizar R-base para hacer graficos (bueno, sigo aprendiendo...) así que ahí me quedé. Llámame carroza o viejo, pero no me quites emacs :-D De todos modos tu llevas ya tiempo usando R asi que podrias ser un potencial usuario de emacs, pero solo lo recomiendo a gente que pase la mayor parte de su jornada delante de R o escribiendo R. Las demas alternativas tampoco las conozco demasiado como para opinar, probe bastantes (tinn-r, rackward etc...) y la unica que me gustó fue notepad++ con el plug-in NtppToR. Tinn-R recuerdo que era bastante "trendy" antes del advenimiento de R-Studio. Alguien lo usa? Saludos Fer El Miércoles 22 de marzo de 2017 10:19, "javier.ruben.marcu...@gmail.com" escribió: Estimado Fernando Si, cerré desde el administrador del sistema operativo, reinicié, reinstalé. Javier Rubén Marcuzzi De: Fernando Macedo Enviado: martes, 21 de marzo de 2017 20:16 Para: Marcuzzi, Javier CC: R-help-es Asunto: RE: [R-es] Alternativa a RStudio Probaste matando los procesos de R y RStudio directamente? El 21 mar. 2017 20:14, escribió: Estimado Fernando Macedo Encontré algo que dice sobre la indexación, como que iría creando un índice en algún lado para encontrar partes del código utilizado en autocompletar, o algo por el estilo. Estoy cambiando desde un archivo R notebook a R Markdown, sospecho que ese archivo hacía problemas, pero no estoy seguro, hace más de una hora que no puedo trabajar porque RStudio decide que se yo que. O se me ocurre una posibilidad, es que al cerrar guarda algo en memoria y continúa un proceso anterior (estaba con uno que demora algunas horas, pero la sesión se cerro, y no escribe nada informando algo como “continuando”). Javier Rubén Marcuzzi De: Fernando Macedo Enviado: martes, 21 de marzo de 2017 19:59 Para: Marcuzzi, Javier CC: R-help-es Asunto: Re: [R-es] Alternativa a RStudio Buscaste en Internet por posibles problemas? Entiendo que lo usas en Windows. En Linux no he tenido problemas de ese tipo. El 21 mar. 2017 19:48, escribió: Estimados Alguno utiliza una alternativa a RStudio, últimamente no me gusta como funciona, por ejemplo, al cargar una archivo (abrirlo) se coloca como a ejecutar algo, la consola no marca nada, pero pasa el tiempo y el administrador de tareas de Windows 10 informa como va aumentando los megas de ram que consume, y aparecen mensajes de JavaScript en algunas oportunidades (lo instale otra vez a ver que pasa, pero el consumo de memoria es “malo y no permite ejecutar nada”) Javier Rubén Marcuzzi [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Alternativa a RStudio
Probaste matando los procesos de R y RStudio directamente? El 21 mar. 2017 20:14, escribió: > Estimado Fernando Macedo > > > > Encontré algo que dice sobre la indexación, como que iría creando un > índice en algún lado para encontrar partes del código utilizado en > autocompletar, o algo por el estilo. > > > > Estoy cambiando desde un archivo R notebook a R Markdown, sospecho que ese > archivo hacía problemas, pero no estoy seguro, hace más de una hora que no > puedo trabajar porque RStudio decide que se yo que. > > > > O se me ocurre una posibilidad, es que al cerrar guarda algo en memoria y > continúa un proceso anterior (estaba con uno que demora algunas horas, pero > la sesión se cerro, y no escribe nada informando algo como “continuando”). > > > > Javier Rubén Marcuzzi > > > > *De: *Fernando Macedo > *Enviado: *martes, 21 de marzo de 2017 19:59 > *Para: *Marcuzzi, Javier > *CC: *R-help-es > *Asunto: *Re: [R-es] Alternativa a RStudio > > > > Buscaste en Internet por posibles problemas? Entiendo que lo usas en > Windows. En Linux no he tenido problemas de ese tipo. > > > > El 21 mar. 2017 19:48, escribió: > > Estimados > > Alguno utiliza una alternativa a RStudio, últimamente no me gusta como > funciona, por ejemplo, al cargar una archivo (abrirlo) se coloca como a > ejecutar algo, la consola no marca nada, pero pasa el tiempo y el > administrador de tareas de Windows 10 informa como va aumentando los megas > de ram que consume, y aparecen mensajes de JavaScript en algunas > oportunidades (lo instale otra vez a ver que pasa, pero el consumo de > memoria es “malo y no permite ejecutar nada”) > > > Javier Rubén Marcuzzi > > > [[alternative HTML version deleted]] > > ___ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > > > [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Alternativa a RStudio
Buscaste en Internet por posibles problemas? Entiendo que lo usas en Windows. En Linux no he tenido problemas de ese tipo. El 21 mar. 2017 19:48, escribió: > Estimados > > Alguno utiliza una alternativa a RStudio, últimamente no me gusta como > funciona, por ejemplo, al cargar una archivo (abrirlo) se coloca como a > ejecutar algo, la consola no marca nada, pero pasa el tiempo y el > administrador de tareas de Windows 10 informa como va aumentando los megas > de ram que consume, y aparecen mensajes de JavaScript en algunas > oportunidades (lo instale otra vez a ver que pasa, pero el consumo de > memoria es “malo y no permite ejecutar nada”) > > > Javier Rubén Marcuzzi > > > [[alternative HTML version deleted]] > > ___ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Asignación de objetos
Creo que este link te puede servir: http://stackoverflow.com/questions/1741820/assignment-operators-in-r-and Fernando Macedo El 09/03/17 a las 05:57, Álvaro Díez Ansotegui escribió: Gracias José Antonio, Entiendo por lo tanto que se puede usar indistintamente y aconsejan utilizar “<-“ para no llevar a un posible error. Gracias. Saludos!! Álvaro D. El 9 mar 2017, a las 9:49, José Antonio Palazón Ferrando escribió: Hola: Puedes considerar que: objeto <- expresión objeto = expresión 1. no es una igualdad, en realidad asignas el resultado de la expresión al objeto. 2. dado que existe los operadores '==', '!=' y usamos '=' para definir los valores de los argumentos en las funciones, pare bueno evitar otro uso para un símbolo frecuente y que podría llevar a algún error: función( objeto, argumento = expresión ) función( objeto1, objeto2 = expresión ) ¿No sé si te parece suficiente con esto? Seguimos El 09/03/17 a las 09:25, Álvaro Díez Ansotegui escribió: Buenas! Estoy introduciéndome a R desde el enfoque de las CC Sociales. Estando trabajando los manuales introductores (vectores, matrices, importación y exportación de bbdd, tratamiento de variables, etc..) me ha quedado una duda que los manuales no profundizan en resolver. Pocos textos no distinguen entre la asignación, tratan el “ = “ de la misma forma que “ <- “. Sin embargo, la mayoría aconseja utilizar en la asignación “<-“, pero no profundizan en el por qué. ¿Podría alguien explicar (sin restaros mucho tiempo) el porqué? Saludos Álvaro D. ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es -- José Antonio Palazón Ferrando Profesor Titular. Departamento de Ecología e Hidrología. Facultad de Biología. Universidad de Murcia. Campus Universitario de Espinardo 30100 MURCIA-SPAIN Telf: +34 868 88 49 80 Fax : +34 868 88 39 63 Email: pala...@um.es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Sobre gráficos
Un link que uso bastante para arrancar gráficos cuando no recuerdo bien los comandos o los argumentos es este http://www.cookbook-r.com/ No esperes encontrar nada espectacularmente para avanzados pero para arrancar esta bien y luego google para cosas específicas, en general en stack overflow se encuentran muchas de las dudas que puedan surgir. Espero sea de ayuda. Saludos! Fernando Macedo El 20/02/17 a las 12:17, Freddy Omar López Quintero escribió: 2017-02-20 11:10 GMT-03:00 hibiki : desgraciadamente no me abre, da un error, es que aki hay muchas restricciones absurdas que impiden el acceso incluso a sitios inofensivos pero bueno eso no viene al caso, ya tengo el link y en cuanto encuentre la via lo reviso Los temas que no vienen al caso también son importantes. Échale un vistazo al navegador tor https://www.torproject.org/projects/torbrowser.html.en ¡Salud! ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] fechas
Fijate si no puedes hacer lo siguiente en una planilla electrónica: en columnas aparte usa las funciones año() mes() y día() (libreoffice, en excel deben ser sin tilde, no deberían ser muy diferentes) si te toma los datos correctamente luego armas la fecha con fecha(y,m,d) o semejante. Yo he logrado obtener fechas desde formato de texto de esa forma, de repente te funciona. Las fechas son problemáticas en todos los lenguajes y planillas, todos tienen orígenes diferentes y no siempre se reconocen los formatos. Suerte. Fernando Macedo El 17/02/17 a las 16:39, eric escribió: hola javier, en R imagino que se podra hacer, pero en el pasado el mismo problema lo resolvi en una planilla electronica, creando una nueva columna con el formato correcto de fecha a partir de la columna "incorrecta". Lo que haces es tomar los datos desde la columna incorrecta usando las funciones de texto =right(celda,numero de caracteres) o =left(celda, numero de caracteres) ... por ejemplo, para tomar el año escribes =right(A2,2) y asi ... luego reconstruyes en un nueva columna la fecha correcta usando esas partes que has tomado. Eso. Saludos, Eric. On 02/17/2017 04:16 PM, Javier Valdes Cantallopts (DGA) wrote: Hola a todos. El otro día, al rescatar unos datos de una estación meteorológica, me percate que la fecha de estos traía un error bien raro, la fecha correcta debía ser *27/4/2014*.Sin embargo, el abrir la planilla, los valores de fechas se invirtieron a *“4/27/2014”* Yo necesito los valores en formato *y-m-d,* por ende intenté hacerlo en Excel, sin embargo me encontré con la sorpresa que esa *_“inversión de formato” es un error que Excel no reconoce._* Me fui a *R,* e intenté usando.. STRPTIME-…. LUBRIDATE..etc. Sin embargo, no obtuve resultados ya que en realidad el dato de la fecha en un *“error y no una fecha”.* La pregunta es la siguiente…existe alguna forma de desagregar la fecha quizás como carácter o factor, para después darle formato con LUBRIDATE.. por ejemplo?. Adjunto archivo. Saludos. CONFIDENCIALIDAD: La información contenida en este mensaje y/o en los archivos adjuntos es de carácter confidencial o privilegiada y está destinada al uso exclusivo del emisor y/o de la persona o entidad a quien va dirigida. Si usted no es el destinatario, cualquier almacenamiento, divulgación, distribución o copia de esta información está estrictamente prohibido y sancionado por la ley. Si recibió este mensaje por error, por favor infórmenos inmediatamente respondiendo este mismo mensaje y borre todos los archivos adjuntos. Gracias. CONFIDENTIAL NOTE: The information transmitted in this message and/or attachments is confidential and/or privileged and is intented only for use of the person or entity to whom it is addressed. If you are not the intended recipient, any retention, dissemination, distribution or copy of this information is strictly prohibited and sanctioned by law. If you received this message in error, please reply us this same message and delete this message and all attachments. Thank you. ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Saltar filas no numericas al importar csv
Si: Las filas no numéricas tienen algún patrón Estas en un ambiente linux (aunque actualmente también se puede hacer en windows) Y pensando fuera de R o usando system Puedes usar sed antes de levantar los datos: sed -i '/patrón/d' archivo.csv Saludos. Fernando Macedo El 14/09/16 a las 13:37, javier.ruben.marcu...@gmail.com escribió: Estimado Jesús Para Fernández Entonces entiendo que el problema no es justo el saltar filas no numéricas, posiblemente en el siguiente ejemplo se explique el problema. Los datos son algo como columnas y cada cierta cantidad un encabezado como Nombre Árbol identificación altura color Pino navidad Pino1 3 verde Pino2 2 verde claro …. … … … … Pino jardín Pino699 6 verde ¿Usted tiene los datos en un archivo de texto aproximado al ejemplo? Javier Rubén Marcuzzi De: Jesús Para Fernández [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Opinion/discusion segundo lenguaje
Buenas a todos, ando recabando opiniones al respecto de introducirme en un nuevo lenguaje (más allá del "hola mundo" que lo debo haber hecho cientos de veces). Particularmente no creo ser un gran programador en R pero me revuelvo con el google y la lista de compañeros logro sacar mis cosas adelante y he aprendido un montón en los últimos años. Por otro lado dado que trabajo con archivos de genotipados y semejantes he aprendido cosas básicas de sed y awk que me resuelven problemas curriculares. Lo cierto es que hace un tiempo se me ocurrió que tenía que aprender a usar (más profundamente) Python. Luego en intercambio de opiniones con otros compañeros ya me surgen las dudas. ¿Para que? Entiendo que R puede ser medio lerdo en algunas cosas pero con el desarrollo que ha tenido y mantiene muchas de sus limitaciones se han ido salvando y hay paquetes para paralelizar, vectorizar, etc que lo hacen cada vez más ágil. Sabiendo que en la lista hay muchos "poliglotas", ¿ustedes que opinan?, ¿vale la pena entrar en un lenguaje nuevo o continuar profundizando en R? Si vale la pena python, ¿en que cosas? ¿Archivos grandes? ¿Algún proceso en particular que es más efectivo? ¿conexión con base de datos? Me han surgido esas dudas, y aunque no sea una consulta específica de R me pareció apropiada e interesante para plantearla en la lista. Si les parece no apropiada pido mis disculpas de antemano. Saludos! -- Fernando Macedo ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Pivot tables con data.table
Muchas gracias, pensaba hacerlo en una sola línea pero no anda. Me quedo con dcast así no tengo que cargar más paquetes. Un abrazo! Fernando Macedo El 03/09/16 a las 14:26, Carlos J. Gil Bellosta escribió: reshape2 + dcast El día 3 de septiembre de 2016, 19:23, Fernando Macedo escribió: Buenas, estoy intentando hacer una especie de pivot tables con data.table pero no logro que me salga. Este código refleja un poco lo que quiero library(data.table) set.seed(1234) DT <- data.table(x=rep(c(1,2,3),each=30), y=letters[sample(1:3,30,replace = T,)], v=sample(1:100,30)) out <- DT[,list(N=.N),by=list(x,y)] Eso genera una salida como esta: x y N 1: 1 a 8 2: 1 b 10 3: 1 c 12 4: 2 a 8 5: 2 b 10 6: 2 c 12 7: 3 a 8 8: 3 b 10 9: 3 c 12 Que esta bien, pero lo que me interesa a mi es sacar una tabla con la siguiente estructura: x a b c 1 8 10 12 2 8 10 12 ... y así. Porque después quiero hacer frecuencias y me resulta más fácil para armar columnas de frecuencias seguidas de esas y queda mejor para presentar los datos también. La verdad que he buscado pero no logro dar con la tecla de hacerlo en un solo paso en data.table, o de repente no la hay. Desde ya agradezco su ayuda. Saludos! -- Fernando Macedo ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Pivot tables con data.table
Buenas, estoy intentando hacer una especie de pivot tables con data.table pero no logro que me salga. Este código refleja un poco lo que quiero library(data.table) set.seed(1234) DT <- data.table(x=rep(c(1,2,3),each=30), y=letters[sample(1:3,30,replace = T,)], v=sample(1:100,30)) out <- DT[,list(N=.N),by=list(x,y)] Eso genera una salida como esta: x y N 1: 1 a 8 2: 1 b 10 3: 1 c 12 4: 2 a 8 5: 2 b 10 6: 2 c 12 7: 3 a 8 8: 3 b 10 9: 3 c 12 Que esta bien, pero lo que me interesa a mi es sacar una tabla con la siguiente estructura: x a b c 1 8 10 12 2 8 10 12 ... y así. Porque después quiero hacer frecuencias y me resulta más fácil para armar columnas de frecuencias seguidas de esas y queda mejor para presentar los datos también. La verdad que he buscado pero no logro dar con la tecla de hacerlo en un solo paso en data.table, o de repente no la hay. Desde ya agradezco su ayuda. Saludos! -- Fernando Macedo ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] RV: zyka RD
A lo que dice Eric, le agregaria que te aseguraras no tener otro archivo
.csv en el directorio de trabajo, demas de los que te interesan. En todo
caso trabaja en un directorio vacío y guarda todos los reportes allí.
Saludos
Fernando Macedo
El 16/08/16 a las 21:30, eric escribió:
veo q tienen el mismo numero de columnas, asi es que los puedes leer
en R con read.csv(), los puedes unir en un unico data.frame con
rbind() y luego exportar a un archivo con write()
algo asi
filenames <- list.files(path
="/home2/neo/Tesis/4tesis/2.objesp/experimento/expnov/4fames/",
pattern="*.csv")
datos <- data.frame()
i <- 1
for (i in 1:length(filenames))
{
tmp <- read.csv(filenames[i], header=FALSE)
datos <- rbind.data.frame(datos,tmp)
}
write()
eso es lo que yo hago mas o menos, espero te sirva,
Saludos,
Eric.
On 08/16/2016 07:19 PM, Dr. José A. Betancourt Bethencourt wrote:
*De:*Dr. José A. Betancourt Bethencourt
[mailto:jbetanco...@iscmc.cmw.sld.cu]
*Enviado el:* martes, 16 de agosto de 2016 06:18
*Para:* 'r-help-es@r-project.org'
*Asunto:* zyka RD
Estimados
Quisiera saber cómo combinar varios archivos csv pero no de manera
manual, sino con un script
Saludos
José
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] ¿Qué hace as.numeric()?
Mira este enlace que dice basicamente lo mismo que te puse:
http://www.dummies.com/programming/r/how-to-convert-a-factor-in-r/
Saludos
El 4 de agosto de 2016, 11:32, Fernando Macedo escribió:
> En general lo que yo uso en esos casos es as.numeric(as.character(X))
>
> No se los términos correctos pero los factores aunque se muestren con los
> nombres de las diferentes clases, internamente son clases separadas que se
> nombran como enteros por ejemplo del 1 al n de clases. Cuando usas
> directamente as.nuemric sobre un factor, este toma los numeros de las
> clases y no el valor de clase.
>
> Fijate en el código que te mando a continuación y lo verás mejor:
>
>
> x=as.factor(letters[8:18])
> levels(x)
> labels(x)
>
> as.numeric(x)
> as.character(x)
>
>
> x=as.factor(8:18)
> levels(x)
> labels(x)
>
> as.numeric(x)
> as.character(x)
> as.numeric(as.character(x))
>
>
> Usé labels en el código aunque no se si son exatamente las labels de los
> factores, pero usandola ejemplifica justamente lo que digo.
>
> Para evitarme algunos problemas en general uso stringAsFactor=F cuando
> levanto datos porque algunas identificaciones alfanumericas las levanta
> como factores y si te comes eso luego gráficos por id o cosas así te salen
> con las labels de los factores y no con los valores en sí.
>
> Espero que fuera de ayuda, saludos
>
>
> Fernando Macedo
>
> El 04/08/16 a las 09:40, Mauricio Monsalvo escribió:
>
> Hola.
> Muchas gracias, Carlos y Javier.
> Les paso el scrip que utilicé y genera el problema raro, por si algún otro
> parámetro está mal indicado. La forma dec="," sí estaba indicada, pero
> podría estar en conflicto con otro parámetro, sin que yo lo sepa.
> No adjunto un pequeño recorte del archivo, porque al ser solo una parte, el
> problema no aparece... Y siendo más de 4,5 millones de registros, no es
> posible compartirlo con la lista y nomás abrirlo con un bloc de notas es
> molesto:
> pami <- read.table("Export.csv", header=T, sep=";", dec =",",
> # colClasses=c("Factor", "int", "int", "Factor",
> rep("numeric", 2),
> #rep("int", 4), rep("Factor", 3),
> "numeric", rep("Factor", 3)),
>encoding = "UTF-8", quote="\"", comment.char = "")
> Importé los datos con Acccess y por lo que veo, tengo razones para
> sospechar que parte de ese .cvs se generó a partir de .xls que tienen o
> bien totales o bien tablas dinámicas, en lugar de matrices de datos
> regulares. Básicamente, porque para algunas variables de interés
> (factores), aparecen las filas el nombre de la variable y (v.g., en la
> variable LABORATORIO no aparece el nombre de un laboratorio sino el "valor"
> LABORATORIO y en PRODUCTO aparece el valor PRODUCTO mientras que el resto
> de las variables dan NULL).-
> Si eso es cierto, entonces, ¿puedo indicarle al R que importe todos los
> registros salvo aquellos en los que las variables a,b tengan los valores
> i,j? ¿tengo alguna forma de utilizar un ifelse al importar? De esa forma
> evitaría que read.table incorpore filas que vaya uno a saber qué tipo de
> datos tienen y eso podría ser que antes o luego, al convertir los tipos de
> datos, solo pierda aquellos que son basura pero no que el resultado sea
> impredecible.
> Un plan b que utilicé (siempre me fallan los planes b!!) es colClasses pero
> me apareció el problema de "valor inesperado: se espera un real y se obtuvo
> un 4,5%", etc. Si pudiera indicarle que al R que yo también espero un tipo
> de datos dado (v.g. un entero, un número, un factor) y que estamos de
> acuerdo en eso, así que cuando encuentro algo que no sea lo esperado lo
> convierta en NA, creo que también podría resolver la otra parte del
> problema que tiene mi archivo.
> Con importar los datos desde el access resolví mi problema, pero no mi
> duda: ¿por qué as.numeric "transforma" los valores? ¿Qué puede hacer que
> transforme 753,2256 a 61343 o
>
> 62,7688
> a
> 17390? ¿Es alguna forma de "corrupción" o en alguna variante es algo
> esperable?
> Es claro que lo mejor que puedo hacer es volver a generar ese .csv sin
> errores, pero no estaría dentro de mis posibilidades a mano.
> Perdón por tantas dudas y preguntas, pero al ser un archivo de mucho peso,
> cada prueba y error consume demasiado tiempo (y memoria!!!), así que una
> mejor comprensión previa, teórica, del proceso me ayuda mucho.
> Gracias.
>
> El 3 de agosto de 2016, 18:28, Carlos Ortega
>
> escribió:
>
>
> Tranquilo que no te han
Re: [R-es] ¿Qué hace as.numeric()?
En general lo que yo uso en esos casos es as.numeric(as.character(X))
No se los términos correctos pero los factores aunque se muestren con los
nombres de las diferentes clases, internamente son clases separadas que se
nombran como enteros por ejemplo del 1 al n de clases. Cuando usas
directamente as.nuemric sobre un factor, este toma los numeros de las
clases y no el valor de clase.
Fijate en el código que te mando a continuación y lo verás mejor:
x=as.factor(letters[8:18])
levels(x)
labels(x)
as.numeric(x)
as.character(x)
x=as.factor(8:18)
levels(x)
labels(x)
as.numeric(x)
as.character(x)
as.numeric(as.character(x))
Usé labels en el código aunque no se si son exatamente las labels de los
factores, pero usandola ejemplifica justamente lo que digo.
Para evitarme algunos problemas en general uso stringAsFactor=F cuando
levanto datos porque algunas identificaciones alfanumericas las levanta
como factores y si te comes eso luego gráficos por id o cosas así te salen
con las labels de los factores y no con los valores en sí.
Espero que fuera de ayuda, saludos
Fernando Macedo
El 04/08/16 a las 09:40, Mauricio Monsalvo escribió:
Hola.
Muchas gracias, Carlos y Javier.
Les paso el scrip que utilicé y genera el problema raro, por si algún otro
parámetro está mal indicado. La forma dec="," sí estaba indicada, pero
podría estar en conflicto con otro parámetro, sin que yo lo sepa.
No adjunto un pequeño recorte del archivo, porque al ser solo una parte, el
problema no aparece... Y siendo más de 4,5 millones de registros, no es
posible compartirlo con la lista y nomás abrirlo con un bloc de notas es
molesto:
pami <- read.table("Export.csv", header=T, sep=";", dec =",",
# colClasses=c("Factor", "int", "int", "Factor",
rep("numeric", 2),
#rep("int", 4), rep("Factor", 3),
"numeric", rep("Factor", 3)),
encoding = "UTF-8", quote="\"", comment.char = "")
Importé los datos con Acccess y por lo que veo, tengo razones para
sospechar que parte de ese .cvs se generó a partir de .xls que tienen o
bien totales o bien tablas dinámicas, en lugar de matrices de datos
regulares. Básicamente, porque para algunas variables de interés
(factores), aparecen las filas el nombre de la variable y (v.g., en la
variable LABORATORIO no aparece el nombre de un laboratorio sino el "valor"
LABORATORIO y en PRODUCTO aparece el valor PRODUCTO mientras que el resto
de las variables dan NULL).-
Si eso es cierto, entonces, ¿puedo indicarle al R que importe todos los
registros salvo aquellos en los que las variables a,b tengan los valores
i,j? ¿tengo alguna forma de utilizar un ifelse al importar? De esa forma
evitaría que read.table incorpore filas que vaya uno a saber qué tipo de
datos tienen y eso podría ser que antes o luego, al convertir los tipos de
datos, solo pierda aquellos que son basura pero no que el resultado sea
impredecible.
Un plan b que utilicé (siempre me fallan los planes b!!) es colClasses pero
me apareció el problema de "valor inesperado: se espera un real y se obtuvo
un 4,5%", etc. Si pudiera indicarle que al R que yo también espero un tipo
de datos dado (v.g. un entero, un número, un factor) y que estamos de
acuerdo en eso, así que cuando encuentro algo que no sea lo esperado lo
convierta en NA, creo que también podría resolver la otra parte del
problema que tiene mi archivo.
Con importar los datos desde el access resolví mi problema, pero no mi
duda: ¿por qué as.numeric "transforma" los valores? ¿Qué puede hacer que
transforme 753,2256 a 61343 o
62,7688
a
17390? ¿Es alguna forma de "corrupción" o en alguna variante es algo
esperable?
Es claro que lo mejor que puedo hacer es volver a generar ese .csv sin
errores, pero no estaría dentro de mis posibilidades a mano.
Perdón por tantas dudas y preguntas, pero al ser un archivo de mucho peso,
cada prueba y error consume demasiado tiempo (y memoria!!!), así que una
mejor comprensión previa, teórica, del proceso me ayuda mucho.
Gracias.
El 3 de agosto de 2016, 18:28, Carlos Ortega
escribió:
Tranquilo que no te han hackeado tu "R"...
Simplemente que al importar tu CSV, no has indicado que los decimales son
las ",". Y ese campo lo importa como un character (un string). Y cuando lo
conviertes a numeric, el resultado es un tanto impredecible.
Si utilizas read.table para importar, simplemente incluye el parámetro
"dec" de esta forma "read.table(. , *dec = ","*). Esta vez, esa
columna será numeric directamente.
Saludos,
Carlos Ortegawww.qualityexcellence.es
El 3 de agosto de 2016, 23:05,
escribió:
Estimado Mauricio Monsalvo
Usted dice que el csv es muy pesado y sucio, por lo cuál es posible que
su trabajo en R sea correcto, pero co
Re: [R-es] Exportar datos en formato de Excel
Que error te dá el uso de xlsx? Lo he probado tanto en windows 10 como en Ubuntu 16.04 y no he tenido problemas. Saludos Fernando Macedo El 26/07/16 a las 07:22, Alexa Aristizabal escribió: Buenos días a todos! Estoy trabajando con una base de datos que directamente he descargado de internet y después de prepararla un poco necesito exportarla a Excel he intentando con las dos opciones que mencionaré al final pero ninguna funciona, de qué otra manera puedo exportar esos datos a Excel... muchas gracias por su ayuda y pronta respuesta! 1) library(xlsx) library(rJava) library(xlsxjars) write.xlsx(mydata, file="mydata.xlsx") 2) library(xlsReadWrite) #abrimos el paquete write.xls(prueba, file="datanueva.xls",sheet="lapop10") [[alternative HTML version deleted]] ___ R-help-es mailing listR-help-es@r-project.orghttps://stat.ethz.ch/mailman/listinfo/r-help-es [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Codigo
Hola, yo en general uso una opción más desprolija y que puede ser menos
efectiva pero si la cantidad de lotes no es excesiva no sería
extremadamente
lenta.
Uso for() en general usando los datos de id de los animales, lotes u lo
que sea.
# inicializo una variable para almacenar resultados
salidas=NULL
for( i in unique(data$id)){
tmp=data[data$id==i,]
.
salidas=rbind(salidas,"salidas")
}
De ahí saco lm, plots etc para cada subset de datos.
Igual no es la mejor solución pero me saca del paso.
Saludos
F. Macedo
El 30/05/16 a las 11:06, Carlos Ortega escribió:
> Hola,
>
> Puedes utilizar el código de Oliver utilizando la librería "broom" que
> permite obtener los parámetros (coeficientes) y características del modelo
> (null.deviance, AIC, BIC) en un cómodo data.frame
>
> El código sería algo así como esto.
>
> library(broom)
> L <- list(L1, L2..., L120)
>
> ajuste <- function(L) {
> g <- glm(y ~., data = L)
> g_df <- tidy(g) #tidy es una función del paquete "broom" que
> devuelve los coeficientes y sus errores.
> return(g_df)
> }
>
> fit <- apply(L, ajuste)
>
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
> El 30 de mayo de 2016, 15:15, Andres Hirigoyen
> escribió:
>
>> Oliver gracias por le pista!
>> Es un poco mas complicado, el código tiene varios pasos incluidos calculo
>> de nuevas variables con los betas del glm y otras vueltas. Necesitaría una
>> sentencia que tome cada lote haga los cálculos por separado y luego los une
>> en el dataframe de salida
>>
>> El 30 de mayo de 2016, 10:02, Olivier Nuñez escribió:
>>
>>> Mira lapply
>>>
>>> Si L= list(L1,L2,...,L120) es una lista de tus lotes
>>>
>>> ajuste <- function(L) glm(y~x,data=L)
>>> fit=lapply(L1,ajuste)
>>>
>>> donde "fit" es la lista de 120 ajustes.
>>>
>>> Un saludo. Olivier
>>>
>>> - Mensaje original -
>>> De: "Andres Hirigoyen"
>>> Para: r-help-es@r-project.org
>>> Enviados: Lunes, 30 de Mayo 2016 14:55:19
>>> Asunto: [R-es] Codigo
>>>
>>> Buenos días tengo una consulta sobre un código rutinario que quiero
>>> ejecutar.
>>>
>>> Tengo 120 Lotes con un ID diferente (del C001 al C120) a cada uno de los
>>> cuales debo efectuares un GLM y con los parámetros obtenidos calcular
>> otras
>>> variables para luego hacer gráficas, razón por la cual no puedo
>> procesarlos
>>> todos juntos.
>>> Intente hacer una sentencia repeat() o con for() para que me ejecute de
>>> forma individual cada lote y no tener que hacerlo a mano, pero no me
>>> sale...
>>> ¿¿Alguna idea??
>>>
>>> [[alternative HTML version deleted]]
>>>
>>> ___
>>> R-help-es mailing list
>>> R-help-es@r-project.org
>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
>
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] usar R a traves de la web
Talvez esta te pueda servir: http://pbil.univ-lyon1.fr/Rweb/ Por lo que vi trabaja con la versión 3.1.1. Saludos. Fernando Macedo El 06/03/16 a las 12:28, eric escribió: Hola Jesus, muchas gracias, esta opcion se ve bastante bien, aunque no encuentro un modo de subir mis archivos de datos, pero debe poderse, no ? Muchas gracias, Eric. On 03/05/2016 09:03 AM, Jesús Para Fernández wrote: Buscas algo asi? http://www.r-fiddle.org/#/ > From: ericconchamu...@gmail.com > To: r-help-es@r-project.org > Date: Sat, 5 Mar 2016 09:01:42 -0300 > Subject: [R-es] usar R a traves de la web > > Estimada comunidad, para mi trabajo uso latex y R normalmente, ahora > debo viajar sin mi portatil, pero tengo la opcion de llevar un pequeño > tablet (con android) ... para suplir latex he estado usando > www.overleaf.com y trabaja excelente, practicamente todos los paquetes > que uso estan disponibles ahi ... pero no he encontrado algo similar para R. > > Saben ustedes si existe algun proyecto que permita usar R en la web ? ya > he mirado muchas opciones > ( https://nsaunders.wordpress.com/2009/11/30/a-brief-survey-of-r-web-interfaces/) > como las de Rstudio (tengo android, no puedo instalar R en el tablet), > tampoco tengo la opcion de instalar un RApache por ejemplo, pero ninguna > me sirve ... necesito una pagina en que simplemente entre, pegue el > codigo y me devuelva las salidas sin tener que instalar nada localmente. > > Muchas gracias, > > Eric. > > > > -- > Forest Engineer > Master in Environmental and Natural Resource Economics > Ph.D. student in Sciences of Natural Resources at La Frontera University > Member in AguaDeTemu2030, citizen movement for Temuco with green city > standards for living > > Nota: Las tildes se han omitido para asegurar compatibilidad con algunos > lectores de correo. > > ___ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] XLConnect
No trabajo en windows, pero talvez este hilo te pueda ayudar: http://stackoverflow.com/questions/29522088/rjava-install-error-java-home-cannot-be-determined-from-the-registry Saludos DMTV Fernando Macedo Asistente del área Mejoramiento Genético Facultad de Veterinaria - UdelarR - Uruguay Tel: 26284291 Cel.: 098596947 ferm...@gmail.com El 20/02/16 a las 10:26, Andres Hirigoyen escribió: Estimados estoy teniendo problema con el paquete XLConnect, por lo que averigüe es un tema de 32 vs 64 ya que cambié de pc. El error es el siguiente Loading required package: XLConnectJars Error : .onLoad failed in loadNamespace() for 'rJava', details: call: fun(libname, pkgname) error: JAVA_HOME cannot be determined from the Registry Error: package ‘XLConnectJars’ could not be loaded Tengo varios informes hechos con este paquete y necesito usarlo. Gracias por las ideas Andres [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Corregir mismo ID para individuos diferentes en una serie temporal
Buenas, si tienes la fecha de nacimiento una salida sencilla para salir
del paso es concatenar el ID con el año de nacimiento.
Saludos
Fernando Macedo
El 25/01/16 a las 14:11, Ruben Bermad escribió:
> Hola a todos,
> Quer�a preguntar si alguno sabe como puedo identificar registros con un mismo
> ID en el tiempo, pero que hacer referencia a objetos o individuos diferentes.
> En mi caso en particular estoy estudiando un animal que tiene una vida media
> cercana 2 a�os, y tengo una serie longitudinal de 25 a�os. El problema es que
> durante el muestreo en algunos casos durante la recoleccion de los datos, se
> repitieron los nombres de los individuos porque se asumen que si ha pasado 10
> a�os no puede ser el mismo individuo. Y el problema que yo tengo es que no se
> como detectar de manera autom�tica este tipo de errores.
> Hab�a pensado era en registrar la primera aparici�n de cada nombre (e.g
> indiv_1, y ver el tiempo que ha pasado en comparaci�n con el resto de
> registros para ese mismo individuo, y en el caso que fuera superior (por
> ejemplo a 36 meses para estar totalmente seguros), que ese individuo que
> hab�a sido registrado como "indiv_1" sea renombrado (e.g. indiv_150), y
> cambiar todos los siguientes registros de indiv_1 a indiv_150.
> Esto parece sencillo, pero lo complicado al revisar todos los casos nombrados
> ahora como indiv_150 ya que es posible que el nombre indiv_1 haya sido usado
> para varios individuos diferentes a lo largo de la serie (e.g. en el a�o 1,
> 10 y 20). Entonces lo que hab�a pensado es hacer un bucle para cada
> individuo, pero no consigo que cada vez que cambia el nombre de un individuo
> (e.g. en el a�o 10) capture la nueva fecha para determinar si los siguientes
> nombres hacen referencia al mismo individuo u a otro muy posterior en el
> tiempo (e.g. a�o 20).
> Esta pregunta la pregunte hace tiempo en
> stackoverflowhttp://stackoverflow.com/questions/32310520/identify-objects-with-repeated-measures-and-with-the-same-id-between-years,
> pero no obtuve una respuesta que solucionara el problema, y los posteriores
> intentos que he estado haciendo tampoco han sido muy buenos que se digan (os
> lo copio al final del mensaje).
> Por ello os quer�a preguntar si alguno sabe como puedo ir registrando y
> cambiando los IDs a lo largo del tiempo.
> Muchas gracias por adelantado, Un cordial saludo, Rub�n
> Codigo usadodatabase es la base de datos con la serie temporalID_original es
> el identificado original que tiene cada individuoMonth_Capt es la variable
> que me indica en que momento fue capturado cada individuo y por tanto si es
> posible o no que el individuo sea el mismo a lo largo del tiempo.
> newID <-sapply(unique(database$ID_original), function(x)
> c(0,cumsum(diff(database$Month_Capt[database$ID_original==x]))%%48))names(newID)<-(unique(database$ID_original))
> new_df<-data.frame(database$ID_original,database$Month_Capt,IDcond=NA,new_ID=NA)for(i
> in unique(database$ID_original)){
> new_df[new_df[,1]==i,3]<-newID[[which(unique(database$ID_original)==i)]]}ltrs<-c(LETTERS,apply(combn(LETTERS,2,simplify
> = T),2,function(x) paste(x,sep = "",collapse = "")))
> letterwrap <- function(n, depth = 1) { args <- lapply(1:depth, FUN =
> function(x) return(LETTERS)) x <- do.call(expand.grid, args = list(args,
> stringsAsFactors = F)) x <- x[, rev(names(x)), drop = F] x <-
> do.call(paste0, x) if (n <= length(x)) return(x[1:n]) return(c(x,
> letterwrap(n - length(x), depth = depth + 1)))}
> ltrs <- letterwrap(nrow(database)) # Create as many letters as unique IDs
>
> ltrn<-0for(i in 1:nrow(new_df)){ if(new_df[i,3]==0)
> {ltrn<-ltrn+1;new_df[i,4]<-ltrs[ltrn]} else
> {ind<-which(new_df[,1]==new_df[i,1])ind<-ind[ind new_df[i,4]<-tail(new_df[ind,4],1)}}
>
> [[alternative HTML version deleted]]
>
>
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] problema as.numeric
Otra cosa que se puede hacer con factors es usar as.numeric(as.character(x$factor)) Saludos DMTV Fernando Macedo Asistente del área Mejoramiento Genético Facultad de Veterinaria - UdelarR - Uruguay Tel: 26284291 Cel.: 098596947 ferm...@gmail.com El 10/11/2015 a las 04:47 p.m., Javier Rubén Marcuzzi escribió: Gracias Carlos Javier Rubén Marcuzzi Técnico en Industrias Lácteas Veterinario De: Carlos Ortega Enviado: martes, 10 de noviembre de 2015 16:43 Para: Javier Rubén Marcuzzi CC: r-help-es@r-project.org Asunto: Re: [R-es] problema as.numeric Hola, b$Edad es un "factor". En vez de convertir a "numeric", convierte a "vector" b$Edad <- as.vector(b$Edad) Saludos, Carlos Ortega www.qualityexcellence.es El 10 de noviembre de 2015, 20:31, Javier Rubén Marcuzzi escribió: Estimados Hay un problema, miren lo que sale en b$Edad, esos valores son correctos, pero luego realizo str$Edad, aparecen 24, 24, 24, 5 …. , convierto a números con b$Edad <- as.numeric(b$Edad) y los valores son 24, 24, 25 … (valores que no son reales). Es fácil, lo realice muchas veces pero ahora estoy confundido. ¿Alguna ayuda? Gracias b$Edad [1] 5 5 5 0,5 0,5 5 5 2 9 9 9 9 9 9 9 9 9 [18] 7 7 5 16 16 0,3 2 5 5 5 5 7 7 7 4 4 4 [35] 4 13 5 5 5 0,3 0,3 0,3 6 6 7 10 10 10 3 0,9 0,9 [52] 0,9 10 8 8 8 8 3 3 3 10 10 10 1 15 15 15 3 [69] 3 2 2 8 8 11 11 11 0,1 0,1 0,1 0,1 3 12 10 10 10 [86] 3 3 3 4 2 0,3 0,3 0,3 10 0,8 0,8 0,8 8 8 8 1 1 [103] 1 1 1 8 7 5 3 6 4 16 17 11 9 10 [120] 1 2 2 2 3 13 14 5 5 3 3 6 4 7 1,4 0,4 [137] 6 2 3 4 10 9 7 9 8 8 8 8 8 10 13 13 0,8 [154] 1,8 6 7 1 1 5 8 8 10 9 8 2 2 2 7 10 9 [171] 8 10 10 10 0,4 4 6 5 3 2 2 10 8 9 4 4 11 [188] 11 6 5 7 4 5 4 0,5 0,5 0,7 12 12 14 14 [205] 16 15 8 8 4 0,4 1,4 0,4 2,4 0,4 5 6 4 2 3 2 2 [222] 4 4 4 4 1 2 3 6 7 1 2 7 7 28 Levels: 0,1 0,3 0,4 0,5 0,7 0,8 0,9 1 1,4 1,8 10 11 12 13 14 15 ... 9 str(b$Edad) Factor w/ 28 levels "","0,1","0,3",..: 24 24 24 5 5 24 24 20 28 28 ... b$Edad <- as.numeric(b$Edad) str(b$Edad) num [1:234] 24 24 24 5 5 24 24 20 28 28 ... Javier Rubén Marcuzzi Técnico en Industrias Lácteas Veterinario [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es --- El software de antivirus Avast ha analizado este correo electrónico en busca de virus. https://www.avast.com/antivirus ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Crear un GUI para R con tcltk
No opinaré sobre el código puesto que no lo leí. Pero comentar que en
particular he tenido problemas copiando datos desde excel, en general me
resulta mejor copiarlos de excel, pegarlos en un editor de texto
cualquiera y luego copiarlos a R. Por que? Ni idea, como lo he usado
puntualmente no me he puesto a profundizar en el tema, pero he tenido
ese problema.
Saludos
DMTV Fernando Macedo
Ayudante del área Mejoramiento Genético
Facultad de Veterinaria - UdelarR - Uruguay
Tel: 26284291
Cel.: 098596947
ferm...@gmail.com
El 08/07/15 a las 09:54, Jesús Para Fernández escribió:
> BUenas,
>
> Quiero crear un GUI muy simple, el cual consiste en una ventana, que al
> abrirse tiene dos botones. El primer boton, copiar, es un boton que ejecutar�a
>
> datos<-read.table("clipboard",header=T,dec=",",sep="\t")
>
> Y el segundo boton muestra todos los data.frames que hay en R
>
> Para ello, estoy usando tcltk, por lo que hago lo siguiente:
>
> require(tcltk)
> tt <- tktoplevel()
> tktitle(tt) <- "Mi primer programa"
>
> # Create a variable to keep track of the state of the dialog window:
> # If the window is active,done = > 0
> # If the window has been closed using the OK button, done =
> 1
> # If the window has been closed using the Cancel button or destroyed, done =
> 2
> done <- tclVar(0) # tclVar() creates a Tcl variable
>
> # Create two buttons and for each one, set the value of the done variable
> # to an appropriate value
> OK.but <- tkbutton(tt, text = " OK ",
> command = function() tclvalue(done) <- 1)
> Cancel.but <- tkbutton(tt, text = "Cancel",
> command = function() tclvalue(done) <- 2)
>
> # Place the two buttons on the same row in their assigned window (tt)
> tkgrid(OK.but, Cancel.but)
>
> # Capture the event "Destroy" (e.g. Alt-F4 in Windows) and when this happens,
> # assign 2 to done
> tkbind(tt, "", function() tclvalue(done) <- 2)
>
> tkfocus(tt) # Place the focus to our tk window
>
> # Do not proceed with the following code until the variable done is non-zero.
> # (but other processes can still run, i.e., the system is not frozen)
> tkwait.variable(done)
>
> # The variable done is now non-zero, so we would like to record its value
> before
> # destroying the window tt. If we destroy it first, then done will be set to
> 2
> # because of our earlier binding, but we want to determine whether the user
> # pressed OK (i.e., see whether done is equal to 1)
>
> doneVal <- as.integer(tclvalue(done)) # Get and coerce content of a Tcl
> variable
> tkdestroy(tt)
>
> # Test the result
> if (doneVal == 1) {
> datos<-read.table("clipboard",header=T,dec=",",sep="\t")
> }
> if (doneVal == 2) {
> ls()
> }
>
>
> Esto funciona al crearlo en el script de R, pero el poortapapeles no me copia
> las celdas de excel, sino todo el c�digo anterior.
>
> Podeis echarme una mano??
>
> Gracias!!!
>
> [[alternative HTML version deleted]]
>
>
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Problema con loop
Muchas gracias!
En sí el problema que estaba tratando de resolver hace a un curso de
modelos más que nada. Solo quería mejorar la performance porque un
proceso del ejercicio llevaba mucho tiempo. De todas formas estas
funciones me serán muy útiles para otras cosas que tengo planeadas.
Muchas gracias a ambos que de verdad son el motor principal del grupo!
Saludos!!
Fernando Macedo
El 05/07/15 a las 13:27, Carlos J. Gil Bellosta escribió:
Hola, ¿qué tal?
Si quieres mejorar la velocidad de ese cálculo puedes probar estas dos cosas:
1) Precalcular la matriz del modelo (?model.matrix)
2) Usar lm.fit en lugar de lm (?lm.fit)
No es una vía sencilla pero si de verdad quieres mejorar el
rendimiento no te queda otra que eliminar recálculos.
Saludo,
Carlos J. Gil Bellosta
http://www.datanalytics.com
El día 5 de julio de 2015, 17:50, Fernando Macedo escribió:
Hola Jorge.
Usando sapply mejoró un poco pero no demasiado en realidad.
Una vez lo estuve relojeando a mclapply (y otras funciones de ese paquete),
pero no probé mas allá de algunos ejemplos. Voy a terminar este trabajo y
lo pruebo, ya te contaré cuanto mejoró.
Un abrazo y gracias nuevamente!
El 5 de julio de 2015, 11:27, Jorge I Velez
escribió:
De nada, Fernando.
Otra alternativa es usando mclapply() en el paquete "parallel". Estoy en
Mac/Linux y funciona muy bien. Seguramente hay algunos equivalentes en
Windows.
Saludos,
Jorge Velez
JCSMR, Canberra
2015-07-04 12:17 GMT+10:00 Fernando Macedo :
Muchas gracias Jorge!
Si la opción del loop con for ya la tenía implementada y me demora
bastante por eso quería probar con apply o en este caso sapply, muchas
gracias!
Saludos!!
F Macedo
El 03/07/15 a las 23:09, Jorge I Velez escribió:
Hola Fernando,
Podrias considerar las siguientes opciones:
R2 <- vector("list", x)
for(i in 1:x){
modelo <- lm(y ~ efectos[, 1:i])
R2[[i]] <- summary(modelo)$r.squared
}
R2
opt2 <- sapply(1:x, function(i){
modelo <- lm(y ~ efectos[, 1:i])
summary(modelo)$r.squared
})
opt2
Para mas información revisa ?sapply, ?lapply y ?lm. En caso de que
necesites otros parámetros del modelo de regresión, te sugiero revisar el
resultado de
modelo <- lm(y ~ efectos[, 2])
names(summary(modelo))
Saludos cordiales,
Jorge Velez
JCSMR, Canberra
2015-07-04 12:01 GMT+10:00 Fernando Macedo :
Buenas a todos, acá estoy yo de nuevo con problemas de loops.
Tengo el siguiente problema: un vector de datos (y) y una serie de
efectos. El loop lo que intenta es evaluar el R² de modelos incrementando
por vuelta una variable efecto.
Seria algo así:
for(i in 1:x) {
modelo=lm(y~efectos[,1:i])
... codigo para guardar R² y otros por cada vuelta...
}
apply() puede ir columna a columna pero no sé como hacer para que me
vaya "acumulando columnas" por así decir. De echo no se si puede hacer.
Espero haberme explicado y como siempre agradezco de antemano la
atención.
Un abrazo!
--
Fernando Macedo
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
--
Fernando Macedo
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Problema con loop
Hola Jorge.
Usando sapply mejoró un poco pero no demasiado en realidad.
Una vez lo estuve relojeando a mclapply (y otras funciones de ese paquete),
pero no probé mas allá de algunos ejemplos. Voy a terminar este trabajo y
lo pruebo, ya te contaré cuanto mejoró.
Un abrazo y gracias nuevamente!
El 5 de julio de 2015, 11:27, Jorge I Velez
escribió:
> De nada, Fernando.
>
> Otra alternativa es usando mclapply() en el paquete "parallel". Estoy en
> Mac/Linux y funciona muy bien. Seguramente hay algunos equivalentes en
> Windows.
>
> Saludos,
>
> Jorge Velez
> JCSMR, Canberra
>
>
>
> 2015-07-04 12:17 GMT+10:00 Fernando Macedo :
>
>> Muchas gracias Jorge!
>>
>> Si la opción del loop con for ya la tenía implementada y me demora
>> bastante por eso quería probar con apply o en este caso sapply, muchas
>> gracias!
>>
>> Saludos!!
>>
>> F Macedo
>>
>> El 03/07/15 a las 23:09, Jorge I Velez escribió:
>>
>> Hola Fernando,
>>
>> Podrias considerar las siguientes opciones:
>>
>> R2 <- vector("list", x)
>> for(i in 1:x){
>> modelo <- lm(y ~ efectos[, 1:i])
>> R2[[i]] <- summary(modelo)$r.squared
>> }
>> R2
>>
>> opt2 <- sapply(1:x, function(i){
>> modelo <- lm(y ~ efectos[, 1:i])
>>summary(modelo)$r.squared
>> })
>> opt2
>>
>> Para mas información revisa ?sapply, ?lapply y ?lm. En caso de que
>> necesites otros parámetros del modelo de regresión, te sugiero revisar el
>> resultado de
>>
>> modelo <- lm(y ~ efectos[, 2])
>> names(summary(modelo))
>>
>> Saludos cordiales,
>>
>> Jorge Velez
>> JCSMR, Canberra
>>
>>
>> 2015-07-04 12:01 GMT+10:00 Fernando Macedo :
>>
>>> Buenas a todos, acá estoy yo de nuevo con problemas de loops.
>>>
>>> Tengo el siguiente problema: un vector de datos (y) y una serie de
>>> efectos. El loop lo que intenta es evaluar el R² de modelos incrementando
>>> por vuelta una variable efecto.
>>>
>>> Seria algo así:
>>>
>>> for(i in 1:x) {
>>> modelo=lm(y~efectos[,1:i])
>>> ... codigo para guardar R² y otros por cada vuelta...
>>> }
>>>
>>> apply() puede ir columna a columna pero no sé como hacer para que me
>>> vaya "acumulando columnas" por así decir. De echo no se si puede hacer.
>>>
>>> Espero haberme explicado y como siempre agradezco de antemano la
>>> atención.
>>>
>>> Un abrazo!
>>>
>>> --
>>> Fernando Macedo
>>>
>>> ___
>>> R-help-es mailing list
>>> R-help-es@r-project.org
>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>
>>
>>
>>
>
--
Fernando Macedo
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Problema con loop
Muchas gracias Jorge!
Si la opción del loop con for ya la tenía implementada y me demora
bastante por eso quería probar con apply o en este caso sapply, muchas
gracias!
Saludos!!
F Macedo
El 03/07/15 a las 23:09, Jorge I Velez escribió:
> Hola Fernando,
>
> Podrias considerar las siguientes opciones:
>
> R2 <- vector("list", x)
> for(i in 1:x){
> modelo <- lm(y ~ efectos[, 1:i])
> R2[[i]] <- summary(modelo)$r.squared
> }
> R2
>
> opt2 <- sapply(1:x, function(i){
>modelo <- lm(y ~ efectos[, 1:i])
>summary(modelo)$r.squared
> })
> opt2
>
> Para mas información revisa ?sapply, ?lapply y ?lm. En caso de que
> necesites otros parámetros del modelo de regresión, te sugiero revisar
> el resultado de
>
> modelo <- lm(y ~ efectos[, 2])
> names(summary(modelo))
>
> Saludos cordiales,
>
> Jorge Velez
> JCSMR, Canberra
>
>
> 2015-07-04 12:01 GMT+10:00 Fernando Macedo <mailto:ferm...@gmail.com>>:
>
> Buenas a todos, acá estoy yo de nuevo con problemas de loops.
>
> Tengo el siguiente problema: un vector de datos (y) y una serie de
> efectos. El loop lo que intenta es evaluar el R² de modelos
> incrementando por vuelta una variable efecto.
>
> Seria algo así:
>
> for(i in 1:x) {
> modelo=lm(y~efectos[,1:i])
> ... codigo para guardar R² y otros por cada vuelta...
> }
>
> apply() puede ir columna a columna pero no sé como hacer para que
> me vaya "acumulando columnas" por así decir. De echo no se si
> puede hacer.
>
> Espero haberme explicado y como siempre agradezco de antemano la
> atención.
>
> Un abrazo!
>
> --
> Fernando Macedo
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org <mailto:R-help-es@r-project.org>
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Problema con loop
Buenas a todos, acá estoy yo de nuevo con problemas de loops.
Tengo el siguiente problema: un vector de datos (y) y una serie de
efectos. El loop lo que intenta es evaluar el R² de modelos
incrementando por vuelta una variable efecto.
Seria algo así:
for(i in 1:x) {
modelo=lm(y~efectos[,1:i])
... codigo para guardar R² y otros por cada vuelta...
}
apply() puede ir columna a columna pero no sé como hacer para que me
vaya "acumulando columnas" por así decir. De echo no se si puede hacer.
Espero haberme explicado y como siempre agradezco de antemano la atención.
Un abrazo!
--
Fernando Macedo
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Ayuda boxplot ggplot2
Fijate si te sirve este enlace:
http://stackoverflow.com/questions/3606697/how-to-set-limits-for-axes-in-ggplot2-r-plots
Creo que solamente agregando
+ ylim("min","max)
deber�a funcionar
Saludos
DMTV Fernando Macedo
Ayudante del �rea Mejoramiento Gen�tico
Facultad de Veterinaria - UdelarR - Uruguay
Tel: 26284291
Cel.: 098596947
ferm...@gmail.com
El 16/06/15 a las 16:54, Juan Camilo Lara escribi�:
>
> ggplot(parasitos, aes(x=Arrenurus, y= torax, fill= Arrenurus)) +
>
> geom_boxplot(binwidth = 2) +
>
> scale_fill_manual(values = c("lightgreen", "lightblue"))+
>
> ylab("Total par�sitos")+
>
> xlab("")+
>
> ggtitle("Par�sitos en el t�rax")
>
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] librerias para programar una interfaz grafica en R ?
En algún momento hace un par de años atrás usé gWidgets para ingresar valores de forma interactiva. No sé como esta su desarrollo actualmente ni si existen otras mejores opciones actualmente. Saludos DMTV Fernando Macedo Ayudante del área Mejoramiento Genético Facultad de Veterinaria - UdelarR - Uruguay Tel: 26284291 Cel.: 098596947 ferm...@gmail.com "Alcanzó la sabiduría quien supo morir tan seguro como nació." Séneca El 09/06/15 a las 17:07, eric escribió: Estimados, he estado mirando en la internet si es posible programar con R una interfaz grafica para pedir el ingreso de datos por ejemplo, pero invariablemente obtengo paginas que hablan de interfaces graficas (rkward, rstudio, r-commander, etc) para R o de las librerias para hacer graficos (ggpolt, lattice, etc) ... alguien me puede orientar donde buscar o si estas existen ? Saludos y gracias, Eric. ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Temas para word markdown
Muchas gracias Daniel! La verdad que resulta bastante sencillo... Había encontrado otros editores de que tenían mejores plantillas pero no sabía como hacer para incluirlas así que ahora resulta muy fácil. Un abrazo! DMTV Fernando Macedo Ayudante del área Mejoramiento Genético Facultad de Veterinaria - UdelarR - Uruguay Tel: 26284291 Cel.: 098596947 ferm...@gmail.com "Alcanzó la sabiduría quien supo morir tan seguro como nació." Séneca El 08/04/15 a las 10:11, daniel escribió: > Fernando, este enlace quizás te sirva https://vimeo.com/110804387 > > Hace ya muchos meses hice algo de esa manera, creando el template en > Word, espero siga siendo válido. > > Daniel Merino > > > El 8 de abril de 2015, 8:44, Fernando Macedo <mailto:ferm...@gmail.com>> escribió: > > Buenas, estaba siguiendo el hilo de Informes Periódicos en R de Jesus > Herranz y me surgió una duda. Actualmente estoy tratando de usar > markdown para todo así cualquier cosa que haga me queda > presentable para > informar o presentar en algún lugar. En general estoy usando html y o > pdf principalmente porque cuando trato de compilar en word la > verdad que > queda bastante feíto. > > Alguién sabe, o puede indicarme un enlace que indique, como agregar y > cambiar los temas para word? > > Saludos > > DMTV Fernando Macedo > Ayudante del área Mejoramiento Genético > Facultad de Veterinaria - UdelarR - Uruguay > Tel: 26284291 > Cel.: 098596947 > ferm...@gmail.com <mailto:ferm...@gmail.com> > > "Alcanzó la sabiduría quien supo morir tan seguro como nació." Séneca > > El 08/04/15 a las 05:06, Jesus Herranz escribió: > > Finalmente era un tema de versión de RStudio como algunos > compañeros habían indicado. > > > > Muchas gracias a todos. > > > > > > > > > > > > De: Carlos Ortega [mailto:c...@qualityexcellence.es > <mailto:c...@qualityexcellence.es>] > > Enviado el: martes, 07 de abril de 2015 16:30 > > Para: Jesus Herranz > > CC: Jorge I Velez; R-help-es > > Asunto: Re: [R-es] Informes periódicos con R > > > > > > > > Hola Jesús, > > > > Mira los ejemplos, videos y hasta un libro de referencia en la > propia página del creador del paquete: > > > > http://yihui.name/knitr/ > > > > Saludos, > > > > Carlos Ortega > > > > www.qualityexcellence.es <http://www.qualityexcellence.es> > > > > > > > > El 7 de abril de 2015, 15:36, Jesus Herranz > mailto:jesus.herr...@imdea.org>> escribió: > > > > Hola Jorge > > > > Perdona que sea tan pesado, pero no encuentro el fichero docx. > Tampoco me > > manejo muy bien con RStudio. > > > > He insertado lo que me has dicho; pero solo tengo en la pantalla > la opción > > “Knit HTML” y siempre me genera un HTML. > > > > He instalado “pander” pero no obtengo el docx > > > > Gracias > > > > Jesús > > > > > > > > > > > > De: Jorge I Velez [mailto:jorgeivanve...@gmail.com > <mailto:jorgeivanve...@gmail.com>] > > Enviado el: martes, 07 de abril de 2015 13:54 > > Para: Jesus Herranz > > CC: R-help-es > > Asunto: Re: [R-es] Informes periódicos con R > > > > > > > > Hola Jesus, > > > > > > > > La idea es que tengas un documento markdown en RStudio y que el > encabezado > > sea similar a > > > > > > > > --- > > > > title: "Aquí va tu título" > > > > author: "Aquí quien escribió el documento" > > > > date: "Y la fecha..." > > > > output: word_document > > > > --- > > > > > > > > Despues de los segundos "---" escribes el texto que necesitas > siguiendo la > > sintaxis clasica de markdown. > > > > > > > > Una vez compilado el documento desde RStudio (tambien puede hacerse > > directamente desde R con la funcion source) se generara el > documento .docx > > que contiene toda la informacion que necesitas. > > > > > > > > Espero sea un poco mas claro. > > &g
[R-es] Temas para word markdown
Buenas, estaba siguiendo el hilo de Informes Periódicos en R de Jesus Herranz y me surgió una duda. Actualmente estoy tratando de usar markdown para todo así cualquier cosa que haga me queda presentable para informar o presentar en algún lugar. En general estoy usando html y o pdf principalmente porque cuando trato de compilar en word la verdad que queda bastante feíto. Alguién sabe, o puede indicarme un enlace que indique, como agregar y cambiar los temas para word? Saludos DMTV Fernando Macedo Ayudante del área Mejoramiento Genético Facultad de Veterinaria - UdelarR - Uruguay Tel: 26284291 Cel.: 098596947 ferm...@gmail.com "Alcanzó la sabiduría quien supo morir tan seguro como nació." Séneca El 08/04/15 a las 05:06, Jesus Herranz escribió: > Finalmente era un tema de versión de RStudio como algunos compañeros habían > indicado. > > Muchas gracias a todos. > > > > > > De: Carlos Ortega [mailto:c...@qualityexcellence.es] > Enviado el: martes, 07 de abril de 2015 16:30 > Para: Jesus Herranz > CC: Jorge I Velez; R-help-es > Asunto: Re: [R-es] Informes periódicos con R > > > > Hola Jesús, > > Mira los ejemplos, videos y hasta un libro de referencia en la propia página > del creador del paquete: > > http://yihui.name/knitr/ > > Saludos, > > Carlos Ortega > > www.qualityexcellence.es > > > > El 7 de abril de 2015, 15:36, Jesus Herranz > escribió: > > Hola Jorge > > Perdona que sea tan pesado, pero no encuentro el fichero docx. Tampoco me > manejo muy bien con RStudio. > > He insertado lo que me has dicho; pero solo tengo en la pantalla la opción > “Knit HTML” y siempre me genera un HTML. > > He instalado “pander” pero no obtengo el docx > > Gracias > > Jesús > > > > > > De: Jorge I Velez [mailto:jorgeivanve...@gmail.com] > Enviado el: martes, 07 de abril de 2015 13:54 > Para: Jesus Herranz > CC: R-help-es > Asunto: Re: [R-es] Informes periódicos con R > > > > Hola Jesus, > > > > La idea es que tengas un documento markdown en RStudio y que el encabezado > sea similar a > > > > --- > > title: "Aquí va tu título" > > author: "Aquí quien escribió el documento" > > date: "Y la fecha..." > > output: word_document > > --- > > > > Despues de los segundos "---" escribes el texto que necesitas siguiendo la > sintaxis clasica de markdown. > > > > Una vez compilado el documento desde RStudio (tambien puede hacerse > directamente desde R con la funcion source) se generara el documento .docx > que contiene toda la informacion que necesitas. > > > > Espero sea un poco mas claro. > > > > Saludos, > > Jorge.- > > > > > > > > 2015-04-07 21:50 GMT+10:00 Jesus Herranz : > > Hola, Jorge > > Lo he mirado y parece que es una opción bastante buena, pero no logro saber > cómo se salva en Word, solo lo logro en html > > Muchas gracias > > Jesús > > > > > > > > De: Jorge I Velez [mailto:jorgeivanve...@gmail.com] > Enviado el: martes, 07 de abril de 2015 11:40 > Para: Jesus Herranz > CC: R-help-es > Asunto: Re: [R-es] Informes periódicos con R > > > > > Hola Jesus, > > Una forma es RStudio + Markdown. Hay infinidad de tutoriales en internet, > pero la referencia basica es http://rmarkdown.rstudio.com/ Puedes > organizar las salidas para que sean en Word, PDF o HTML. La escongencia > depende de lo que quieras hacer posteriormente con el informe generado. > > Espero sea de utiilidad. > > Saludos cordiales, > > Jorge.- > > > > > > 2015-04-07 19:37 GMT+10:00 Jesus Herranz : > > Hola > > > > Necesito elaborar un informe que se ejecutará mensualmente, ya que los datos > en los que se basa irán cambiando. El informe estará en Word, y contiene > texto fijo, tablas, gráficos y resultados obtenidos con R. > > El informe será ejecutado después por una persona que no sabe nada de R, al > que le suministraré los scripts de R, pero debería ser bastante trasparente > para él. > > > > ¿Qué paquetes me aconsejáis? y ¿alguna web con un tutorial? > > > > Prefiero algo sencillo, ya que no tengo mucho tiempo para dedicar a esto > > > > Gracias > > > > Jesús > > > > > > > [[alternative HTML version deleted]] > > > ___ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > > > > > > > [[alternative HTML version deleted]] > > > ___ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > > > > ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] Familia *pply
Muchas gracias! Algunos blogs sigo aunque no con la frecuencia que me
gustaría.
El libro me viene bien pues es en lo que me estoy metiendo, con datos de
grandes dimensiones.
Saludos!!!
Fernando Macedo
El 21/03/15 a las 13:11, Carlos Ortega escribió:
> Hola Fernando,
>
> No, no sabía a priori si iba a ser más rápido o más lento.
> Utilicé la estructura de Sys.time() que tenías construida en tu
> ejemplo para medir los resultados.
>
> Y como recomendación, hay muchos blogs que hablan de como programar de
> forma eficiente R.
> Pero si buscas un libro, acabo de leer este y me parece que lo trata
> muy bien:
>
> http://www.amazon.es/High-Performance-Programming-Aloysius-Lim/dp/1783989262/ref=sr_1_1?ie=UTF8&qid=1426953979&sr=8-1&keywords=R+high+performance+programming
>
> Saludos,
> Carlos Ortega
> www.qualiytexcellence.es <http://www.qualiytexcellence.es>
>
> El 21 de marzo de 2015, 14:11, Fernando Macedo <mailto:ferm...@gmail.com>> escribió:
>
> Muchas gracias a ambos Carlos y Jorge por las respuestas. Pido
> disculpas en la demora de respuesta, pero estuvo complicada la
> semana.
>
> La pregunta era un ejercicio de ejemplo para poder entender mejor
> los usos, creo que me armaré una guía en markdown con ejemplos
> varios para ir consultando cuando me salgan dudas de como usarlos.
>
> En realidad no importaba tanto si mejorara demasiado los tiempos
> sino el cómo se podría implementar una solución en base a la
> familia; pero a propósito Carlos, sabias de antemano que no
> mejoraría los tiempos? si sí, como evalúas previamente si el uso
> de una función de la familia tendrá mejor desempeño que un for()?
> Si me pueden recomendar algún material de lectura más profundo
> sobre este tema sería de mucha ayuda.
>
> Muchísimas gracias!
>
> Abrazos!
>
> Fernando Macedo
>
> El 18/03/15 a las 22:03, Carlos Ortega escribió:
>> Hola,
>>
>> Una forma de hacerlo es así (destaco en negrita los cambios).
>> De todas formas, ya te adelanto que no es un caso en el que
>> aplicar, en este caso "mapply()", mejore los tiempos frente a la
>> solución basada en un bucle.
>>
>> #-
>> t1 <- Sys.time()
>>
>> *myfun <- function(x,y) { data[x,y] }*
>>
>> medias <- replicate(1000,{
>> sel <- sample(1:20,10)
>> pareja <- sample(sel,100,replace = T)
>> ta <- Sys.time()
>> *#cambio
>>resnew <- mapply(myfun, pareja, col)
>> #cambio *
>> tb <- Sys.time()
>> media <- mean(resnew)
>> tt <- tb-ta
>> c(media,tt)
>> })
>>
>> t2 <- Sys.time()
>>
>> diftime=(t2-t1)[[1]]
>> diftime
>>
>> sum(medias[2,])/diftime
>>
>> #-
>>
>>
>>
>> Saludos,
>> Carlos Ortega
>> www.qualiytexcellence.es <http://www.qualiytexcellence.es>
>>
>> El 19 de marzo de 2015, 1:14, Fernando Macedo > <mailto:ferm...@gmail.com>> escribió:
>>
>> Hola Jorge, muchas gracias por tu pronta respuesta, no me di
>> cuenta que
>> el formateo podría causar problemas, envío de nuevo el código
>> sin formatos.
>> La idea básica es para un set de números de columnas
>> (desordenados) y un
>> set de numeros de fila el loop lo que hace es ir a la fila y
>> columna
>> correspondiente de data, tomar el valor y luego hacer la
>> media sobre esos.
>>
>>
>>
>> data=matrix(rnorm(100*20),20,100)
>> col=sample(1:100,100)
>>
>> t1=Sys.time()
>> medias=replicate(1000,{
>>sel=sample(1:20,10)
>>pareja=sample(sel,100,replace = T)
>>ta=Sys.time()
>>recep=NULL
>>for(i in 1:100){
>> n=col[i]
>> m=pareja[i]
>> c=data[m,n]
>> recep=c(recep,c)
>>}
>>tb=Sys.time()
>>media=mean(recep)
>>tt=tb-ta
>>c(media,tt)
>> },simplify=T)
>>
>> t2=Sys.time()
>> diftime=(t2-t1)[[1]]
>>
>> sum(medias[2,])/diftime
>>
>>
>>
>> Fernando Macedo
>>
>> El 18/03/15 a las 21:06, Jorge I Velez escribió:
>> &
Re: [R-es] Familia *pply
Muchas gracias a ambos Carlos y Jorge por las respuestas. Pido disculpas
en la demora de respuesta, pero estuvo complicada la semana.
La pregunta era un ejercicio de ejemplo para poder entender mejor los
usos, creo que me armaré una guía en markdown con ejemplos varios para
ir consultando cuando me salgan dudas de como usarlos.
En realidad no importaba tanto si mejorara demasiado los tiempos sino el
cómo se podría implementar una solución en base a la familia; pero a
propósito Carlos, sabias de antemano que no mejoraría los tiempos? si
sí, como evalúas previamente si el uso de una función de la familia
tendrá mejor desempeño que un for()?
Si me pueden recomendar algún material de lectura más profundo sobre
este tema sería de mucha ayuda.
Muchísimas gracias!
Abrazos!
Fernando Macedo
El 18/03/15 a las 22:03, Carlos Ortega escribió:
> Hola,
>
> Una forma de hacerlo es así (destaco en negrita los cambios).
> De todas formas, ya te adelanto que no es un caso en el que aplicar,
> en este caso "mapply()", mejore los tiempos frente a la solución
> basada en un bucle.
>
> #-
> t1 <- Sys.time()
>
> *myfun <- function(x,y) { data[x,y] }*
>
> medias <- replicate(1000,{
> sel <- sample(1:20,10)
> pareja <- sample(sel,100,replace = T)
> ta <- Sys.time()
> *#cambio
>resnew <- mapply(myfun, pareja, col)
> #cambio *
> tb <- Sys.time()
> media <- mean(resnew)
> tt <- tb-ta
> c(media,tt)
> })
>
> t2 <- Sys.time()
>
> diftime=(t2-t1)[[1]]
> diftime
>
> sum(medias[2,])/diftime
>
> #-
>
>
>
> Saludos,
> Carlos Ortega
> www.qualiytexcellence.es <http://www.qualiytexcellence.es>
>
> El 19 de marzo de 2015, 1:14, Fernando Macedo <mailto:ferm...@gmail.com>> escribió:
>
> Hola Jorge, muchas gracias por tu pronta respuesta, no me di
> cuenta que
> el formateo podría causar problemas, envío de nuevo el código sin
> formatos.
> La idea básica es para un set de números de columnas
> (desordenados) y un
> set de numeros de fila el loop lo que hace es ir a la fila y columna
> correspondiente de data, tomar el valor y luego hacer la media
> sobre esos.
>
>
>
> data=matrix(rnorm(100*20),20,100)
> col=sample(1:100,100)
>
> t1=Sys.time()
> medias=replicate(1000,{
>sel=sample(1:20,10)
>pareja=sample(sel,100,replace = T)
>ta=Sys.time()
>recep=NULL
>for(i in 1:100){
> n=col[i]
> m=pareja[i]
> c=data[m,n]
> recep=c(recep,c)
>}
>tb=Sys.time()
>media=mean(recep)
>tt=tb-ta
>c(media,tt)
> },simplify=T)
>
> t2=Sys.time()
> diftime=(t2-t1)[[1]]
>
> sum(medias[2,])/diftime
>
>
>
> Fernando Macedo
>
> El 18/03/15 a las 21:06, Jorge I Velez escribió:
> > Hola Fernando,
> >
> > No puedo ver las negritas, pero intuyo que lo que quieres es
> calcular
> > la media por columnas? Si es asi, hay dos maneras:
> >
> > 1. Usa colMeans(x), donde "x" es tu matriz de datos
> > 2. Usa apply(x, 2, mean) donde "x" es tu matriz de datos
> >
> > Existe una tercera pero menos conocida posibilidad que es usando el
> > paquete matrixStats. Esta implementado en C en su mayoria y, de
> > acuerdo con el autor, es mucho mas rapido que la familia *apply. En
> >
>
> http://cran.r-project.org/web/packages/matrixStats/vignettes/matrixStats-methods.html
> > puedes encontrar mas informacion.
> >
> > Saludos cordiales,
> > Jorge.-
> >
> >
> >
> > 2015-03-19 11:01 GMT+11:00 Fernando Macedo <mailto:ferm...@gmail.com>
> > <mailto:ferm...@gmail.com <mailto:ferm...@gmail.com>>>:
> >
> > Buenas a todos. Desde hace un tiempo estoy tratando de
> aplicar las
> > funciones de la familia *pply en todo lo que puedo, pero
> todavía no es
> > algo que me surja tan rápidamente o naturalmente al momento
> de los
> > loops
> > como usar for().
> > Conozco las ventajas de usar estas funciones y por eso mi
> intento de
> > hacerme de ellas.
> >
> > Por ejemplo en este problema:
> >
> > data=matrix(rnorm(100*20),20,100)
> > col=sample(1:100,100)
> >
> > t1=Sys.time()
> >
> > medias=replica
Re: [R-es] Familia *pply
Hola Jorge, muchas gracias por tu pronta respuesta, no me di cuenta que
el formateo podr�a causar problemas, env�o de nuevo el c�digo sin formatos.
La idea b�sica es para un set de n�meros de columnas (desordenados) y un
set de numeros de fila el loop lo que hace es ir a la fila y columna
correspondiente de data, tomar el valor y luego hacer la media sobre esos.
data=matrix(rnorm(100*20),20,100)
col=sample(1:100,100)
t1=Sys.time()
medias=replicate(1000,{
sel=sample(1:20,10)
pareja=sample(sel,100,replace = T)
ta=Sys.time()
recep=NULL
for(i in 1:100){
n=col[i]
m=pareja[i]
c=data[m,n]
recep=c(recep,c)
}
tb=Sys.time()
media=mean(recep)
tt=tb-ta
c(media,tt)
},simplify=T)
t2=Sys.time()
diftime=(t2-t1)[[1]]
sum(medias[2,])/diftime
Fernando Macedo
El 18/03/15 a las 21:06, Jorge I Velez escribi�:
> Hola Fernando,
>
> No puedo ver las negritas, pero intuyo que lo que quieres es calcular
> la media por columnas? Si es asi, hay dos maneras:
>
> 1. Usa colMeans(x), donde "x" es tu matriz de datos
> 2. Usa apply(x, 2, mean) donde "x" es tu matriz de datos
>
> Existe una tercera pero menos conocida posibilidad que es usando el
> paquete matrixStats. Esta implementado en C en su mayoria y, de
> acuerdo con el autor, es mucho mas rapido que la familia *apply. En
> http://cran.r-project.org/web/packages/matrixStats/vignettes/matrixStats-methods.html
>
> puedes encontrar mas informacion.
>
> Saludos cordiales,
> Jorge.-
>
>
>
> 2015-03-19 11:01 GMT+11:00 Fernando Macedo <mailto:ferm...@gmail.com>>:
>
> Buenas a todos. Desde hace un tiempo estoy tratando de aplicar las
> funciones de la familia *pply en todo lo que puedo, pero todav�a no es
> algo que me surja tan r�pidamente o naturalmente al momento de los
> loops
> como usar for().
> Conozco las ventajas de usar estas funciones y por eso mi intento de
> hacerme de ellas.
>
> Por ejemplo en este problema:
>
> data=matrix(rnorm(100*20),20,100)
> col=sample(1:100,100)
>
> t1=Sys.time()
>
> medias=replicate(1000,{
>sel=sample(1:20,10)
>pareja=sample(sel,100,replace = T)
>ta=Sys.time()
> *recep=NULL**
> ** for(i in 1:100){**
> **n=col[i]**
> **m=pareja[i]**
> **c=data[m,n]**
> **recep=c(recep,c)**
> ** }**
> * tb=Sys.time()
>media=mean(recep)
>tt=tb-ta
>c(media,tt)
> })
>
> t2=Sys.time()
>
> diftime=(t2-t1)[[1]]
>
> sum(medias[2,])/diftime
>
>
> la parte que est� en negrita (si us� bien los Sys.time()) me
> representa
> (hice varias pruebas) aprox un 60% del tiempo total empleado.
>
> Mi pregunta es, para este ejemplo �c�mo plantear�an una soluci�n
> usando
> funciones *pply?
> Y luego ver cuanto aumenta en el rendimiento del uso del tiempo.
>
> De paso, la salida que obtengo es una matriz de 2 por 1000, cuando
> ser�a
> m�s interesante una matriz de 1000 por 2. Si se usa simplify = F como
> argumento de replicate() resulta en una lista. �Existe alg�n argumento
> que directamente obtenga una matriz de 1000 por 2? (Esto �ltimo
> pensando
> en de repente 10 o 100 de repeticiones y salidas m�s
> complejas).
>
>
> Saludos!
>
> --
> Fernando Macedo
>
>
> [[alternative HTML version deleted]]
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org <mailto:R-help-es@r-project.org>
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Familia *pply
Buenas a todos. Desde hace un tiempo estoy tratando de aplicar las
funciones de la familia *pply en todo lo que puedo, pero todavía no es
algo que me surja tan rápidamente o naturalmente al momento de los loops
como usar for().
Conozco las ventajas de usar estas funciones y por eso mi intento de
hacerme de ellas.
Por ejemplo en este problema:
data=matrix(rnorm(100*20),20,100)
col=sample(1:100,100)
t1=Sys.time()
medias=replicate(1000,{
sel=sample(1:20,10)
pareja=sample(sel,100,replace = T)
ta=Sys.time()
*recep=NULL**
** for(i in 1:100){**
**n=col[i]**
**m=pareja[i]**
**c=data[m,n]**
**recep=c(recep,c)**
** }**
* tb=Sys.time()
media=mean(recep)
tt=tb-ta
c(media,tt)
})
t2=Sys.time()
diftime=(t2-t1)[[1]]
sum(medias[2,])/diftime
la parte que está en negrita (si usé bien los Sys.time()) me representa
(hice varias pruebas) aprox un 60% del tiempo total empleado.
Mi pregunta es, para este ejemplo ¿cómo plantearían una solución usando
funciones *pply?
Y luego ver cuanto aumenta en el rendimiento del uso del tiempo.
De paso, la salida que obtengo es una matriz de 2 por 1000, cuando sería
más interesante una matriz de 1000 por 2. Si se usa simplify = F como
argumento de replicate() resulta en una lista. ¿Existe algún argumento
que directamente obtenga una matriz de 1000 por 2? (Esto último pensando
en de repente 10 o 100 de repeticiones y salidas más complejas).
Saludos!
--
Fernando Macedo
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] intercalar elementos de vectores
Muchas gracias a los dos, los ejemplos de uso de las funciones *apply
siempre son bienvenidos.
Saludos
Fernando Macedo
El 24/02/15 a las 12:12, Jorge I Velez escribió:
Gracias, Carlos.
Habia pensado en algo similar usando sapply():
sapply(seq(1, ncol(vtmp), by = 2), function(i) c(rbind(as.character(vtmp[,
i]), as.character(vtmp[, i+1]
Dependiendo de la dimension de los datos, quizas mapply() sea
mas eficiente que sapply().
Saludos cordiales,
Jorge.-
2015-02-25 1:01 GMT+11:00 Carlos Ortega :
> Hola,
>
> Este otro ejemplo a partir de la idea de Jorge, de cómo procesar toda la
> tabla que tienes:
>
> > #Creo un data.frame de ejemplo todo con letras
> > vtmp <- as.data.frame(lapply(letters,function(x) { rep(x,each=50) }))
> > names(vtmp) <- paste("col",LETTERS,sep="")
> > head(vtmp)
> colA colB colC colD colE colF colG colH colI colJ colK colL colM colN
> colO colP colQ colR colS colT colU colV colW colX colY colZ
> 1abcdefghijklmn
> opqrstuvwxyz
> 2abcdefghijklmn
> opqrstuvwxyz
> 3abcdefghijklmn
> opqrstuvwxyz
> 4abcdefghijklmn
> opqrstuvwxyz
> 5abcdefghijklmn
> opqrstuvwxyz
> 6abcdefghijklmn
> opqrstuvwxyz
> >
> > #Los números de columnas impares de mi data.frame
> > matIndex <- seq(1, dim(vtmp)[2], by=2)
> >
> > #Función para juntar dos columnas (idea de Jorge)
> > mifun <- function(x,y) c(rbind(as.vector(vtmp[,x]),as.vector(vtmp[,y])))
> >
> > #Resulado aplicando mapply. Coge dos columnas consecutivas y las alterna
> > #y así de forma iterativa para cada una de las columnas que indica
> "matIndex" y la siguiente columna "matIndex+1"
> > resultado <- mapply(mifun,matIndex, matIndex+1)
> > head(kk)
> [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
> [1,] "a" "c" "e" "g" "i" "k" "m" "o" "q" "s" "u" "w" "y"
> [2,] "b" "d" "f" "h" "j" "l" "n" "p" "r" "t" "v" "x" "z"
> [3,] "a" "c" "e" "g" "i" "k" "m" "o" "q" "s" "u" "w" "y"
> [4,] "b" "d" "f" "h" "j" "l" "n" "p" "r" "t" "v" "x" "z"
> [5,] "a" "c" "e" "g" "i" "k" "m" "o" "q" "s" "u" "w" "y"
> [6,] "b" "d" "f" "h" "j" "l" "n" "p" "r" "t" "v" "x" "z"
> >
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
> El 24 de febrero de 2015, 14:10, Fernando Macedo
> escribió:
>
> Excelente! Ahora corre muy rápido. No conocía ese método, creo que me va a
>> resultar muy útil.
>>
>> Muchas gracias y saludos.
>>
>> Fernando Macedo
>>
>> El 24/02/15 a las 10:51, Jorge I Velez escribió:
>>
>> Fernando,
>>
>> Podrias intentar
>>
>> R> a <- rep('a', 5)
>> R> b <- rep('b', 5)
>> R> a
>> [1] "a" "a" "a" "a" "a"
>> R> b
>> [1] "b" "b" "b" "b" "b"
>> R> c(rbind(a, b))
>> [1] "a" "b" "a" "b" "a" "b" "a" "b" "a" "b"
>>
>> Saludos,
>> Jorge.-
>>
>>
>> 2015-02-24 23:49 GMT+11:00 Fernando Macedo :
>>
>> > Buenas a todos.
>> > Relato el problema:
>> >
>> > - tengo un archivo de 316 colum
Re: [R-es] intercalar elementos de vectores
Excelente! Ahora corre muy rápido. No conocía ese método, creo que me va a
resultar muy útil.
Muchas gracias y saludos.
Fernando Macedo
El 24/02/15 a las 10:51, Jorge I Velez escribió:
Fernando,
Podrias intentar
R> a <- rep('a', 5)
R> b <- rep('b', 5)
R> a
[1] "a" "a" "a" "a" "a"
R> b
[1] "b" "b" "b" "b" "b"
R> c(rbind(a, b))
[1] "a" "b" "a" "b" "a" "b" "a" "b" "a" "b"
Saludos,
Jorge.-
2015-02-24 23:49 GMT+11:00 Fernando Macedo :
> Buenas a todos.
> Relato el problema:
>
> - tengo un archivo de 316 columnas por 562000 filas (aprox.).
> - esas 316 columnas representan 158 sujetos, o sea dos columnas por cada
> individuo conteniendo información que debe ser condensada en una sola.
>
> Lo que necesito es ir tomando las dos columnas de cada individuo e
> intercalar los elementos de los vectores formando uno solo.
>
> Ejemplificando sería algo así:
>
> > a
> [1] "a" "a" "a" "a" "a"
> > b
> [1] "b" "b" "b" "b" "b"
> > c
> [1] "a" "b" "a" "b" "a" "b" "a" "b" "a" "b"
>
>
> Estoy haciendo con un loop for pero es realmente muy lento. He buscado por
> algún paquete que ya lo haga directamente pero no he tenido mucho éxito. Me
> imagino que con sapply o apply pueda ser mucho más efectivo pero me ha
> resultado complicado para entender la sintaxis de estas funciones cuando
> involucra más de un objeto (vector, matriz, etc...).
>
> Desde ya agradezco las sugerencias que puedan verter sobre este problema.
>
> --
> Fernando Macedo
>
> [[alternative HTML version deleted]]
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] intercalar elementos de vectores
Buenas a todos. Relato el problema: - tengo un archivo de 316 columnas por 562000 filas (aprox.). - esas 316 columnas representan 158 sujetos, o sea dos columnas por cada individuo conteniendo información que debe ser condensada en una sola. Lo que necesito es ir tomando las dos columnas de cada individuo e intercalar los elementos de los vectores formando uno solo. Ejemplificando sería algo así: > a [1] "a" "a" "a" "a" "a" > b [1] "b" "b" "b" "b" "b" > c [1] "a" "b" "a" "b" "a" "b" "a" "b" "a" "b" Estoy haciendo con un loop for pero es realmente muy lento. He buscado por algún paquete que ya lo haga directamente pero no he tenido mucho éxito. Me imagino que con sapply o apply pueda ser mucho más efectivo pero me ha resultado complicado para entender la sintaxis de estas funciones cuando involucra más de un objeto (vector, matriz, etc...). Desde ya agradezco las sugerencias que puedan verter sobre este problema. -- Fernando Macedo [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
Re: [R-es] leer ficheros excel en R en Ubuntu
Yo tuve bastantes problemas con java y Excel, aunque los mayores, si mal no
recuerdo, eran con xlsx. Intenté de todo y no tuve mucha suerte. Así que
me arme una función usando system y xlsx2csv.
Básicamente lo que hago es pasar un path y numero de hoja como argumentos,
y la función ser copia elxlsx a un directorio temporal lo convierte en txt
usando el xlsx2csv y lo levanta con read.table.
Entiendo que no es lo que buscas pues no usa herramientas exclusivas de R,
pero fue la solución que encontré.
Xlsx2csv es un programita escrito en python si no me equivoco, de repente
se puede portar como paquete para R.
Saludos y aunque no te lo solucione espero que pueda servir de ayuda.
Fernando
El 15/08/2014 05:26, "Miguel Fiandor Gutiérrez" <
miguel.fiandor.gutier...@gmail.com> escribió:
>
> Hola,
>
> @javier, me gustaría no tener que hacer nada de forma manual, ni por fuera
> de r, rstudio. Es decir, el típico comando de linux que me convierta de
xls
> a csv prefiero no usarlo. Me gustaría hacerlo todo desde R.
>
> @jorge ->
>
> Con RODBC me salta ->
>
> Error: could not find function "odbcConnectExcel"
>
> Lo que creo que es inevitable en Ubuntu
> <
http://stackoverflow.com/questions/3426523/odbcconnectexcel-function-from-rodbc-package-for-r-not-found-on-ubuntu
>
> Con gdata ->
>
> Unable to open file
>
'/home/miguelfg/R/x86_64-pc-linux-gnu-library/3.1/gdata/xls/madrid.xls'.Error
> in xls2sep(xls, sheet, verbose = verbose, ..., method = method, :
> Intermediate file '/tmp/RtmpHRuknw/filefed757fcc67.csv' missing!In
> addition: Warning message:running command ''/usr/bin/perl'
>
> Con XLConnect ->
>
> Error : package ‘rJava’ was built before R 3.0.0: please re-install
> itERROR: lazy loading failed for package ‘XLConnectJars’* removing
> ‘/home/miguelfg/R/x86_64-pc-linux-gnu-library/3.1/XLConnectJars’Warning
> in install.packages :
> installation of package ‘XLConnectJars’ had non-zero exit
> statusERROR: dependency ‘XLConnectJars’ is not available for package
> ‘XLConnect’* removing
> ‘/home/miguelfg/R/x86_64-pc-linux-gnu-library/3.1/XLConnect’Warning in
> install.packages :
> installation of package ‘XLConnect’ had non-zero exit status
>
> Con xlsReadWrite -> me dice que no está disponible para R 3.1.1 Con xlsx
->
>
> Error : package ‘rJava’ was built before R 3.0.0: please re-install
> itERROR: lazy loading failed for package ‘xlsxjars’* removing
> ‘/home/miguelfg/R/x86_64-pc-linux-gnu-library/3.1/xlsxjars’Warning in
> install.packages :
> installation of package ‘xlsxjars’ had non-zero exit statusERROR:
> dependency ‘xlsxjars’ is not available for package ‘xlsx’* removing
> ‘/home/miguelfg/R/x86_64-pc-linux-gnu-library/3.1/xlsx’Warning in
> install.packages :
> installation of package ‘xlsx’ had non-zero exit status
>
> = Viendo que el problema parecía java +
> rJava, busqué y ejecuté -> sudo R CMD javareconf -e Pero parece que no
> termina bien -> conftest.c:1:17: fatal error: jni.h: No such file or
> directory compilation terminated. make: *** [conftest.o] Error 1 Unable to
> compile a JNI program
>
>
> El 15 de agosto de 2014, 2:23, Jorge I Velez
> escribió:
>
> > Hola Miguel,
> >
> > A que te refieres con "y nada"? Obtienes algun error? Algun mensaje?
> > Has probado con scan() y/o readLines()?
> >
> > Saludos,
> > Jorge.-
> >
> >
> >
> > 2014-08-15 7:38 GMT+10:00 Miguel Fiandor Gutiérrez <
> > miguel.fiandor.gutier...@gmail.com>:
> >
> >> Hola,
> >>
> >> Pensé que esto iba a ser trivial en R, pero me estoy encontrado muchos
con
> >> mi problema en internet, y que las soluciones ofrecidas no terminan de
> >> funcionar.
> >>
> >> Estoy intentando leer un fichero .xls en ubuntu con los siguientes
> >> paquetes
> >> y nada:
> >>
> >> require(RODBC)
> >> conn = odbcConnectExcel("madrid.xls") # open a connection to the Excel
> >> file
> >> sqlTables(conn)$TABLE_NAME # show all sheets
> >> df = sqlFetch(conn, "Sheet1") # read a sheet
> >> df = sqlQuery(conn, "select * from [Sheet1 $]") # read a sheet
> >> (alternative
> >> SQL sintax)
> >> close(conn) # close the connection to the file
> >>
> >> require(gdata)
> >> xlsfile <- file.path(path.package('gdata'),'xls','madrid.xls')
> >> df = read.xls (xlsfile)
> >> df = read.xls (xlsfile, sheet = 1, header = TRUE)
> >> df = read.xls ("madrid.xls", sheet = 1, header = TRUE)
> >> df = read.xls ("madrid.xls")
> >>
> >> require(xlsx)
> >> read.xlsx("madrid.xls", sheetName = "Sheet1")
> >>
> >> library(XLConnect)
> >> wk = loadWorkbook("madrid.xls")
> >> df = readWorksheet(wk, sheet="Sheet1")
> >>
> >> --
> >>
> >> también he probado directamente read.table ya que el fichero es tipo
xml
> >> por dentro:
> >> df = read.table("madrid.xls", header = TRUE)
> >>
> >>
> >> -- ejemplo del fichero:
> >> $ head -c 500 madrid.xls
> >> Nombre de la
> >> instalacionMunicipio de la
instalacion >> bgcolor="#FFB18C">Provincia de la instalacion >> bgcolor="#FFB18C">Clave del registroCodigo
> >> registro autonomico definitivoPotencia
nominal
Re: [R-es] Markdown temas
Gracias estimado, es más o menos como me parecía entonces. Creo que puede resultar interesante pero habrá que armarse un tema o encontrar alguno, sino formatearlo luego de hecho que me parece más complejo para informes más largos. Una lástima porque es muy interesante. Probé con un editor que se llama haroopad que esta muy bueno pero no me fije si soporta inclusión de código R. Voy a buscar por el lado de otros editores capaz que anda mejor. Saludos y gracias por su respuesta Fernando El 30/07/14 a las #4, palazon escribió: El 30/07/14 a las #4, Fernando Macedo escribió: Buenas a todos. Estoy tratando de armar un pequeño informe para probar Markdown y ver que tal me cae para incorporarlo a mis actividades. Se encuentra mucha información sobre la sintaxis y realmente es muy fácil de manejar y, según ejemplos que vi, los resultados son lo suficientemente buenos como para lo que busco. El problema es que usando RStudio, y tratando de armar un .doc me quedan los títulos con un color azul bastante feote. Efectivamente, ese es un template o plantilla por defecto. He buscado plantillas de calidad, pero no las he entrado :-( claro que como habitualmente uso latex ;-) no me he molestado mucho.Me tiré a buscar como controlar estilo de letra principalmente pero por lo que entendí no se puede cambiar, o sea, existe un tema principal y luego pierdes la opción de aplicar determinado estilo de letra a una oración en particular. Precisamente la idea es simplificar, pero puedes controlar los tipos esenciales. Un buen ejemplo de uso de markdown puedes verlo en https://stackedit.io/ No sería un problema si el tema fuese lindo pero no es el caso. Piensa que guardando el fichero en formato html, con el css que te guste, puedes "llevarlo" al editor. Mas info: http://rmarkdown.rstudio.com/html_document_format.html Así que mis dudas: - ¿No se puede cambiar puntualmente el tipo de letra en una oración? Si por ejemplo _este es un ejemplo de frase en cursiva_. Este otro _**En cursiva y negrita**_. - En caso de que no y para RStudio, ¿dónde se pueden obtener temas?. No pregunto dónde porque en la ayuda de RStudio encontré dónde guardarlos, lo que se me dificultó fue encontrarlos. Espero serte de ayuda. Info de sesión: R version 3.1.1 (2014-07-10) -- "Sock it to Me" Copyright (C) 2014 The R Foundation for Statistical Computing Platform: x86_64-pc-linux-gnu (64-bit) (Ubuntu 14.04) RStudio Version 0.98.953 Eso es todo, muchas gracias de ante mano. Saludos Fernando Macedo ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Markdown temas
Buenas a todos. Estoy tratando de armar un pequeño informe para probar Markdown y ver que tal me cae para incorporarlo a mis actividades. Se encuentra mucha información sobre la sintaxis y realmente es muy fácil de manejar y, según ejemplos que vi, los resultados son lo suficientemente buenos como para lo que busco. El problema es que usando RStudio, y tratando de armar un .doc me quedan los títulos con un color azul bastante feote. Me tiré a buscar como controlar estilo de letra principalmente pero por lo que entendí no se puede cambiar, o sea, existe un tema principal y luego pierdes la opción de aplicar determinado estilo de letra a una oración en particular. No sería un problema si el tema fuese lindo pero no es el caso. Así que mis dudas: - ¿No se puede cambiar puntualmente el tipo de letra en una oración? - En caso de que no y para RStudio, ¿dónde se pueden obtener temas?. No pregunto dónde porque en la ayuda de RStudio encontré dónde guardarlos, lo que se me dificultó fue encontrarlos. Info de sesión: R version 3.1.1 (2014-07-10) -- "Sock it to Me" Copyright (C) 2014 The R Foundation for Statistical Computing Platform: x86_64-pc-linux-gnu (64-bit) (Ubuntu 14.04) RStudio Version 0.98.953 Eso es todo, muchas gracias de ante mano. Saludos Fernando Macedo ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
