search for: p12

...th, e.g., marg1 being TRUE and everything else being FALSE. My attempts with if... else if were not useful. Please help. Thanks. v1<-cprob(z1,x1,a,b,mu1,mu2,rho,j+1,k+1) ??? v0<-cprob(z0,x0,a,b,mu1,mu2,rho,j+1,k+1) ?? ... ??? me1<-me0<-NULL ??? if(joint12) {me1<-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)} ??? if(marg1)?? {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)} ??? if(marg2)?? {me1<-cbind(me1,v1$p2); me0<-cbind(me0,v0$p2)} ??? if(cond12)? {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)} ??? if(cond21)? {me1<-cbind(me1,v1$pc21); me0<-cb...

The following (using if else) did not help. Seemed like joint12 always kicked in. ??? me1<-me0<-NULL. ??? if(joint12){ ????? {me1<-cbind(me1,v1$p12);? me0<-cbind(me0,v0$p12)} ??? } else if(marg1) { ????? {me1<-cbind(me1,v1$p1);?? me0<-cbind(me0,v0$p1)} ??? } else if(marg2) { ????? {me1<-cbind(me1,v1$p2);?? me0<-cbind(me0,v0$p2)} ??? } else if(cond12){ ????? {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)} ??? } el...

Hi, final<-data.frame() ?? for (m1 in 4:10) { ?????? for (n1 in 4:10){? ?????????? for (x1 in 0: m1) { ????????????? for (y1 in 0: n1) { final<- rbind(final,c(m1,n1,x1,y1)) res}}}} ?final1<-within(final,{flag<-ifelse(x1/m1>y1/n1, 1,0)}) ?head(final1) #? m1 n1 x1 y1 flag #1? 4? 4? 0? 0??? 0 #2? 4? 4? 0? 1??? 0 #3? 4? 4? 0? 2??? 0 #4? 4? 4? 0? 3??? 0 #5? 4? 4? 0? 4??? 0 #6? 4? 4?

...nection of a Mac OS X system to the app store by the app store client. Squid is configured using ncsa_auth and I can access https and http websites without a problem. But the app store app is not logging in. I do get ==> /var/log/squid/cache.log <== 2014/06/11 13:23:10| The request CONNECT p12-buy.itunes.apple.com:443 is DENIED, because it matched 'ncsa_users' 2014/06/11 13:23:10| The reply for CONNECT p12-buy.itunes.apple.com:443 is ALLOWED, because it matched 'ncsa_users' 2014/06/11 13:23:10| The request CONNECT p12-buy.itunes.apple.com:443 is ALLOWED, because it matche...

...g else being FALSE. My attempts with if... else > if were not useful. Please help. Thanks. > > v1<-cprob(z1,x1,a,b,mu1,mu2,rho,j+1,k+1) > v0<-cprob(z0,x0,a,b,mu1,mu2,rho,j+1,k+1) > > ... > > me1<-me0<-NULL > if(joint12) {me1<-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)} > if(marg1) {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)} > if(marg2) {me1<-cbind(me1,v1$p2); me0<-cbind(me0,v0$p2)} > if(cond12) {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)} > if(cond21) {me1<-cbind(me1,...

...Please help. Thanks. > >> > >> v1<-cprob(z1,x1,a,b,mu1,mu2,rho,j+1,k+1) > >> v0<-cprob(z0,x0,a,b,mu1,mu2,rho,j+1,k+1) > >> > >> ... > >> > >> me1<-me0<-NULL > >> if(joint12) {me1<-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)} > >> if(marg1) {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)} > >> if(marg2) {me1<-cbind(me1,v1$p2); me0<-cbind(me0,v0$p2)} > >> if(cond12) {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)} > >>...

