RDX2 X  .Random.seed õ³.‘Æ. .Traceback ,edit.default(get(subx, envir = parent), ...) $edit(get(subx, envir = parent), ...) $fix(sample.size.normal.paralell.rfc) alpha.F?î¸Që…¸ last.warning dpois x lambda logþ names NaNs producedþ precision.2.by.2.rfc source  'function (mat=total.2.by.2.design.mat)  {  xtx<-t(mat)%*%mat  ee<-eigen(xtx) + ii<-ee[[2]]%*%diag(1/ee[[1]])%*%t(ee[[2]]) L dimnames(ii)<-list(c("delta","tau","mu","psi"),c("delta","tau","mu","psi")) ( tau.minus.mu<-ii[2,2]+ii[3,3]-2*ii[2,3] return(list(inv.mat=round(ii,3),effects=round(c(delta=ii[1,1],tau=ii[2,2],mu=ii[3,3],psi=ii[4,4],tau.minus.mu=tau.minus.mu),3))) }þý mat total.2.by.2.design.matþ { <- xtx %*% t ÿþ ÿþþÿ ee eigenÿþþÿ iiÿÿ [[ÿ@þ diag /?ðÿÿ?ðþþþþÿÿÿ@þþþþÿ dimnamesÿþ list c delta tau mu psiþÿ delta tau mu psiþþþÿ tau.minus.mu - + [ÿ@@þÿÿ@@þþ *@ÿÿ@@þþþþ returnÿ inv.mat roundÿ@þ effects#ÿÿ deltaÿÿ?ð?ðþ tauÿÿ@@þ muÿÿ@@þ psiÿÿ@@þÿÿþ@þþþþ sample.size.normal.paired.rfc ÿ /function (alpha=0.05,beta=0.2,sigma=1,delta=1)  {  z.alpha<-qnorm(1-alpha/2)  z.beta<-qnorm(1-beta) N<-(z.alpha+z.beta)*sigma/delta return(N*N) }þý alpha?©™™™™™š beta?É™™™™™š sigma?ð%ÿ?ðþÿÿ z.alpha qnormÿ?ðÿ*ÿ@þþþþÿ z.beta.ÿÿ?ð+ÿþþþÿ Nÿ ÿ (ÿ-ÿ/ÿþþ,ÿþ%ÿþþ!ÿ ÿ0ÿ0ÿþþþ sample.size.normal.paralell.rfc ÿ /function (alpha=0.05,beta=0.2,sigma=1,delta=1)  {  z.alpha<-qnorm(1-alpha/2)  z.beta<-qnorm(1-beta) " N<-2*(z.alpha+z.beta)*sigma/delta L return(list(study.size=N*N,comment="Groups of equal size, two-sided test")) }þý$*ÿ?©™™™™™š+ÿ?É™™™™™š,ÿ?ð%ÿ?ðþÿÿ-ÿ.ÿÿ?ðÿ*ÿ@þþþþÿ/ÿ.ÿÿ?ð+ÿþþþÿ0ÿÿ ÿ ÿ@1ÿÿ-ÿ/ÿþþþ,ÿþ%ÿþþ!ÿÿ study.size ÿ0ÿ0ÿþ comment $Groups of equal size, two-sided testþþþ ÿ0?ð?ð?ð?ð?ð?ð?ð?ð?ð?ð?ð?ð?ð¿ð?ð¿ð?ð¿ð¿ð?ð?ð¿ð?ð¿ð?ð¿ð?ð¿ð?ð¿ð?ð¿ð?ð¿ð dim  þþ