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.
