search for: newtim

...osition)^2/sigma_pos) } #### Now the physical parameters tau<-0.1 beta<-1/tau St<-tau ### since I am in dimensionless units and tau is already in units of 1/|alpha| D=2e-2 q<-2*beta^2*D ############### Now the grid in space and time time<-5 # time extent tsteps<-501 # time steps newtime<-seq(0,time,len=tsteps) #### Now the things specific for the dynamics along x lam1<- -beta/2*(1+sqrt(1+4*St)) lam2<- -beta/2*(1-sqrt(1+4*St)) xmin<- -0.5 xmax<-0.5 x0<-0.1 vx0<-x0 nx<-101 ## grid intervals along x newx<-seq(xmin,xmax,len=nx) # grid along x # M1 <- do...

...*t)-1)/(2*lam2) ) } # now the same function where the only argument t is given as a 1x1 vector sigma_pos<-function(myargs) { q/(lam1-lam2)^2*( (exp(2*lam1*myargs[1])-1)/(2*lam1)-2/(lam1+lam2)*(exp(lam1*myargs[1]+lam2*myargs[1])-1) + (exp(2*lam2*myargs[1])-1)/(2*lam2) ) } # Now I use do.call newtime<-seq(1,5,len=1001) mypar<-c(q,lam1,lam2) sig_xx<-do.call("sigma_pos_old",c(list(t=newtime),mypar)) # Now this line does not work; sig_xx2 is not a vector equal to sig_xx sig_xx2<-do.call("sigma_pos",c(list(myargs =newtime))) So I am making some mistake with t...

...bset(DataSet, DataSet$NewDateTime < '2004-08-05 14:15:00')) DataSubset <- subset(DataSet, DataSet$NewDateTime < '2004-08-05 14:00:00', select = DataSet) I have tried also separating the date and time fields in the input file, and casting with instructions such as: DataSet$NewTime <- strptime(DataSet$Time, '%H:%M:%S') DataSet$NewTime <- as.POSIXct(strptime(DataSet$Time, '%H:%M:%S')) but these seem to generate a NewTime field that contains today's date + the time data, and also will not subset based on date/time. I appreciate greatly any help and...

Dear list, When I read some source code, I find lot of place used symbol <<- , e.g. lastTime <<- newTime; What is the meaning here? Also, I find some method with the name start with dot, e.g. .RowStandardizeCentered = function(x) { div = sqrt( rowSums(x^2) ); div[ div == 0 ] = 1; return( x/div ); } What is the special meaning for the method name start with a dot? Thank you very much in advanc...

...3 1 8:30 am 45 9 0 9:00 am I did the folllowing: x <- read.table("heart.csv",sep=",") names(x) <- c("heartrate","ex","Med","Time") x.newtime <- strptime(x$Time, format= "%H:%M %p") What I am tring to do is: First I am trying to get all the data from when there was a medicine taken in previous hour. Second I will plot heartrate VS median Excercise in previous hour. In the first problem, how can I get the desired dat...

...a.frame(dateTime = dateTime, var1 = var1, var2 = var2) >> df$dateTime <- strptime(df$dateTime,"%m/%d/%Y %H:%M") >> >> I want to create 10 minute interval data as follows: >> >> minTime <- min(df$dateTime) >> maxTime <- max(df$dateTime) >> newTime <- seq(minTime,maxTime,600) >> newDf <- data.frame(newDateTime = newTime) >> newDf <- merge(newDf,df,by.x = "newDateTime",by.y = "dateTime",all.x = >> TRUE) >> >> The objective here is to create a data frame with values from df for the &gt...

...3' /tmp/cmpfile find . -type f ! -newer /tmp/cmpfile | shifttime.pl 3600 ------ shifttime.pl ------- #!/usr/bin/perl $offset = shift; $offset += 0; !$offset and die "must specify offset"; while (<STDIN>) { chomp; -w or next; $oldtime = (stat $_)[9]; $oldtime or next; $newtime = $oldtime + $offset; utime $newtime, $newtime, $_; } ------ end ------------------- Prevention: To prevent the problem in the first place you need to prevent changing to DST. This can be done by either running the windows system in UTC or by disabling DST and changing the system time manua...

...existing value) if existing timeout is longer than new value in "int [proto]_packet()" in net/netfilter/nf_conntrack_proto_[proto].c for each protocol. Alternatively might be easier to do the check in __nf_ct_refresh_acct() in net/netfilter/nf_conntrack_core.c. But notice that "if (newtime - ct->timeout.expires >= HZ)" there has an integer underflow when newtime is smaller than ct->timeout.expires, and some things are currently relying on it, e.g. in tcp_packet() when a TCP connection coming out of ESTABLISHED has its timeout reduced. -- You are receiving this mail b...

