search for: datin

Hola de nuevo, acabo de encontrar la solución. He creado una variable ficticia con los días 1 de cada mes en la secuencia temporal que quería y después he actuado de la siguiente manera attach(Libro1) plot (xbar~as.Date(fecha,"%d/%m/%y"), type="b", pch=19,cex=2,xaxt="n") xlabels<-strptime(ofeje, format = "%d/%m/%y") axis.Date(1,

...8/09/2014, a las 11:43, Carlos Ortega <cof en qualityexcellence.es> escribió: Hola, En vez de utilizar un eje "X" de tipo "Date", prefiero ajustarlo utilizando las fechas como si fuesen "strings". Mira si esto es lo que buscabas... #--------------------------- datIn <- read.csv("Libro1.csv", header=T, sep=";", dec=",") library(lubridate) datIn$mes <- month(dmy(datIn$fecha), label=T, abbr=T) datIn$anio <- year(dmy(datIn$fecha)) xlabels <- paste(datIn$mes,"-",datIn$anio,sep="") par(oma=c(4,2,1,1)...

Y bueno, algo más bonito sí que queda con ggplot... #--------------- datIn <- read.csv("pec.csv", header = TRUE, sep = ";", dec = ",") library(ggplot2) lab_x_idx <- c(1, round(nrow(datIn)/2, 0), nrow(datIn)) lab_x <- as.vector(datIn$hora[ lab_x_idx]) fre_gg <- ggplot( datIn, aes( x = 1:nrow(datIn), y = frec)) + geo...

...utos más claro, a lo mejor de 5 en 5, o algo > así? > > Un saludo! > > > El 3 de septiembre de 2016, 0:12, Carlos Ortega <cof en qualityexcellence.es> > escribió: > >> Y bueno, algo más bonito sí que queda con ggplot... >> >> #--------------- >> datIn <- read.csv("pec.csv", header = TRUE, sep = ";", dec = ",") >> >> library(ggplot2) >> lab_x_idx <- c(1, round(nrow(datIn)/2, 0), nrow(datIn)) >> lab_x <- as.vector(datIn$hora[ lab_x_idx]) >> fre_gg <- ggplot( datIn, aes( x = 1:...

Otras variantes con y sin paquetes adicionales... > sapply(split(datIn$Gain, as.factor(datIn$Diet)), mean) d1 d2 d3 280 278 312 > by(datIn$Gain, datIn$Diet, mean) datIn$Diet: d1 [1] 280 -------------------------------------------------------------- datIn$Diet: d2 [1] 278 -------------------------------------------------------------- datIn$Diet: d3 [1] 312 > &...

Buenas tardes, Tengo una duda con gráficos. Estoy intentando realizar el típico gráfico de una variable en histograma y otra en linea, supongo que será sencillo pero llevo unos días peleando y no me sale de forma correcta. Las variables están en un dataframe que muestran las frecuencias de tweets minuto a minuto y el share de esos minutos (os adjunto un archivo en csv con el dataframe). Una

...por categoria? > Date: Wed, 28 Oct 2015 00:13:45 +0100 > From: cof en qualityexcellence.es > To: jbetancourt en iscmc.cmw.sld.cu > CC: r-help-es en r-project.org > Subject: Re: [R-es] pregunta > > Otras variantes con y sin paquetes adicionales... > > > sapply(split(datIn$Gain, as.factor(datIn$Diet)), mean) > d1 d2 d3 > 280 278 312 > > by(datIn$Gain, datIn$Diet, mean) > datIn$Diet: d1 > [1] 280 > -------------------------------------------------------------- > datIn$Diet: d2 > [1] 278 > -----------------------------------------------...

Muchas gracias Carlos, previo a mi correo, entre las pruebas que hice estaba una parecida a la que apuntas de la siguiente manera: attach (Libro1) plot (xbar~as.Date(fechas,"%d/%m/%y"), ylim=c(400,660), xaxt="n", type="b", pch=19,cex=1) xlabels<-strptime(fecha,format="%d/%m/%Y") axis.Date (1,at=xlabels,format="%b-%y")

Estimados Cuando existia epicalc, había una manera muy fácil de determinar la media de una variable (en esta caso Gain) por grupos, en este caso (Diet). ?Como se puede hacer ahora? Diet Gain 1 d1 270 2 d1 300 3 d1 280 4 d1 280 5 d1 270 6 d2 290 7 d2 250 8 d2 280 9 d2 290 10 d2 280 11 d3 290 12 d3 340 13 d3 330 14 d3 300 15 d3 300

...> así? >> >> Un saludo! >> >> >> El 3 de septiembre de 2016, 0:12, Carlos Ortega <cof en qualityexcellence.es >> > escribió: >> >>> Y bueno, algo más bonito sí que queda con ggplot... >>> >>> #--------------- >>> datIn <- read.csv("pec.csv", header = TRUE, sep = ";", dec = ",") >>> >>> library(ggplot2) >>> lab_x_idx <- c(1, round(nrow(datIn)/2, 0), nrow(datIn)) >>> lab_x <- as.vector(datIn$hora[ lab_x_idx]) >>> fre_gg <- ggplot...

...es numéricos (no fechas). Para fechas, es mejor hacerlo de esta forma (utilizando tus datos): > > Lines <- "fecha hora datos + 20/11/12 2:00:04AM 12.905 + 21/11/12 3:00:04AM 12.889 + 22/11/12 4:00:03AM 12.873 + 23/11/12 5:00:03AM 12.861 + 29/11/12 11:00:03AM 12.804 + " > > datIn <- read.table(textConnection(Lines), header = TRUE, as.is = TRUE) > datIn fecha hora datos 1 20/11/12 2:00:04AM 12.905 2 21/11/12 3:00:04AM 12.889 3 22/11/12 4:00:03AM 12.873 4 23/11/12 5:00:03AM 12.861 5 29/11/12 11:00:03AM 12.804 > > library(lubridate) > datIn$myfe...

...), then just applying formulas for mutual information…. I know it’s kludgy… does anyone have any idea as to what I’ve done wrong? The data is EEG sampled at 128hz from the left hemisphere (C3) and right hemisphere of the brain during neurofeedback sessions and enters via a bivariate time series to datin, and lmax is the maximum lag to measure the mutual information at. I hope to use it to set up optimal bivariate embeddings but also to measure the strength of the relationship between the time series mutual2<-function(datin,lmax) { library(KernSmooth) lmax<-lmax+1 lhplogp<-numeric(1...

buenas tardes les envío este mensaje de ayuda porque ya le batalle mucho y no he podido hacerlo lo que necesito, tengo una tabla como la que pongo en el archivo anexo ejemplo he estado utilizando la instrucción cast de reshape2 para generar algo como lo que sigue  | Suma de evento | Etiquetas de columna | | | | | | Etiquetas de fila | 2000 | 2001 | 2002 | 2003 | 2004 | Total general | | D | 2

...> > > > > Lines <- "fecha hora datos > > + 20/11/12 2:00:04AM 12.905 > > + 21/11/12 3:00:04AM 12.889 > > + 22/11/12 4:00:03AM 12.873 > > + 23/11/12 5:00:03AM 12.861 > > + 29/11/12 11:00:03AM 12.804 > > + " > > > > > > datIn <- read.table(textConnection(Lines), header = TRUE, as.is = TRUE) > > > datIn > > fecha hora datos > > 1 20/11/12 2:00:04AM 12.905 > > 2 21/11/12 3:00:04AM 12.889 > > 3 22/11/12 4:00:03AM 12.873 > > 4 23/11/12 5:00:03AM 12.861 > > 5 2...

ESTIMADA COMUNIDAD R, Tengo un data frame de datos de salud sobre Enfermedades de Notificacion Obligatoria. Algunas variables tienen una codificacion 99, 999, y 9999 para asiganr los valores perdidos. LAs variables que tienen esta codificacion son la EDAD, COMUNA_RESIDENCIA y la REGION_RESIDENCIA, respectivamente. Me gustaria poder editar esos valores a NA, sin tener que hacerlo uno por uno con

...he best bet. I've gotten the data exchange working except each row is read in as one 'chunk', meaning the row has all values between two quotes ("41 numbers"). I need to split these based upon the spaces between them. What is the simplest means of doing this? Code so far. datin<-file("C:\\rforest\\data\\aoidry_predictors_85.txt", open="rt") datout<-file("C:\\rforest\\prob85.txt",open="wt") x<-readLines(datin,n=1) writeLines(x,con=datout) Thanks, Seth -- View this message in context: http://r.789695.n4.nabble.com/readLines...

...R" al leerlas las considera como un string que altera la clase de toda la columna cuando ésta es numérica. Simplemente eliminando esa segunda fila, las columnas acaban teniendo la clase que deben.. #-------------------------------- Lectura del fichero de entrada sin corregir ----- > head(datIn) TIMESTAMP RECORD batt_volt WinVel WinDir Taire Haire BP_hPA cgr3_T_C cgr3_T_K Lnet long_up_corr CMP3 1 TS RN volts mV mV c % hPA deg_C NA NA W/m^2 W/m^2 2 2016-03-22 0.00 14.13 0.00 240.90 8.67 14.76 687.43 9.83 282.98 -141....

...> > > > > Lines <- "fecha hora datos > > + 20/11/12 2:00:04AM 12.905 > > + 21/11/12 3:00:04AM 12.889 > > + 22/11/12 4:00:03AM 12.873 > > + 23/11/12 5:00:03AM 12.861 > > + 29/11/12 11:00:03AM 12.804 > > + " > > > > > > datIn <- read.table(textConnection(Lines), header = TRUE, as.is = TRUE) > > > datIn > > fecha hora datos > > 1 20/11/12 2:00:04AM 12.905 > > 2 21/11/12 3:00:04AM 12.889 > > 3 22/11/12 4:00:03AM 12.873 > > 4 23/11/12 5:00:03AM 12.861 > > 5 2...

...ivo .rel esta en una carpeta comprimida .zip, yo la descomprimo con win rar. Como no sea ese el motivo por el que no me da el fichero completo? El 30 de septiembre de 2015, 10:30, MªLuz Morales <mlzmrls en gmail.com> escribió: > Pues soy gafe entonces, > no lo entiendo: > > > datIn <- fread("C:\\Users\\iphealthMariluz\\Documents\\Proyecto iphealt\\ProcesamientoTexto\\Adverse Drug Event\\ADE-Corpus\\DRUG-AE.rel")> dim(datIn)[1] 1855 8 > > > El 29 de septiembre de 2015, 18:54, Carlos Ortega < > cof en qualityexcellence.es> escribió: > &gt...

La referencia de las cuchillas, no son todas la misma Date: Thu, 10 Dec 2015 22:04:24 +0100 Subject: Re: [R-es] Tiempo de vida From: cof en qualityexcellence.es To: j.para.fernandez en hotmail.com CC: r-help-es en r-project.org Gracias. ¿Y qué es "Referencia"?... Gracias, Carlos Ortega www.qualityexcellence.es El 10 de diciembre de 2015, 21:48, Jesús Para Fernández