Raw Message

Message-ID: <1302176713.18195.5.camel@kenneth-desktop>
Date: 2011-04-07T11:45:13Z
From: Kenneth Cabrera
Subject: Two functions as parametrs of a function.

Hi R users:

I'm trying to make a function where two of the parameters are
functions, but I don't know how to put each set of parameters for
each function.

What am I missing?

I try this code:

f2<-function(n=2,nsim=100,fun1=rnorm,par1=list(),fun2=rnorm,par2=list()){
    force(fun1)
    force(fun2)
    force(n)
    p1<-unlist(par1)
    p2<-unlist(par2)
    force(p1)
    force(p2)
    localfun1 <- function() fun1(n, p1)
    localfun2 <- function() fun2(n, p2)
    vp<-replicate(nsim,t.test(localfun1(), localfun2())$p.value)
    return(vp)
}

f2(fun1=rbeta,par1=list(shape1=2,shape2=2),fun2=rbeta,par2=list(shape1=1,shape2=2))

Thank you for your help.

Kenneth