Hi, If I have the following data.frame >y time val 1 08:00:05.834 1 2 08:03:13.345 2 3 08:10:12.443 3 > and the following function which converts the time string to the number of milliseconds since midnight > str_to_millis function( s ) { a <- as.numeric( unlist( strsplit(s,":",fixed="TRUE") ) ) m <- a[1]*3600000 + a[2]*60000 + a[3]*1000 }

One variable contains values (1.30 - one hour and thirty minutes, 1.2 (which is supposed to be 1.20 - one hour and twenty minutes)). I would like to convert to a minute variable so 1.2 is converted to 80 minutes. How?

Dear List, Does anybody no how to compare mean survival times for two (more) groups in R? What test statistics should I use? Thank you very much! Joe [[alternative HTML version deleted]]

Hello all, I'm having a problem with data handling. My input data is (dput in the after the signature): Date Time Fraction 06/19/13 22:15:39 0.3205 06/19/13 22:15:44 0.3205 06/19/13 22:15:49 0.3205 06/19/13 22:15:54 0.3205 06/19/13 22:15:59 0.3205 06/19/13 22:16:09 0.3205 Date in format month/day/year, Time in HH:MM:SS and fraction represents the fractions of

...c4, 2.4-pre3 to be ignored as versions. + Finally it selects the most recent of these which has a size no smaller + than 90% of the biggest of any of them. + I acknowlege these are pretty arbitrary rules - arh 17 October 2003 */ +{ + char newname[MAXPATHLEN]; + char tmpname[MAXPATHLEN]; + time_t newtime=0; + size_t newsize=0; + struct dirent *di; + DIR *d; + char* dirname; + char *name; + + strncpy(buf,fname,MAXPATHLEN); + dirname = buf; + name = strrchr(buf,'/'); + if (name) + *name++ = 0; //terminate name at end of directory part + else { + name = (char*)fname; + dirname = ".&...

Hello, I am having trouble with the conversion specifications as described in the strptime help page. > head(dat) Date Time Open High Low Close Up Down Volume 1 11/19/2012 935 137.89 138.06 137.82 138.05 3202541 3013215 0 2 11/19/2012 940 138.04 138.40 138.02 138.38 2549660 2107595 4657255 3 11/19/2012 945 138.38 138.40 138.18 138.19 1627379 1856318 3483697 4

Hi, I am learning R. I am using nlme function to my dataset. I am getting error "Coefficient matrix not invertible". I don't know how to fix this problem. > bcows1.nlme<-nlme(Temp~model(newTime, beta, delta, kappa), data= bcows.group, + fixed=beta+delta+kappa~1, + random=beta+delta+kappa~1, + start=list(fixed=c(coef(bcows.nls)[1], coef(bcows.nls)[2], coef(bcows.nls)[3]))) > bcows2.nlme<-update(bcows1.nlme, correlation=corARMA(p=2)) Error...

...would like to write a function such that I can divide df vector into any interval, For e.g 10 secs, 5 secs, 15 secs etc.. How can I achieve this. Is there a way to subtract seconds on a chron object For e.g. #This should subtract 20 seconds, but doesn't work, looks like it is subtracting days newtime <- df$tt - 20 Please help. Rusty [[alternative HTML version deleted]]

Hi everyone, My question will probably seem simple to most of you, but I have spent many hours trying to solve it. I need to perform a series of sequential calculations on my dataframe that move across rows and down columns, and then repeat themselves at each unique 'MM' by 'DD' grouping. Specifically, I want to add 'DEPART' time (24 hr time) to 'TRAVEL'(minutes)

...L.36: GETCURRENTTASK() retval=0x00d700d7 ret=0957:1f3d ds=0a2f 08247d08:Call KERNEL.36: GETCURRENTTASK() ret=0957:1f3d ds=0a2f 08247d08:Ret KERNEL.36: GETCURRENTTASK() retval=0x00d700d7 ret=0957:1f3d ds=0a2f 08247d08:Call USER.437: ANSIUPPERBUFF(0x0b5fd82e "C:\\Program Files\\intuit\\qbtimer\\NewTimer.tdb",0x002d) ret=033f:32d5 ds=01e7 08247d08:Ret USER.437: ANSIUPPERBUFF() retval=0x002d ret=033f:32d5 ds=01e7 08247d08:Call USER.437: ANSIUPPERBUFF(0x0b5fd862 "Files\\intuit\\qbtimer\\qbtimer.exe\"",0x0022) ret=033f:32d5 ds=01e7 08247d08:Ret USER.437: ANSIUPPERBUFF() retval=...

On 2014 Jan 22, at 07:35, Stepan Dyatkovskiy <stpworld at narod.ru> wrote: > Hi Raul and Duncan, > > Duncan, > Thank you for review. I hope to present fixed patch tomorrow. > > First, I would like to show few performance results: > > command: "time opt -mergefunc <test>" > > File: tramp3d-v4.ll, 12963 functions > Current