search for: dt3

...t;vl") dt1[,":="(vrb_nm=str_sub(vrb,end=2),vrb_tp=str_sub(vrb,start=-1))] dt2 <- dcast(dt1,seq+vrb_nm~vrb_tp,fun.aggregate=\(x) paste0(x,collapse="|"),value.var="vl") dt2[,":="(c=fifelse(a=="1"|b=="1","1","0"))] dt3 <-dcast(dt2,seq~vrb_nm,fun.aggregate=\(x) paste0(x,collapse="|"),value.var="c") setnames(dt3,paste0(colnames(dt3),"c")) dt <- dt[dt3,on=.(seq=seqc)] Te crea un grupo de variables tipo c que es la lógica que necesitas .. pero le puedes reemplazar por el nombre de...

...b_tp=str_sub(vrb,start=-1))] > > > dt2 <- dcast(dt1,seq+vrb_nm~vrb_tp,fun.aggregate=\(x) > > > paste0(x,collapse="|"),value.var="vl") > > > dt2[,":="(c=fifelse(a=="1"|b=="1","1","0"))] > > > dt3 <-dcast(dt2,seq~vrb_nm,fun.aggregate=\(x) > > > paste0(x,collapse="|"),value.var="c") > > > setnames(dt3,paste0(colnames(dt3),"c")) > > > dt <- dt[dt3,on=.(seq=seqc)] > > > > > > Te crea un grupo de variables tipo c qu...

...b_tp=str_sub(vrb,start=-1))] > > > dt2 <- dcast(dt1,seq+vrb_nm~vrb_tp,fun.aggregate=\(x) > > > paste0(x,collapse="|"),value.var="vl") > > > dt2[,":="(c=fifelse(a=="1"|b=="1","1","0"))] > > > dt3 <-dcast(dt2,seq~vrb_nm,fun.aggregate=\(x) > > > paste0(x,collapse="|"),value.var="c") > > > setnames(dt3,paste0(colnames(dt3),"c")) > > > dt <- dt[dt3,on=.(seq=seqc)] > > > > > > Te crea un grupo de variables tipo c qu...

Hello I need to use this command: cbind(ftable(xtabs(cnt~geo+slp+con+hey,data=dt3)) hey is in count of success /failure value but cbind gives failure/success counts. I want to change the order of this cbind as success /failure counts. for instance: I want cbind to give counts as 32-4552 rather than 4552-32 what should I do ? thanks in advance Ahmet TURKEY ______________...

hi guys..please help me with this i am working on two data frames one goes like this: DF1 Sample_id RepairHours Denatured Dose ZeroMean FourtyFiveMean NinetyMean 1 SDM071 0 1 B 60.5 19.0 45.0 2 SDM071 1 1 B 46.0 23.0 42.5 3 SDM071 2 1 B 52.5 24.0 40.0 4 SDM071

...ae 1.8 ak -0.9 b1 0 b2 0 b3 0 b4 0 b5 0 b6 0 b7 0 b8 0 b9 0 b10 0 b11 0 b12 0 c2 0 c3 0 c4 0 c5 0 c6 0 c7 0 c8 0 c9 0 c10 0; y=a0+al*l+ae*e+ak*k +(b1*di1+b2*di2+b3*di3+b4*di4+b5*di5+b6*di6 +b7*di7+b8*di8+b9*di9+b10*di10+b11*di11+b12*di12)* (1*dt1+c2*dt2+c3*dt3+c4*dt4+c5*dt5+c6*dt6+c7*dt7 +c8*dt8+c9*dt9+c10*dt10); title '***** lee/schmidt parameter estimates *****'; My R code is as follows: ############## library(plm) dt <- read.table("dt.dta", sep = "\t", header= T) dt$id <- factor(dt$id) dt$yr <- facto...

Hello! I have a column in my data frame that I have to split: I have to distill the numbers from the text. Below is my example and my solution. x<-data.frame(x=c("aaa1_bbb1_ccc3","aaa2_bbb3_ccc2","aaa3_bbb2_ccc1")) x library(stringr) out<-as.data.frame(str_split_fixed(x$x,"aaa",2)) out2<-as.data.frame(str_split_fixed(out$V2,"_bbb",2))

...8 ak -0.9 b1 0 b2 0 b3 0 b4 0 b5 0 b6 0 b7 0 b8 0 b9 0 b10 0 b11 0 b12 0 c2 0 c3 0 c4 0 c5 0 c6 0 c7 0 c8 0 c9 0 c10 0; y=a0+al*l+ae*e+ak*k +(b1*di1+b2*di2+b3*di3+b4*di4+b5*di5+b6*di6 +b7*di7+b8*di8+b9*di9+b10*di10+b11*di11+b12*di12)* (1*dt1+c2*dt2+c3*dt3+c4*dt4+c5*dt5+c6*dt6+c7*dt7 +c8*dt8+c9*dt9+c10*dt10); title '***** lee/schmidt parameter estimates *****'; My R code is as follows: ############## library(plm) dt <- read.table("dt.dta", sep = "\t", header= T) dt$id <- factor(dt$id) dt$yr <- fac...

Hello list. I'm trying to rebuild the 2.6.9.67.0.20.EL kernel, but it fails even without modifications. How did I try it? Created a (non-root) build environment (not a mock ) Installed the kernel.scr.rpm and did a rpmbuild -ba --target=`uname -m` kernel-2.6.spec 2> prep-err.log | tee prep-out.log The build failed at the end: Processing files: kernel-xenU-devel-2.6.9-67.0.20.EL Checking