search for: med

...sed to be this way? Thanks Johnny > x [1] 61.6 52.7 61.3 65.2 62.8 63.7 64.8 58.7 44.9 57.0 64.3 55.1 50.0 41.0 [15] 43.0 45.9 52.2 45.5 46.9 31.6 40.6 44.8 39.4 31.0 37.5 32.6 23.2 34.6 [29] 38.3 38.1 19.5 21.2 15.8 33.3 28.6 25.8 > Grp [1] Yng Yng Yng Yng Yng Yng Yng Yng Yng Yng Yng Yng Med Med Med Med Med Med [19] Med Med Med Med Med Med Old Old Old Old Old Old Old Old Old Old Old Old Levels: Yng Med Old > pairwise.t.test(x=x,g=Grp,p.adjust.method="none") Pairwise comparisons using t tests with pooled SD data: x and Grp Yng Med Med 1.0e-06 -...

...Non-Stratified Nomogram: f<-cph(S~A+B+C+D+E+F+H,x=T,y=T,surv=T,time.inc=10*12,method="breslow") srv=Survival(f) srv120=function(lp) srv(10*12,lp) quant=Quantile(f) med=function(lp) quant(.5,lp) at.surv=c(0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9) at.med=c(120,80,60,40,30,20,15,10,8,6,4,2,0) nomogram(f,lp=F, fun=list(srv120, med),funlabel=c("120-mo Survival","Median Survival"),fun.at=list(at.surv, at.med)) I get a the following warning: Warning mess...

