Covert columns of a dataframes to list : I have a data.frame NOAA_OLR_TEST

    NOAA_OLR_TEST <- structure(list(DATE_START = structure(c(1170720000, 1170806400,1170892800, 1170979200, 1171065600, 1171152000, 1171238400, 1171324800,1171411200, 1171497600), class = c("POSIXct", "POSIXt")), DATE_END = structure(c(1171065600,1171152000, 1171238400, 1171324800, 1171411200, 1171497600, 1171584000,1171670400, 1171756800, 1171843200), class = c("POSIXct", "POSIXt")), LONGITUDE = c(-89.5, -89.5, -89.5, -89.5, -89.5, -88.5, -88.5,-88.5, -88.5, -88.5), LATITUDE = c(-179.5, -179.5, -179.5, -179.5,-179.5, -179.5, -179.5, -179.5, -179.5, -179.5), OLR_DATA_1 = c(150,146, 146, 142, NA, 150, 158, 155, 143, 142), OLR_DATA_2 = c(146,146, 142, 141, 150, NA, 155, 143, 142, 138), OLR_DATA_3 = c(146,NA, 141, 150, 158, 155, 143, 142, 138, 135), OLR_DATA_4 = c(142,141, 150, 158, 155, 143, 142, 138, 135, NA), OLR_DATA_5 = c(141,150, NA, 155, 143, 142, 138, 135, 140, 139)), .Names = c("DATE_START","DATE_END", "LONGITUDE", "LATITUDE", "OLR_DATA_1", "OLR_DATA_2","OLR_DATA_3", "OLR_DATA_4", "OLR_DATA_5"), row.names = c(NA,10L), class = "data.frame") 

I wan to covert No.5 to No.9 columns of the dataframes NOAA_OLR_TEST[5:9] to a list

    xy.list <- as.list(as.data.frame(t(NOAA_OLR_TEST[5:9])))

How can I combine  NOAA_OLR_TEST[1:4] and xy.list?

I use mapply，Map，cbind, all of them have some erros.

or there have simply method to covert columns of a dataframes to list

thanks
 
