search for: p10

...articular element i is dependent on the previous one. I need to do this on vectors that are 1 million or longer and need to repeat that process several hundred times. The for loop works but is slow. If there is a faster way, please let me know. probs <- c(.1, .3, .2, .4, .7, .9, .3, .4, .5, .6) p10 <- 0.6 p00 <- 0.4 vec1 <- rep(0, 10) for (i in 2:10) { vec1[i] <- ifelse(vec1[i-1] == 0, ifelse(probs[i]<p10, 0, 1), ifelse(probs[i]<p00, 0, 1)) } Thanks GG [[alternative HTML version deleted]]

...er, the clients used a different name to connect to the server. It sounds like just changing the clients to ask for the FQDN would do the trick, but it doesn''t. The server has two interfaces, one public, one private; here''s the output from the EL5.1 client: [root@node-r1-u7-c28-p10-o5 ~]# puppetd --test --server=cob err: Could not retrieve configuration: Certificates were not trusted: hostname not match with the server certificate warning: Not using cache on failed configuration [root@node-r1-u7-c28-p10-o5 ~]# puppetd --test --server=cob.local err: Could not retrieve configur...

...ar R-users, I recently began using the ggplot2 package and I am still in the process of getting used to it. My goal would be to plot on the same grid a number of curves derived from two distinct datasets. The first dataset (called molten.data) looks like this : Column names : Perc, Week, Weight P10 21 333.3554 P90 21 486.0480 P10 22 452.6347 P90 22 563.8263 P10 23 575.0960 P90 23 661.6841 P10 24 700.4449 P90 24 779.4067 P10 25 828.4966 P90 25 917.1222 The second dataset (called skj) looks like this: Column names : Week, Perc, Weight 21 1 317.5 22 1...