Hi, I have newbie question. Suppose I have the following data: temp <- data.frame(type1 = c("male", "female", "male", "female", "female"), type2 = c("low", "med", "high", "low", "med"), a = c(1,2,4, NA, 3), b = .... [TRUNCATED] temp type1 type2 a b c 1 male low 1 5 0 2 female med 2 NA 0 3 male high 4 5 1 4 female low NA 1 1 5 female med 3 2 NA how to change all NA into 0 (zero) ? so I wou...

...o I am using sem to look at the direct effect of one variable on another but i am uncertain if i am progressing correctly. An example: covar1<-? matrix(c(0.4,-0.2,3,-0.2 , 0.3,-2 , 3 ,-2 , 60), nrow=3,byrow=T) rownames(covar1)<-colnames(covar1)<-c("endo","exo","med") path1<-matrix(c(? ? "exo -> endo",? "g1", NA, ????????????????????????? "exo -> med", "g2",? NA, ????????????????????????? "med -> endo", "g3", NA ??? ??? ??? ??? ??? ??? ??? "med<->med",NA,1, ??? ??? ??...

The following two patches allow the parallel use of memsharing, xenpaging and xen-access by using an independent ring buffer for each feature. Please review. v2: - update mem_event_check_ring arguments, check domain rather than domain_id - check ring_full first because its value was just evaluated - check if ring buffer is initialized before calling mem_access_domctl/mem_paging_domctl

Estimados, tengo un grafico al que agregue una linea con abline(), este es el codigo ... library(Hmisc) # agregar una linea horizontal con el valor del angulo de contacto del control trellis.device(color = FALSE) xYplot(Cbind(ca.med[,3],ca.med[,5],ca.med[,6])~ca.med[,2], groups=Sol, data=ca.med, xlab=list(label="Concentration (mM)", cex=1.3), ylab=list(label="Contact Angle (°)", cex=1.3), keys="lines", type="b", method="bars", scales=list(x=list(log=10), cex=1.3), abline=list(h...

Hello. I'm a newbie here. In my script (I name it readData.R), I wrote the followings: readData <-function(){ med = read.csv("medicalData.csv");} Then I tested the script by 'Source R Code' then on the command I typed 'readData()' then I typed 'med' to check if the variable contains the medical data but it returned 'Object med is not found'. What did I do wrong? Please...

Dear colleagues, What did I not understand ? ->my intention I want to create a new variable: In plain language: If someone is taking anithypertensive treatment (med.hyper==1) table(med.hyper) med.hyper 0 1 472 97 I want to subtract 5 mmHg (rr.dia.2m-5) from the measured diastolic blood pressure (rr.dia.2m) if not treated - the value of the measured diastolic blood pressure should remain the same ->my code (data frame is attached !) rr.dia2.corr<-...

...ve the individual pairs of square brackets along with their content - plus the space directly behind it - from address strings such as this: [Swidsinski, Alexander; Loening-Baucke, Vera; Lochs, Herbert] Charite Humboldt Univ, Innere Klin, D-10098 Berlin, Germany; [Hale, Laura P.] Duke Univ, Med Ctr, Dept Pathol, Durham, NC 27710 USA I'd like get the following result: Charite Humboldt Univ, Innere Klin, D-10098 Berlin, Germany; Duke Univ, Med Ctr, Dept Pathol, Durham, NC 27710 USA I tried address = gsub("(.*)[(.*)]", "\\2", address) But this delet...

Dear all, This relatively routine analysis has left me frustrated and in a rut. I have a dataset (data1), which I subset in order to remove rows where HabitatDensity="Med". This dataset looks correct when I call it up, however, when I create a table out of the new subset (data2), my table continues to show the "Med" information as 0. This is a problem because I need a 2x2xK structure for my analysis and the fourfoldplot routine, and therefore wish...

Dear all, I'm trying to analyze data with the following structure: ind cat tx age 40.2 por fol peq vh 35 41.9 por fol med vh 35 68.9 por fol preov vh 35 71.5 por fol peq ser 37 67.5 por fol med ser 37 76.9 por fol preov ser 37 78.7 por fol peq otr 37 78.3 por fol med otr 37 82.1 por fol preov otr 37 83.9 por fol peq vh 37 80.6 por...

...9;A','A','A','FFFF','FFFF', 'A','A','B','B'), risk=c('high','high','high','high','high','high','high','high', 'med','med','med','med','med','med','med', 'low','low','low','low'), treatment=c('none','optX','optZ','none','optZ','none','optX','opt...

...orting from a file (there are other columns of numeric data): > xy x y 1 1 1 2 1 1 3 1 1 4 1 1 5 2 2 6 2 2 7 2 2 8 2 2 > where x is a column of factors, and y is a column of factors, that have different levels, e.g., > x [1] low low low low hi hi hi hi Levels: low hi > y [1] med med med med medhi medhi medhi medhi Levels: med medhi How do I get the columns to use the combined levels c("low","med","medhi","high") so that the data frame is actually: > xy x y 1 1 2 2 1 2 3 1 2 4 1 2 5 4 3 6 4 3 7 4 3 8 4 3 > I'...

Hello everyone, First i explain my aim. I would like to calculate the frecuency of temperature (datos.mx1, columns 3-6) for each month with the thresholds of table lf.med and lc.med. numero1 <- hist(subset(datos.mx1[,3], datos.mx1$Mes==1),plot=FALSE,breaks=c(min(datos.mx1[,3]),lf.med[1,2],lc.med[1,2],max(datos.mx1[,3]))) # First month and only the first weather station (column 3) I now have to apply the above command for all 12 months at all the weather station...

...fying the CRL in smb.conf? It seems to me that the smartcard login is not really reliable. Then my users still have to log in with password. For now, as long as 4.19 is not yet released. Hans Schulze EDV Tel: +49 3581 66931-41 Fax: +49 3581 66931-281 Mail: h.schulze at labor-ostsachsen.de Medizinisches Labor Ostsachsen MVZ GbR Nebenbetriebsst?tte G?rlitz Cottbuser Stra?e 11 D-02826 G?rlitz www.labor-ostsachsen.de <https://www.labor-ostsachsen.de> Die Hauptbetriebsst?tte der Medizinisches Labor Ostsachsen MVZ GbR befindet sich in der Flinzstra?e 1 in 02625 Bautzen. Die Medizinisc...

...mputation followed by a logistic regression model using lrm. Everything works fine until I try to run the test for goodness of fit: residuals(type=c("gof")) One needs to specify y=T and x=T in the fit. But I get a warning message when I do that with fit.multiple.impute. a<-aregImpute(~med.hist.err+ med.discr+newLiving+No.drugs+Days.categ+Los+Age+Ward+Sex, n.impute=20, nk=0,data=med.err) ddist<-datadist(Age,No.drugs,Days.categ, Sex, Living, Ward) options(datadist="ddist") fmi<-fit.mult.impute(med.hist.err~Age+No.drugs+Days.categ+Sex+Living+Ward, fitter=lrm, x=T, y=T,...

...Any comments and/or suggestions are very welcome. let's create a vector var1: var1 <- rnorm(100) and 5 five logical vectors. In this case the vectors don't mean anything, I just need 5 vectors to illustrate my problem. Each of the 5 vectors identifies a geographic area of my interest. med <- var1 < -0.7275 anglo <- var1 > -0.7275 & var1 < -0.09402 scand <- var1 > -0.09402 ceast <- var1 < -0.7275 & var1 > -4.10500 seast <- var1 < 2.5 & var1 > 0.49 and let's put all the vectors together in a data frame: data <- data.frame(angl...

Hi there, I recently posted about problems with winbind resolving names from ADS. We have an ADS Domain Controller serving the domain MED-DUS and an NT 4 PDC serving the domain MEDOIL. We want to use a samba server as memberserver in the MED-DUS domain. I joined the samba server to the MED-DUS domain. The domain join worked ok. All users (including MEDOIL) are visible. Next i started winbind. Made sure (via wbinfo and getent) that...

Hello, Any advice or pointers for implementing Sobel's test for mediation in 2-level model setting? For fitting the hierarchical models, I am using "lme4" but could also revert to "nlme" since it is a relatively simple varying intercept model and they yield identical estimates. I apologize for this is an R question with an embedded statistical q...

Muchas gracias Freddy y Carlos ... estuve intentando con .() y con list(), para calcular la media y el error estandar al mismo tiempo en dos columnas, pero me arrojaba un error que no supe interpretar. Ahora ya funciona como sugiere Carlos. Muchas gracias de nuevo. Saludos, Eric. On 14/05/15 19:28, Carlos Ortega wrote: > Hola, > > La forma de hacerlo con data.table es esta:...