...ith if... > else > if were not useful. Please help. Thanks. > > v1<-cprob(z1,x1,a,b,mu1,mu2,rho,j+1,k+1) > ???? v0<-cprob(z0,x0,a,b,mu1,mu2,rho,j+1,k+1) > > ??? ... > > ???? me1<-me0<-NULL > ???? if(joint12) {me1<-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)} > ???? if(marg1)?? {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)} > ???? if(marg2)?? {me1<-cbind(me1,v1$p2); me0<-cbind(me0,v0$p2)} > ???? if(cond12)? {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)} > ???? if(cond21)? {me...

On 07/12/23, Philip Prindeville (philipp_subx at redfish-solutions.com) wrote: > We have a CLI that certain users get dropped into when they log in. One of the things they can go is generate certificates (actually .p12 key/certificate bundles) that they will then scp out of the box from another host. Off topic, and assuming the .p12 bundles need to be post-processed by clients for use by ssh, might it not be worth considering an ssh certificate signing authority? I've made the proof-of-concept noted below,...

...f 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, p4=925...

...3=0 # initialization of the value to calculate the test level at 10%. 44 # Creation of an n11 list containing the sizes of the different groups 45 n11=list() 46 for (i in 1:q){ 47 n11[[i]]=rep(as.integer(n/R[i]),R[i]) 48 n11[[i]][R[i]]=n-((R[i]-1)*n11[[i]][1]) 49 } 50 # Creation of lists P11 and P12 which contain the probabilities and 51 # the inverses of the empirical probabilities of the different groups respectively 52 P11=list() 53 P12=list() 54 for (i in 1:q){ 55 P11[[i]]=n11[[i]]/n 56 P12[[i]]=n/n11[[i] 57 } 58 # creation of a list containing the W matrices 59 W=list() 60 for (i in 1:...

...if... else >> if were not useful. Please help. Thanks. >> >> v1<-cprob(z1,x1,a,b,mu1,mu2,rho,j+1,k+1) >> v0<-cprob(z0,x0,a,b,mu1,mu2,rho,j+1,k+1) >> >> ... >> >> me1<-me0<-NULL >> if(joint12) {me1<-cbind(me1,v1$p12); me0<-cbind(me0,v0$p12)} >> if(marg1) {me1<-cbind(me1,v1$p1); me0<-cbind(me0,v0$p1)} >> if(marg2) {me1<-cbind(me1,v1$p2); me0<-cbind(me0,v0$p2)} >> if(cond12) {me1<-cbind(me1,v1$pc12); me0<-cbind(me0,v0$pc12)} >> if(cond21) {me...

...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've recently been working a bit on adding PDU (http://en.wikipedia.org/wiki/Power_distribution_unit) support in NUT. Some of you might have seen the Powerman thread, which also deals with adding more PDUs support: http://powerman.sourceforge.net/supported.html The result is that we now have support for 2 Eaton | Powerware ePDUs (Managed and Monitored iirc, check http://www.epdu.com). I plan

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-score on a IQ subtest to Age (AgeS) and Raw S...

...test level at 10%. > > 44 # Creation of an n11 list containing the sizes of the different groups > 45 n11=list() > 46 for (i in 1:q){ > 47 n11[[i]]=rep(as.integer(n/R[i]),R[i]) > 48 n11[[i]][R[i]]=n-((R[i]-1)*n11[[i]][1]) > 49 } > > > 50 # Creation of lists P11 and P12 which contain the probabilities and > 51 # the inverses of the empirical probabilities of the different groups > respectively > > 52 P11=list() > 53 P12=list() > 54 for (i in 1:q){ > 55 P11[[i]]=n11[[i]]/n > 56 P12[[i]]=n/n11[[i] > > 57 } > > 58 # creation of...

This is maybe not directly an R problem but I have used R to try to solve it so I think somebody may be able to help. I have a mixture model with three components and a quadratic Scheffe polynomial p1x1+p2x2+p3x3+p12x1x2+p13x1x3+p23x2x3 fitted to the response. Now I'd like to compute the mixture corresponding the maximum response. Model for Y1 has the parameters p1=124.02 p2=60.973 p3=41.479 p12=106.824 p13=140.422 p23=81.012 Solving a system of linear equations (solve(A,b)) of the partial derivates and p...

...sh to analyze with R the results of a perception experiment in which subjects had to recognize each stimulus among three choices (this was a forced-choice design). The experiment runs under two different conditions and the data is like the following: N1 : count of trials in condition 1 p11, p12, p13: proportions of choices 1, 2, and 3 in condition 1 N2 : count of trials in condition 2 p21, p22, p23: proportions of choices 1, 2, and 3 in condition 2 How can I test whether the triple (p11,p12,p13) is different from the triple (p21,p22,p23)? Clearly, prop.test does not help me...

...eation of an n11 list containing the sizes of the different groups > > 45 n11=list() > > 46 for (i in 1:q){ > > 47 n11[[i]]=rep(as.integer(n/R[i]),R[i]) > > 48 n11[[i]][R[i]]=n-((R[i]-1)*n11[[i]][1]) > > 49 } > > > > > > 50 # Creation of lists P11 and P12 which contain the probabilities and > > 51 # the inverses of the empirical probabilities of the different groups > > respectively > > > > 52 P11=list() > > 53 P12=list() > > 54 for (i in 1:q){ > > 55 P11[[i]]=n11[[i]]/n > > 56 P12[[i]]=n/n11[[i] >...

...g the data for the CR model. Any hint is appreciated! Christian library(Hmisc) library(rms) library(mice) ## simulating data (taken from rms::residuals.lrm) set.seed(1) n <- 400 age <- rnorm(n, 50, 10) blood.pressure <- rnorm(n, 120, 15) L <- .05*(age-50) + .03*(blood.pressure-120) p12 <- plogis(L) p2 <- plogis(L-1) p <- cbind(1-p12, p12-p2, p2) cp <- matrix(cumsum(t(p)) - rep(0:(n-1), rep(3,n)), byrow=TRUE, ncol=3) y <- (cp < runif(n)) %*% rep(1,3) y <- as.vector(y) ## generating missing data age[1:40]<-NA blood.pressure[30:70]<-NA ## multiple im...

...ot tho. Does anyone know what might be causing these problems? Relavent info follows: Dovecot version: 1.0.r15 OS: freebsd-5.5 Thank you for all your time and consideration. -- panic: kernel trap (ignored) ----------------------------------------------------------------- FreeBSD 5.4-RELEASE-p12 (SMP - 900x2) Tue Mar 7 19:37:23 PST 2006 /////////////////////////////////////////////////////////////////