Displaying 4 results from an estimated 4 matches for "lst5".
Did you mean:
lst
2013 Jun 08
0
data
...;- lapply(lst3,function(x){
??? ??? ??? ???? ?? 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<- lappl...
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
...1$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[!(all(x$evnmt_brutal==1)|all(x$evnmt_brutal==0)),])
??? lst4<- lst3[lapply(lst3,nrow)!=0]
??? lst5<- lapply(seq_along(lst4),function(i){
???????????????????? do.call(rbind,lapply(which(lst4[[i]]$evnmt_brutal==1),function(x) {
??????????????????????????????????????? x1<-c(x-2,x-1,x)
??????????????????????????????????????? x2<-x1[!any(x1==0)]
??????????????????????????????????????? x3<...
2013 Jun 04
0
choose the lines2
...1$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[!(all(x$evnmt_brutal==1)|all(x$evnmt_brutal==0)),])
??? lst4<- lst3[lapply(lst3,nrow)!=0]
??? lst5<- lapply(seq_along(lst4),function(i){
??? ??? ??? ??? ???? do.call(rbind,lapply(which(lst4[[i]]$evnmt_brutal==1),function(x) {
??? ??? ??? ??? ??? ??? ??? ??? ??? ??? x1<-c(x-2,x-1,x)
??? ??? ??? ??? ??? ??? ??? ??? ??? ??? x2<-x1[!any(x1==0)]
??? ??? ??? ??? ??? ??? ??? ??? ??? ??? x3<...