search for: initc

...uot;),difftime(dosetime[5],dosetime[4],units="hours"),difftime(dosetime[6],dosetime[5],units="hours"))) times[ is.na(times) ] <- 0 KSTART <-0.06 dosetotal <-matrix(c(dosetotal[1],dosetotal[2],dosetotal[3],dosetotal[4],dosetotal[5])) dosetotal[ is.na(dosetotal) ] <- 0 initc <-if (times[1,]==0) 0 else dosetotal[1]*exp(-KSTART*(times[1]+times[2]+times[3]+times[4]+times[5]))+dosetotal[2]*exp(-KSTART*(times[2]+times[3]+times[4]+times[5]))+dosetotal[3]*exp(-KSTART*(times[3]+times[4]+times[5]))+dosetotal[4]*exp(-KSTART*(times[4]+times[5]))+dosetotal[5]*exp(-KSTART*times[...

...loops it uses and I have 9 series that I'd like to examine (81 total combinations). It was easy enough to replace one of the while loops with a vector operation, but the others are tough. Anyone have either alternative code or a suggestion for how to replace the other loops below? Thanks initc<-function(x,y){ n<-min(length(x),length(y)) # -- Demean -- @ xm<-x-mean(x) ym<-y-mean(y) # -- Cross Products -- @ a<-xm*ym b<-xm*xm c<-ym*ym cx0<-mean(b) cy0<-mean(c) list(cx0=cx0,cy0=cy0) } corse<-function(x,y,cx0,cy0,mix=1){ # FROM code by stock and wa...

...e1 nss_wins[15212]: ERROR: string overflow by 1 (16 - 15) in safe_strcpy [taeno_structure.pdf] Jul 12 12:31:09 mandrake1 nss_wins[15215]: [2004/07/12 12:31:09, 0] lib/util_str.c:safe_strcpy_fn(600) Jul 12 12:31:09 mandrake1 nss_wins[15215]: ERROR: string overflow by 1 (9 - 8) in safe_strcpy [INITC~FJ.BAK] Jul 12 12:31:09 mandrake1 nss_wins[15215]: [2004/07/12 12:31:09, 0] lib/util_str.c:safe_strcpy_fn(600) Jul 12 12:31:09 mandrake1 nss_wins[15215]: ERROR: string overflow by 1 (7 - 6) in safe_strcpy [INIT.C.bak] i also get these errors ocasionaly wins[15421]: [2004/07/12 12:37:19, 0] s...