search for: me1

...,,,, joint12 seems to always kick in, even though I call with, 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$pc1...

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){ ???...

...ven though I call with, 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&...

...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...

...g1 > 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(me...

...>> 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(me...

...rc1 <- 0 vc1 <- var(d1[,2]) mc1 <- as.vector(by(d1[,2],as.numeric(d1[,1]),mean)) vc1m <- vc1*(1+(m-1)*rc1)/(k*m) # EFFECT # ae1 <- anova(lm(e~g,d1)) re1 <- (ae1[1,3]-ae1[2,3])/(ae1[1,3]+(m-1)*ae1[2,3]) if (re1 < 0) re1 <- 0 ve1 <- var(d1[,3]) me1 <- as.vector(by(d1[,3],as.numeric(d1[,1]),mean)) re1p <- 1- m*sum(me1*(1-me1))/(k*(m-1)*mean(me1)*(1-mean(me1))) ve1m <- ve1*(1+(m-1)*re1)/(k*m) ## CONTROL ## r2 <- cor(d2[,2:3])[1,2] # COST # ac2 <- anova(lm(c~g,d2)) rc2 <- (ac2[1,3]-ac2[2,3])/(ac2[1,3]+(m-1)*ac2[2...

...Database ma=matrix(c(0.51139630,-0.12937287, 0.19530080, 0.02273691,-0.43634186,-0.01717149,-0.27597035,-0.41732933,-0.15476464,-0.15692965),nrow = 5, ncol=2) e3<- c(1,2,4) for (i in e3[1] : e3[length(e3)]; (k in 1 : length(e3))){ for (j in e3[1] : e3[length(e3)]; (l in 1 : length(e3))){ me1[k,l] = odleg (nepitabds$points[i,1],nepitabds$points[j,1],nepitabds$points[i,2],nepitabds$points[j,2]) }} -- View this message in context: http://www.nabble.com/difficult-%22for%22-tp25107157p25107157.html Sent from the R help mailing list archive at Nabble.com.

Hello My provider allows to activate/deactivate a forwarding rule by sending a SIP MESSAGE. This is done outside a call. That is, while there is no ongoing call, a SIP client just sends the following message: MESSAGE sip:543951354657 at callfwd.sip.providerx.com SIP/2.0 Call-ID: b9ba106e-613a-46b9-8a4d-0efb4dc0a0f2 CSeq: 1 MESSAGE To: <sip:543951354657 at

...Signif. codes: 0 $-1??***?? 0.001 ??**?? 0.01 ??*?? 0.05 ??.?? 0.1 ?? ?? 1 (Dispersion parameter for binomial family taken to be 1) Null deviance: 1364.4 on 1694 degrees of freedom Residual deviance: 1197.5 on 1681 degrees of freedom AIC: 1225.5 Number of Fisher Scoring iterations: 5 me1 <- lmer( RE2TRCOP~ AGE + POLINT + HAPPY + EFFCOM + TRNEI +GRPETH + TRBLK + BLKCHIEF + RCOPDIFF+ RCOPRATE + RCOPBKIL + RCRIM3YR + RPCTBLAK + (1 | PLACE) , family=binomial(link=logit),data=eldat, method="Laplace") Loading required package: lattice > summary(me1) > Generalized line...

...ispersion (if I read this correctly!) with my real data. It seems to me that this analysis needs a mixed model with hierarchical terms and a binomial link function (?using nlme). Is this possible? I tried using lme4's lmer() function like this: library(lme4) d1$prop <- with(d1, count/total) me1 <- lmer(prop ~ country + (1|region) + (0+country|region), family='binomial', weights=total, data=d1) But I don't think I am using this properly and can't seem to determine the variance due to the different hierarchical terms. Can one use the interaction of country*region instea...

Our backup mail server (which I have just re-configured) tries to contact the primary mail server, and fails. My log shows repeatedly "connection refused": May 15 22:21:41 mx2 sm-mta-rx[8674]: q4FIhPij007483: makeconnection (mail.greenspot.fi. [83.143.217.182]) failed: Connection refused by mail.greenspot.fi. May 15 22:21:41 mx2 sm-mta-rx[8674]: q4FIhPij007483: to=<myuser at

...sim.fr1, i get "Warning messages: using 'as.environment(NULL)' is deprecated" Why does it occur? How can I hide such warning message, especially when coxme is under a loop? Mohammad Ehsanul Karim (Institute of Statistical Research and Training, University of Dhaka) > fit.me1<-coxme(Surv(times,censored) ~ var1+var2+var3+var4+var5+var6, data=sim.fr1, random= ~1|id) Warning messages: 1: using 'as.environment(NULL)' is deprecated 2: using 'as.environment(NULL)' is deprecated 3: using 'as.environment(NULL)' is deprecated > sim.fr1 id...

...ype => history.sale_type, :order_id => order.order_id, :trans_id => history.trans_id, :outcome => history.outcome) end ar << CustomerData.new(:orderitem_data => oi, :transaction_data => trans, :address => order.address, :address2 => order.address2, :f_na me1 => order.f_name1, :l_name1 => order.l_name1) end ar end

So I bought ME1 off amazon and DL/Install went fine using Wine on my Macbook Pro with 10.6.8. The 'launcher' for the game opens and when I click Play a message appears saying that it couldn't reach the authentication server and that I need to check my internet connection. The version of internet explo...

Hi, Can anyone tell me why I am not getting the correct intervals for fixed effect terms for the following generalized linear mixed model from HPDinterval: > sessionInfo() R version 2.4.1 (2006-12-18) i386-pc-mingw32 locale: LC_COLLATE=English_United States.1252;LC_CTYPE=English_United States.1252;LC_MONETARY=English_United States.1252;LC_NUMERIC=C;LC_TIME=English_United States.1252

...U. at .@..n..8. 0x0010: c0a8 3821 0185 c10a 6f87 bfe7 4279 41fb ..8!....o...ByA. 0x0020: 8018 00e3 f1f5 0000 0101 080a 0052 ea63 .............R.c 0x0030: 0052 ea62 302d 0201 0164 2804 0030 2430 .R.b0-...d(..0$0 0x0040: 2204 0b63 7572 7265 6e74 5469 6d65 3113 "..currentTime1. 0x0050: 0411 3230 3136 3131 3231 3136 3337 3035 ..20161121163705 0x0060: 2e30 5a30 0c02 0101 6507 0a01 0004 0004 .0Z0....e....... 0x0070: 00 . 16:37:05.456798 IP 192.168.56.33.49418 > 192.168.56.32.389: Flags [.], ack 62, win 229, options...