I'm working with some data sets which have several platforms, but would like
to just work with data from one platform at a time.

The code below does NOT work, but it is where I'm at. Can somebody give me a
hint on how to modify the lapply() to do what i would like?

Thanks,
Jeremiah


----------------
library(GEOquery)
geodata <- parseGEO("GSE5720.soft")
gplnames <- names(GPLList(geodata))
j <- 1
while(j <= length(gplnames))
  {
    gsmdata <- lapply(GSMList(geodata), function(x) {
      gplnames[j] == Meta(x)$platform_id   # this line does nothing,
                                        # I would like to alter it so only
                                        # one platform is applied.
    })

    # would like 'gsmdata' to now hold half of data
    # in 'geodata', but it holds all of the data
    j <- j+1
  }

	[[alternative HTML version deleted]]

