From: Michael Papenfus <mmpapenf_at_wisc.edu>

Date: Tue 01 Aug 2006 - 03:32:47 EST

Date: Tue 01 Aug 2006 - 03:32:47 EST

I think I need to clarify a little further on my original question.

I have the following two rows of data:

mydat<-data.frame(d1=c(3,5),d2=c(6,10),p1=c(.55,.05),p2=c(.85,.35))

* >mydat
*

d1 d2 p1 p2

1 3 6 0.55 0.85

2 5 10 0.05 0.35

I need to optimize the following function using optim for each row in mydat fr<-function(x) {

u<-x[1]

v<-x[2]

sqrt(sum((plnorm(c(d1,d2,u,v)-c(p1,p2))^2))
}

x0<-c(1,1) # starting values for two unknown parameters
y<-optim(x0,fr)

In my defined function fr, (d1 d2 p1 p2) are known values which I need to read in from my dataframe and u & v are the TWO unknown parameters. I want to solve this equation for each row of my dataframe.

I can get this to work when I manually plug in the known values (d1 d2 p1 p2). However, I would like to apply this to each row in my dataframe where the known values are automatically passed to my function which then is sent to optim which solves for the two unknown parameters for each row in the dataframe.

thanks again,

mike

-- mmpapenf@wisc.edu ______________________________________________ R-help@stat.math.ethz.ch 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.Received on Tue Aug 01 03:37:31 2006

Archive maintained by Robert King, hosted by
the discipline of
statistics at the
University of Newcastle,
Australia.

Archive generated by hypermail 2.1.8, at Tue 01 Aug 2006 - 06:16:32 EST.

*
Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help.
Please read the posting
guide before posting to the list.
*