Skip to content
Prev 360107 / 398503 Next

Unequal column lengths

Hi Tom,
What you want is a list rather than a data frame. So:

df<-read.table(text="  Dat1 Dat2 Dat3
 1    1    5    4
 2    7    7    9
 3    3    3    5
 4    2   NA  5
 5    9   NA NA",
 header=TRUE)
dflist<-as.list(df)
na.remove<-function(x) return(x[!is.na(x)])
sapply(dflist,na.remove)

Jim
On Fri, Apr 15, 2016 at 7:33 AM, Tom Mosca <tom at vims.edu> wrote: