p,function(x) {x1<-x[,colSums(is.na(x))!=nrow(x)];
if(is.data.frame(x1))
>x1[complete.cases(x1),] else x1[complete.cases(x1)] })
># temp1<-lapply(temp1,function(x) x[is.data.frame(x)])
>#3 columns subset
>temp3<-temp1[lapply(temp1,length)==3]
>
>
>temp3New<-temp3[sapply(
ad_00600_W.load_00600_F: Factor w/ 17 levels
> ",,","2000.875,,414312.49534",..: 2
>3 4 5 6 7 8 9 10 11 ...
> $ 02169570,,:'data.frame':17 obs. of 1 variable:
> ..$ CYEAR_Decimal.load_00600_W.load_00600_F: Factor w/ 17 levels
>",,","
2 matches
Mail list logo
