Dear all
I have the following time stamps (in the following format)
MeasurementSet$TimeStamps
[,1] [,2] [,3] [,4] [,5] [,6]
[1,] 2011 7 2 13 43 48.718
[2,] 2011 7 2 13 43 54.281
[3,] 2011 7 2 13 43 59.843
[4,] 2011 7 2 13 44 5.390
[5,] 2011 7 2 13 44 10.859
[6,] 2011 7 2 13 44 16.375
[7,] 2011 7 2 13 44 21.890
[8,] 2011 7 2 13 44 27.390
[9,] 2011 7 2 13 44 33.015
[10,] 2011 7 2 13 44 38.531
[11,] 2011 7 2 13 44 44.078
[12,] 2011 7 2 13 44 49.546
[13,] 2011 7 2 13 44 55.078
[14,] 2011 7 2 13 45 0.718
[15,] 2011 7 2 13 45 6.281
[16,] 2011 7 2 13 45 11.953
[17,] 2011 7 2 13 45 17.453
[18,] 2011 7 2 13 45 22.984
I would like to write a function that will have inputs like that:
function(data, TimeStamps, timeBegin, timeEnd) {(not fixed though)
and will return the index of start and the end.
I need your help specify how the input arguments should look like (something
simple and compatible with the format I have already should be good).
Then based on that two arguments, how I can search for start and end of
timestamps inside the MeasurementSet$Timestamps and return the indexes of start
and end of the time block?
I would like to thank you in advance fo ryour help
B.R
Alex
[[alternative HTML version deleted]]
I find your question impossible to answer as you do not provide any description of what the matrix columns actually capture and how the variable in your proposed function relate to the columns of this matrix. Best, Daniel alaios wrote:> > Dear all > I have the following time stamps (in the following format) > > MeasurementSet$TimeStamps > ?????? [,1] [,2] [,3] [,4] [,5]?? [,6] > ? [1,] 2011??? 7??? 2?? 13?? 43 48.718 > ? [2,] 2011??? 7??? 2?? 13?? 43 54.281 > ? [3,] 2011??? 7??? 2?? 13?? 43 59.843 > ? [4,] 2011??? 7??? 2?? 13?? 44? 5.390 > ? [5,] 2011??? 7??? 2?? 13?? 44 10.859 > ? [6,] 2011??? 7??? 2?? 13?? 44 16.375 > ? [7,] 2011??? 7??? 2?? 13?? 44 21.890 > ? [8,] 2011??? 7??? 2?? 13?? 44 27.390 > ? [9,] 2011??? 7??? 2?? 13?? 44 33.015 > ?[10,] 2011??? 7??? 2?? 13?? 44 38.531 > ?[11,] 2011??? 7??? 2?? 13?? 44 44.078 > ?[12,] 2011??? 7??? 2?? 13?? 44 49.546 > ?[13,] 2011??? 7??? 2?? 13?? 44 55.078 > ?[14,] 2011??? 7??? 2?? 13?? 45? 0.718 > ?[15,] 2011??? 7??? 2?? 13?? 45? 6.281 > ?[16,] 2011??? 7??? 2?? 13?? 45 11.953 > ?[17,] 2011??? 7??? 2?? 13?? 45 17.453 > ?[18,] 2011??? 7??? 2?? 13?? 45 22.984 > > > I would like to write a function that will have inputs like that: > ??????? function(data, TimeStamps, timeBegin, timeEnd) {(not fixed > though)?? > > > and will return the index of start and the end. > > I need your help specify how the input arguments should look like? > (something simple and compatible with the format I have already should be > good). > Then based on that two arguments, how I can search for start and end of > timestamps inside the MeasurementSet$Timestamps and return the indexes of > start and end of the time block? > > I would like to thank you in advance fo ryour help > > B.R > Alex > > [[alternative HTML version deleted]] > > > ______________________________________________ > R-help@ mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. >-- View this message in context: http://r.789695.n4.nabble.com/function-for-handling-time-tp3907880p3908310.html Sent from the R help mailing list archive at Nabble.com.
On 10/16/2011 04:13 AM, Alaios wrote:> Dear all > I have the following time stamps (in the following format) > > MeasurementSet$TimeStamps > [,1] [,2] [,3] [,4] [,5] [,6] > [1,] 2011 7 2 13 43 48.718 > [2,] 2011 7 2 13 43 54.281 > [3,] 2011 7 2 13 43 59.843 > [4,] 2011 7 2 13 44 5.390 > [5,] 2011 7 2 13 44 10.859 > [6,] 2011 7 2 13 44 16.375 > [7,] 2011 7 2 13 44 21.890 > [8,] 2011 7 2 13 44 27.390 > [9,] 2011 7 2 13 44 33.015 > [10,] 2011 7 2 13 44 38.531 > [11,] 2011 7 2 13 44 44.078 > [12,] 2011 7 2 13 44 49.546 > [13,] 2011 7 2 13 44 55.078 > [14,] 2011 7 2 13 45 0.718 > [15,] 2011 7 2 13 45 6.281 > [16,] 2011 7 2 13 45 11.953 > [17,] 2011 7 2 13 45 17.453 > [18,] 2011 7 2 13 45 22.984 > > > I would like to write a function that will have inputs like that: > function(data, TimeStamps, timeBegin, timeEnd) {(not fixed though) > > > and will return the index of start and the end. > > I need your help specify how the input arguments should look like (something simple and compatible with the format I have already should be good). > Then based on that two arguments, how I can search for start and end of timestamps inside the MeasurementSet$Timestamps and return the indexes of start and end of the time block? >Hi Alex, I think what you are trying to do is this: TimeStamps<-matrix( c(2011,7,2,13,43,48.718, 2011,7,2,13,43,54.281, 2011,7,2,13,43,59.843, 2011,7,2,13,44,5.390, 2011,7,2,13,44,10.859, 2011,7,2,13,44,16.375, 2011,7,2,13,44,21.890, 2011,7,2,13,44,27.390, 2011,7,2,13,44,33.015, 2011,7,2,13,44,38.531, 2011,7,2,13,44,44.078, 2011,7,2,13,44,49.546, 2011,7,2,13,44,55.078, 2011,7,2,13,45,0.718, 2011,7,2,13,45,6.281, 2011,7,2,13,45,11.953, 2011,7,2,13,45,17.453, 2011,7,2,13,45,22.984), ncol=6,byrow=TRUE) findBeginEnd<-function(x,timeBegin,timeEnd) { bits2date<-function(x) { the_date<-strptime(paste(x,c("-","-"," ",":",":",""), sep="",collapse=""),format="%Y-%m-%d %H:%M:%S") return(the_date) } dimx<-dim(x) timeBegin<-strptime(timeBegin,format="%Y-%m-%d %H:%M:%S") timeEnd<-strptime(timeEnd,format="%Y-%m-%d %H:%M:%S") start_index<-1 nextdate<-bits2date(x[1,]) while(nextdate < timeBegin && start_index < dimx[1]) { start_index<-start_index + 1 nextdate<-bits2date(x[start_index,]) } end_index<-start_index while(timeEnd > nextdate && end_index < dimx[1]) { end_index<-end_index + 1 nextdate<-bits2date(x[end_index,]) } return(list(start=start_index,end=end_index)) } findBeginEnd(TimeStamps,"2011-7-2 13:44:20.0","2011-7-2 13:45:12.0") Jim