Hi Aparna, If you have not defined testStatistics in your code, but it is a function, then either you defined it at some earlier point and it was never removed, or some other package you loaded defines it.
You could try using your code in a clean R session (make sure that an old workspace is not automatically loaded; one way would be by closing R, deleting the old workspace, and then starting a new instance). Cheers, Josh On Tue, Feb 28, 2012 at 1:37 AM, Aparna Sampath <aparna.sampat...@gmail.com> wrote: > Hi Josh > > Kindly find below the code as it is executed: > > test.functional.t <- function(res.em1,res.em2,mint,maxt,se.m=0,points=300) > { > at <- seq(mint,maxt,length.out=points) > by <- at[2] - at[1] > > mu1 <- spline(x=res.em1$tau,y=res.em1$eta,xout=at,method="natural")$y > l2 <- functional.norm(mu1,mu2,by=by) > > s1 <- mean(sapply(1:res.em1$n, > function(i) > { > v <- > spline(x=res.em1$tau,y=res.em1$vi[[i]],xout=at,method="natural")$y > functional.norm(v,by=by)^2 > })) > denominator <- sqrt(s1 / res.em1$n + s2 / res.em2$n) ### formula for se > returnValue <- l2 / (denominator + se.m) > > attr(returnValue,"numerator") <- l2 > attr(returnValue,"denominator") <- denominator > > returnValue > } > > moderated.functional.t <- > function(testStatistics,alpha.step=0.05,quantile.step=0.01) > { > numerators <- unlist(testStatistics["numerator",]) > denominators <- unlist(testStatistics["denominator",]) > } > > I get my error in the function above moderated.functional.t. testStatistics > is shown to be a function(x) when I type it in R console. But there is no > function definition for testStatistics in the code. My R understanding is > still elementary. > > Thanks > Aparna > > > > > On Tue, Feb 28, 2012 at 5:25 PM, Joshua Wiley <jwiley.ps...@gmail.com> > wrote: >> >> Hi Aparna, >> >> Can you please post a reproducible example? It is difficult to >> provide much concrete help without having "testStatistics". One thing >> you might try is looking at: >> >> str(testStatistics["numerator",]) >> >> is it actually a list? If it is not (most likely given the error) and >> it is supposed to be, you need to figure out what aspect of the >> generation of it is going awry. >> >> Cheers, >> >> Josh >> >> On Tue, Feb 28, 2012 at 12:23 AM, Aparna Sampath >> <aparna.sampat...@gmail.com> wrote: >> > Hi All >> > >> > I am trying to use the unlist() in R to a list variable. The following >> > statements are within a function. >> > { >> > denominator <- sqrt(s1 / res.em1$n + s2 / res.em2$n) >> > returnValue <- l2 / (denominator + 11) >> > attr(returnValue,"numerator") <- l2 >> > attr(returnValue,"denominator") <- denominator >> > returnValue >> > } >> > >> > And when I try to unlist the variable returnValue >> > >> > numerators <- unlist(testStatistics["numerator",]) >> > denominators <- unlist(testStatistics["denominator",]) >> > >> > I get the following error: >> > >> >>Error in testStatistics["numerator", ] : >> > object of type 'closure' is not subsettable >> > >> > I read some threads in R help on this error and they had asked to check >> > if >> > we are using the right datatype to the right function. But in my case it >> > is >> > pretty straightforward since I just list it in one function and try to >> > unlist it later. Any suggestions? >> > Thanks for the help :) >> > >> > -- >> > View this message in context: >> > http://r.789695.n4.nabble.com/Error-message-object-of-type-closure-is-not-subsettable-tp3752886p4427399.html >> > Sent from the R help mailing list archive at Nabble.com. >> > >> > ______________________________________________ >> > 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. >> >> >> >> -- >> Joshua Wiley >> Ph.D. Student, Health Psychology >> Programmer Analyst II, Statistical Consulting Group >> University of California, Los Angeles >> https://joshuawiley.com/ > > > > > -- > Aparna Sampath > Master of Science (Bioinformatics) > Nanyang Technological University > Mob no : +65 91601854 -- Joshua Wiley Ph.D. Student, Health Psychology Programmer Analyst II, Statistical Consulting Group University of California, Los Angeles https://joshuawiley.com/ ______________________________________________ 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.