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.psych@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.sampath26@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

	[[alternative HTML version deleted]]