...: target datalayout = "E-p:64:64:64-p1:32:32:32-p2:64:64:64-p3:64:64:64- a0:0:8-f32:32:32-f64:64:64-i1:8:8-i8:8:8-i16:16:16-i32:32:32-i64:32:64- v64:64:64-v128:128:128-n8:16:32:64" [...] define <3 x i32> @test60(<4 x i32> %call4) { ; CHECK-LABEL: @test60( ; CHECK-NEXT: [[P10:%.*]] = shufflevector <4 x i32> [[CALL4:%.*]], <4 x i32> undef, <3 x i32> <i32 0, i32 1, i32 2> ; CHECK-NEXT: ret <3 x i32> [[P10]] ; %p11 = bitcast <4 x i32> %call4 to i128 %p9 = trunc i128 %p11 to i96 %p10 = bitcast i96 %p9 to <3 x i32> ret &lt...

I want to transform the data by "tapply" to one dataframe. But I can not get it. For example: > tst=tapply(point,pp,length) > tst[1:10] p1 p10 p100 p1000 p1001 p1002 p1003 p1004 p1005 p1006 1 5 1 8 6 5 8 7 4 4 > res=as.data.frame(tst) # I try to transform it > res[1:10,] p1 p10 p100 p1000 p1001 p1002 p1003 p1004 p1005 p1006 1 5 1 8 6 5 8 7 4 4 How to transfrom it like the following: >r...

...finately explain the oplock break errors. However the actual status of a "defunct" process is listed from the ps man page as : "A process that has exited and has a parent, but has not yet been waited for by the parent, is marked <defunct>." However, looking at the 1.9.18p10 code (and Samba2.0 is similar here) the parent goes into the "talktochild()" function and then goest into a sys_wait() call to wait for the dead child (first doing a kill() on the child if the password change failed, just to make sure the child is dead). If it's hanging - then it'...

Hi: We have a machine running 6.2-R-p10 and squid 2.6.17, and upgrade it to 6.3R yesterday, but squid will hang and eat 100% cpu time after restart about 1 hour later, machine still alive, and no response from squid. downgrade to 6.2-R-p10, everything ok again.. here is some infomations: machine type: FreeBSD 6.3-RELEASE #0: Wed Jan...

...(P5-M5+R5) P6<-P5-B R6<-P6*Hembras*R M6<-P6*M T7<-(R6-M6+B)/(P6-M6+R6) P7<-P6-B R7<-P7*Hembras*R M7<-P7*M T8<-(R7-M7+B)/(P7-M7+R7) P8<-P7-B R8<-P8*Hembras*R M8<-P8*M T9<-(R8-M8+B)/(P8-M8+R8) P9<-P8-B R9<-P9*Hembras*R M9<-P9*M T10<-(R9-M9+B)/(P9-M9+R9) P10<-P9-B R10<-P10*Hembras*R M10<-P10*M result<-list(B,T1,P1,R1,M1,T2,P2,R2,M2,T3,P4,R4,M4,T5,P5,R5,M5,T6,P6,R6,T6,P7,R7,M7,T8, P8,R8,M8,T9,P9,R9,M9,T10,P10,R10,M10) return(result) } library(memisc) Gestion<-as.data.frame(Simulate(Ciervos(K1, K0, A, R,M,Pi,Hembras), expand.grid(K1=c(4...

...results as being meaningful? Any help much appreciated, Thanks in advance, Chris func <- function(t, y, p) { Ad <- p["p2"]*(p["p1"]*y["A"]*y["D"])/(p["p2"]+p["p3"]) + p["p6"]*(p["p4"]*y["B"]*p["p10"])/(p["p5"]+p["p6"]) - p["p1"]*y["A"]*y["C"] Bd <- p["p3"]*(p["p1"]*y["A"]*y["D"])/(p["p2"]+p["p3"]) + p["p5"]*(p["p4"]*y["B"]*p["p10"])/(p[&...

Is it possible in R to subset a dataframe by more than one factor, all at once? For instance, I have the dataframe: >data p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 pred 1 0 1 0 0 0 0 0 0 0 0 0.5862069 4 0 0 0 0 0 0 0 0 0 1 0.5862069 5 0 0 0 0 0 0 1 0 0 0 0.5862069 6 0 0 0 0 0 0 0 1 0 0 0.5862069 7 0 0 1 0 0 0 0 0 0 0 0.5862069 9 0 0 0 0 1 0 0 0 0 0 0.5862069 20...

Buenas, Se me hace raro que la función no admita un parámetro para eso. Una opción es hacerlo en dos pasos: P1: Reemplaza p10, p20, ... por algo como q10, q20, ... P2: Haz el reemplazo que quieres. Igualmente puedes hacer el reemplazo que haces y en un segundo paso reemplazar p10_integra_datos por p10_cuales_rep, ... Un saludo, Manuel. El jue, 09-03-2023 a las 10:20 -0300, juan manuel dias escribió: > Hola, > Alg...

Hola, Algo que me está pasando con esta función es lo siguiente: A "p1" lo tengo que reemplazar por "p1_integra_datos" y a "p10" por "p10_cuales_rep", pero como p10 contiene p1, y así pasa con otras preguntas (p2 y p20, por ejemplo), me los reemplaza en ambas, cuándo lo que busco es otra cosa. reglas$condicion_final <- stri_replace_all_fixed(reglas$condicion_minus, c("p1","p2","p3...

shell# /sbin/devfs rule -s 2 delset shell# /sbin/devfs rule -s 2 add hide shell# /sbin/devfs rule -s 2 add path random unhide shell# /sbin/devfs rule -s 2 add path urandom unhide shell# /sbin/devfs rule -s 2 add path zero unhide shell# /sbin/devfs rule -s 2 add path pty\* unhide shell# /sbin/devfs rule -s 2 add path pty\* unhide shell# /sbin/devfs rule -s 2 add path tty\* unhide shell#

...t;- 1 switch <- c } else { switch <- 0 } dP1 <- a+b*P1-switch*P1 dP2 <- a-b*P1+switch*P2 list(c(dP1,dP2,dIN)) }) } # Parameters a <- 0.1 b <- 0.2 c <- 0.5 parms <- c(a=a,b=b,c=c) # Initial conditions P10 <- 100.0 P20 <- 0.0 IN0 <- 0.0 xstart <- c(P1=P10,P2=P20,IN=IN0) # Time points times <- seq(0,10,by=1) out <- as.data.frame(rk4(xstart,times,ode,parms)) [[alternative HTML version deleted]]

...t;- 1 switch <- c } else { switch <- 0 } dP1 <- a+b*P1-switch*P1 dP2 <- a-b*P1+switch*P2 list(c(dP1,dP2,dIN)) }) } # Parameters a <- 0.1 b <- 0.2 c <- 0.5 parms <- c(a=a,b=b,c=c) # Initial conditions P10 <- 100.0 P20 <- 0.0 IN0 <- 0.0 xstart <- c(P1=P10,P2=P20,IN=IN0) # Time points times <- seq(0,10,by=1) out <- as.data.frame(rk4(xstart,times,ode,parms)) [[alternative HTML version deleted]]

...sq(15,4) gam<-matrix(rchisq(75,df=5),15,5) undint<-function(u){ prob<-function(i) { i1<-comb[i,1] i2<-comb[i,2] i3<-comb[i,3] i4<-comb[i,4] val1<-gam[((i3-1)*2+1):(i3*2),i4] vc1<-matrix(12,length(val1),1)-matrix(u,length(val1),1)-val1 distr1<-prod(pchisq(vc1,df=2)) p10<-distr1*1/(exp(-nu[i1])*(1+gam[i2,i4]))*(1-plogis((u+log(gam[i3,i4])-log(1+gam[i2,i4])),0,1)) p10 } val<-c(1:15) q<-sapply(val,prob) }

...life of me see how I can create a coefficient matrix (typically, the LHS) since each line of said matrix, which corresponds to the constraints, needs to be a function of the unknowns in the objective function -- being, p1, p2, p3 and p4. In Maple (for example), this is trivial: ???? cost:=35*p10+55*p12+50*p14+65*p16; cnsts:={t10=640,t12=t10-p10+825,t14=t12-p12+580,t16=t14-p14+925,t16-p16=0,p10<=t10,p12<=t12,p14<=t14,p16<=t16,t10<=1000,t12<=1000,t14<=1000,t16<=1000}; ? ?? Minimize(cost,cnsts,assume={nonnegative}); which yields (correctly): p1=640, p2=405, p3=1000,...

Hi, I have been doing some tests using hping2 and TCP SYN pings targeting local and remote hosts from two FreeBSD 4.7-RELEASE-p10 and one Linux 2.4.18 host. The three machines have the same hardware configuration and have been running for 6 months now. The average load isnt too high (usually 0.01 to 0.15) on the FreeBSD machines. Here is the output from hping2 (excuse me the line wrap), root:~# hping -S -p 80 -c 6 w...

...eate a coefficient matrix (typically, the LHS) since each line of said > matrix, which corresponds to the constraints, needs to be a function of > the unknowns in the objective function -- being, p1, p2, p3 and p4. > > In Maple (for example), this is trivial: > > ???? cost:=35*p10+55*p12+50*p14+65*p16; > cnsts:={t10=640,t12=t10-p10+825,t14=t12-p12+580,t16=t14-p14+925,t16-p16=0,p10<=t10,p12<=t12,p14<=t14,p16<=t16,t10<=1000,t12<=1000,t14<=1000,t16<=1000}; > ? ?? Minimize(cost,cnsts,assume={nonnegative}); > > which yields (correctly): >...

I would like to fit the following function on my data. out.nls<-nls(z ~ p1+ (p2*dat)+(p3*dat^2)+(p4*dat^3)+(p5*AgeS)+(p6*AgeS^2)+(p7*AgeS^3)+ (p8*(dat*AgeS))+(p9*(dat^2*AgeS))+(p10*(dat^3*AgeS))+ (p11*(dat*AgeS^2))+(p12*(dat*AgeS^3))+(p13*(dat^2*AgeS^2))+ (p14*(dat^2*AgeS^3))+(p15*(dat^3*AgeS^3)), start=list(p1=0,p2=0,p3=0,p4=0,p5=0,p6=0,p7=0,p8=0,p9=0,p10=0,p11=0,p12=0,p1 3=0,p14=0,p15=0),trace=trace, control=control) which relates the z-scor...