Displaying 4 results from an estimated 4 matches for "lst6".
Did you mean:
lst
2013 Jun 04
0
choose the lines2
...???????????? x4<-x3[!is.na(match(paste(x3$evnmt_brutal,collapse=""),"001")),]
??????????????????????????????????????? x4[!any(duplicated(x4$number))]
??????????????????????????????????????? }
??????????????????????????????????????? ))
??????????????????????????????????? })
?? lst6<-lst5[lapply(lst5,nrow)!=0]
?? names(lst6)<- unlist(lapply(lst6,function(x) unique(x$patient_id)))
?? Mean_01<-do.call(rbind,lapply(lst6,function(x) cbind(Mean_Middle0=mean(x[seq(nrow(x))%%3==2,"basdai_d"]),Mean_1=mean(x[seq(nrow(x))%%3==0,"basdai_d"]))))
rownames(Mean_...
2013 Jun 07
4
matched samples, dataframe, panel data
I R-helpers
#I have a data panel of thousands of firms, by year and industry and
#one dummy variable that separates the firms in two categories: 1 if the firm have an auditor; 0 if not
#and another variable the represents the firm dimension (total assets in thousand of euros)
#I need to create two separated samples with the same number os firms where
#one firm in the first have a corresponding
2013 Jun 04
0
choose the lines2
...??? ??? ??? x4<-x3[!is.na(match(paste(x3$evnmt_brutal,collapse=""),"001")),]
??? ??? ??? ??? ??? ??? ??? ??? ??? ??? x4[!any(duplicated(x4$number))]
??? ??? ??? ??? ??? ??? ??? ??? ??? ??? }
??? ??? ??? ??? ??? ??? ??? ??? ??? ??? ))
??? ??? ??? ??? ??? ??? ??? ??? ??? })
?? lst6<-lst5[lapply(lst5,nrow)!=0]
?? names(lst6)<- unlist(lapply(lst6,function(x) unique(x$patient_id)))
?? Mean0bet_01<- do.call(rbind,lapply(lst6,function(x) mean(x[seq(nrow(x))%%3==2,"basdai_d"])))
?? lst7<-list(lst6,Mean0bet_01)
?? lst7
?? #lapply(lst7,head,2)???
?? }?? ??? ???...
2013 Jun 08
0
data
...? lst<- lapply(x,function(y){
??? ??? ??? ??? ??? ??? ??? y[!all(y$dummy==0),]
??? ??? ??? ??? ??? ??? ??? ???? })
??? ??? ??? ??? ?? lstNew<- lst[lapply(lst,nrow)>1]
??? ??? ??? ??? ?? lstNew1<- unique(lstNew)
??? ??? ??? ??? ?? })
???????? lst5<- lst4[lapply(lst4,length)>0]
??? ?lst6<- lapply(lst5,function(x) {
??? ??? ??? ??? ??? lst<- lapply(x,function(y){
??? ??? ??? ??? ??? ??? ? y[!all(y$dummy==1),]
??? ??? ??? ??? ??? ??? ?? })
??? ??? ??? ??? ??? lst[lapply(lst,nrow)>0]
??? ??? ??? ??? ??? })
???????? lst7<- lapply(lst6,function(x){
??? ??? ??? ??? ??? lst<...