Marta,

No entiendo lo que necesitas, pero aquí algunas cosas que pueden orientar
las consultas, o solucionar el problema:

fecha_sys <- Sys.time()
str(fecha_sys)
strptime(fecha_sys, format="%Y-%m-%d %H:%M:%S")
str(strptime(fecha_sys, format="%Y-%m-%d %H:%M:%S")  )
fecha <- format(Sys.time(), "%d-%m-%Y")
str(fecha)
as.POSIXlt(fecha, format = "%d-%m-%Y")
# Si tienes como fecha 03-06-2003 19. Aunque sería mas simple si es
03-06-2003 19:00:00
tu_fecha <- "03-06-2003 19"
# quizás te interese explorar el paquete lubridate
library(lubridate)
hours(1:24)

Si lo anterior te sirve bien. Si no te sirve puedes hacer un ejemplo
reproducible tratando de explicar que es lo que quieres, proporcionando un
grupo de datos por ejemplo dput(head(DBx)), y con la parte de tu script que
te da problemas.

Suerte,

Daniel Merino



2014-06-03 8:41 GMT-03:00 Marta valdes lopez <martavaldes85@gmail.com>:

> Hola!!
>
> Estoy intentando ejecutar un script com horas, al principio ejecute estos
> comandos
>
>
> DBx$Date<-strptime(DBx$Date, "%d-%m-%Y")            ###Monicap use ; other
> use  Y
>
>  DBx$Year<-as.POSIXlt(DBx$Date)$year+1900
>
>  if(filename!="monicap_50.csv") {DBx$Time<-paste(DBx$Time, ":00", sep="")}
>
> Pero me daba el error de que mi base de datos tenia las horas en formato
> 00:00:00, entonces me anhadia dos ceros mas, entonces no ejecute el ultimo
> comando y ahora al ejecutar este comando desp+ues del anterior:
>
>  DBfishing<- na.omit(DBx[(DBx$calcSpeed<=speedFishing &
> DBx$distHb>distHbRule & DBx$Time>minTime & DBx$Time<=maxTime),])
>
> Me da este error:Warning messages:
> 1: In `[.data.frame`(DBx, (DBx$calcSpeed <= speedFishing & DBx$distHb >  :
>   Incompatible methods ("Ops.factor", "Ops.times") for ">"
> 2: In `[.data.frame`(DBx, (DBx$calcSpeed <= speedFishing & DBx$distHb >  :
>   Incompatible methods ("Ops.factor", "Ops.times") for "<="
>
> Las variables donde estan minTime y MaxTime son estos comandos:
>
>  minTime<-times(c("05:59:59"))        #usual beginning of fishing
> operations
> > maxTime<- times(c("20:59:59"))        #usual finishing of fishing
> operations
>
> Alguien sabes que es lo que estoy haciendo mal? si necessitais todo el
> script lo pongo sin problema.
>
> Muchas gracias, un saludo
>
>         [[alternative HTML version deleted]]
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>



-- 
Daniel

	[[alternative HTML version deleted]]

