search for: dat7

...dat[,3]=9 & dat[,4]=2),]=1* *dat3<-dat[(dat[,5]=8 & dat[,4]=9 & dat[,5]=2),]=1* *dat4<-dat[(dat[,4]=8 & dat[,5]=9 & dat[,6]=2),]=1* *dat5<-dat[(dat[,5]=8 & dat[,6]=9 & dat[,7]=2),]=1* *dat6<-dat[(dat[,6]=8 & dat[,7]=9 & dat[,8]=2),6]=1* *dat7<-dat[(dat[,7]=8 & dat[,8]=9 & dat[,9]=2),7]=1* *dat8<-dat[(dat[,8]=8 & dat[,9]=9 & dat[,10]=2),8]=1* ** datfinal<-dat1+da2+dat3+dat4+dat5+dat6+dat7+dat8 final2 <- dat[ rowSums(datfinal) < 2 , ] So my last matrix "final2" will be "dat" witho...

Hi, Try this: dat1<- read.csv("dat7.csv",header=TRUE,stringsAsFactors=FALSE,sep="\t") dat.bru<- dat1[!is.na(dat1$evnmt_brutal),] fun1<- function(dat){??? ? ??? lst1<- split(dat,dat$patient_id) ??? lst2<- lapply(lst1,function(x) x[cumsum(x$evnmt_brutal==0)>0,]) ??? lst3<- lapply(lst2,function(x) x[!(...

...eters. For 4 individuals with 100 data points each the data looks something like this: dat1 : num 100 dat2 : int 4 dat3 : num [1:4] 8 4 2 5 dat4 : num [1:100, 1:4] 1 1 1 1 1 2 2 2 2 2 ... dat5 : num [1:100, 1:4] 2 2 2 2 2 1 2 2 2 2 ... dat6 : num [1:100, 1:4] 16 34.3 33.5 27.9 14.9 ... dat7 : num [1:100, 1:4] 0.357 0.474 0.487 0.495 0.524 ... dat8 : num [1:50, 1:4] 36.4 294.5 24.4 21.1 422.8 ... This is how I've called WinBugs in r: # write data to text file sp.data = list("dat1","dat2","dat3","dat4","dat5","dat6&qu...

Hi, I have a pretty simple problem. Here is the code: dat1=complete(dat.mice,1) dat2=complete(dat.mice,2) dat3=complete(dat.mice,3) dat4=complete(dat.mice,4) dat5=complete(dat.mice,5) dat6=complete(dat.mice,6) dat7=complete(dat.mice,7) dat8=complete(dat.mice,8) dat9=complete(dat.mice,9) dat10=complete(dat.mice,10) dat11=complete(dat.mice,11) dat12=complete(dat.mice,12) dat13=complete(dat.mice,13) dat14=complete(dat.mice,14) dat15=complete(dat.mice,15) dat16=complete(dat.mice,16) dat17=complete(dat.m...

Hi, May be this helps: dat1<- read.csv("dat7.csv",header=TRUE,stringsAsFactors=FALSE,sep="\t") dat.bru<- dat1[!is.na(dat1$evnmt_brutal),] fun2<- function(dat){?? ????? lst1<- split(dat,dat$patient_id) ??? lst2<- lapply(lst1,function(x) x[cumsum(x$evnmt_brutal==0)>0,]) ??? lst3<- lapply(lst2,function(x) x[!(a...

Dear all, I would like to save few variable-names with their values in a tabular form, with that I mean that files can be printed easily in R in a tabular form and also saved in a ascii file that when one opens it see also the variables in a nice tabular format. IS that possible? Below a small example of how should look results in R and in a txt file.              Postal Code | Superb

HI, You can do this: dat1<- read.csv("dat7.csv",header=TRUE,stringsAsFactors=FALSE,sep="\t") dat.bru<- dat1[!is.na(dat1$evnmt_brutal),] fun2<- function(dat){? ????? lst1<- split(dat,dat$patient_id) ??? lst2<- lapply(lst1,function(x) x[cumsum(x$evnmt_brutal==0)>0,]) ??? lst3<- lapply(lst2,function(x) x[!(a...