Jeff,
Of course a data.frame is a list of columns. Duh!
Sorry about that. Was working about 10 hours straight.
Also sorry about the excess attributes. They were created by via expand.grid.
Here is my current solution which seems to be working:
lapply(1:nrow(tstSet), function(x, y, z) oneRun(y[x,],z), tstSet, inp)
Thanks so much for your timely help,
Best,
KW
--
On Sep 26, 2014, at 12:23 AM, Jeff Newmiller <jdnew...@dcn.davis.ca.us> wrote:
> On suggestion is to tell us what you want to accomplish, because that error
> makes perfect sense to me and your intent is rather opaque. Data frames are
> not lists of rows, they are lists of columns.
>
> One solution could be
>
> tstSet[["term"]] + 1
>
> Another might be
>
> tstSet <- within(tstSet,{term <- term +1})
>
> ---------------------------------------------------------------------------
> Jeff Newmiller The ..... ..... Go Live...
> DCN:<jdnew...@dcn.davis.ca.us> Basics: ##.#. ##.#. Live Go...
> Live: OO#.. Dead: OO#.. Playing
> Research Engineer (Solar/Batteries O.O#. #.O#. with
> /Software/Embedded Controllers) .OO#. .OO#. rocks...1k
> ---------------------------------------------------------------------------
> Sent from my phone. Please excuse my brevity.
>
> On September 25, 2014 8:25:44 PM PDT, Keith S Weintraub <kw1...@gmail.com>
> wrote:
>> Folks,
>>
>> I have the following problem.
>>
>> tstSet<-structure(list(corr = c(0.59, 0.62), term = c(7, 7), am =
>> c("AmYes",
>> "AmNo"), prem = c(19.5, 14.75)), .Names = c("corr", "term", "am",
>> "prem"), out.attrs = structure(list(dim = structure(c(3L, 2L,
>> 2L, 41L), .Names = c("corr", "term", "am", "prem")), dimnames =
>> structure(list(
>> corr = c("corr=0.59", "corr=0.62", "corr=0.65"), term = c("term=5",
>> "term=7"), am = c("am=AmYes", "am=AmNo"), prem = c("prem=10.00",
>> "prem=10.25", "prem=10.50", "prem=10.75", "prem=11.00", "prem=11.25",
>> "prem=11.50", "prem=11.75", "prem=12.00", "prem=12.25", "prem=12.50",
>> "prem=12.75", "prem=13.00", "prem=13.25", "prem=13.50", "prem=13.75",
>> "prem=14.00", "prem=14.25", "prem=14.50", "prem=14.75", "prem=15.00",
>> "prem=15.25", "prem=15.50", "prem=15.75", "prem=16.00", "prem=16.25",
>> "prem=16.50", "prem=16.75", "prem=17.00", "prem=17.25", "prem=17.50",
>> "prem=17.75", "prem=18.00", "prem=18.25", "prem=18.50", "prem=18.75",
>> "prem=19.00", "prem=19.25", "prem=19.50", "prem=19.75", "prem=20.00"
>> )), .Names = c("corr", "term", "am", "prem"))), .Names = c("dim",
>> "dimnames")), row.names = c(460L, 239L), class = "data.frame")
>>
>>> tstSet
>> corr term am prem
>> 460 0.59 7 AmYes 19.50
>> 239 0.62 7 AmNo 14.75
>>
>> A function:
>>
>> twoRun<-function(aRow, inp) {
>> aRow[["term"]] + inp
>> }
>>
>> When I try the following:
>> lapply(tstSet, twoRun, 1)
>>
>> I get the following error:
>> Error in aRow[["term"]] : subscript out of bounds
>>
>> Any suggestions?
>>
>> Thanks much for your time,
>> KW
>>
>>
>>
>>
>> --
>>
>> ______________________________________________
>> R-help@r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
