Dear Arun,
Thankyou very much for your reply. You always come up to save the day.
So kind of you...!!!
Eliza
> Date: Thu, 12 Dec 2013 12:36:18 -0800
> From: smartpink111@yahoo.com
> Subject: Re: [R] function inside a function
> To: eliza_botto@hotmail.com
> 
> 
> 
> Hi Eliza,
> 
> Actually, I used the modified function by Berend.
> fun <- function(x, krow) {
>     f <- numeric(length(x))
>     f[1] <- A[krow,1] + x[2]- 1/x[1]
>     f[2] <- A[krow,2] +x[2] - sin(x[1])
>     f
>  }
> 
>  x.start <- c(1,1)
> t(sapply(seq_len(nrow(A)),function(i) nleqslv(x.start,fun,krow=i)$x))
>          [,1]      [,2]
> [1,] 1.052828 0.2725286
> [2,] 1.131672 0.4487542
> [3,] 1.109174 0.4534483
> [4,] 1.093078 0.4935468
> [5,] 1.098613 0.4420152
> [6,] 1.088997 0.4384237
> [7,] 1.005843 0.2912907
> 
> A.K.
> 
> On Thursday, December 12, 2013 3:16 PM, eliza botto <eliza_botto@hotmail.com> wrote:
> 
> Dear Arun,
> Thankyou very much for your reply.
> 
> I m getting the following error.
> May be i m not running the full code.
> 
> i used it in the following way.
> 
> library(nleqslv) 
> 
> fun <- function(x) { 
>      f <- numeric(length(x)) 
>      f[1] <-  A[,1]+x[2] - 1/x[1] 
>      f[2] <-  A[,2]+x[2] -
> sin(x[1]) 
>      f 
> } 
> x.start <- c(1,1) 
> t(sapply(seq_len(nrow(A)),function(i) nleqslv(x.start,fun,krow=i)$x))
> Kindly see, if you could help.
> Eliza
> 
> > Date: Thu, 12 Dec 2013 11:01:47 -0800
> > From: smartpink111@yahoo.com
> > Subject: Re: [R] function inside a function
> > To: r-help@r-project.org
> > CC: bhh@xs4all.nl; eliza_botto@hotmail.com
> > 
> > Hi,
> > May be this helps:
> > t(sapply(seq_len(nrow(A)),function(i) nleqslv(x.start,fun,krow=i)$x))
> > 
> > 
> > A.K.
> > 
> > 
> > On Thursday, December 12, 2013 1:54 PM, eliza botto <eliza_botto@hotmail.com> wrote:
> > Dear Berend,Thankyou very much for your reply. I actually wanted to inserts each row value of A in f[1] anf f[2], with column 1 value in f[1] and column 2 values in f[2]. Once that been done, i should have in the end, 124 vaues of x[1] for column 1 and 124 for column 2.I hope i am clear this time.Thanks for your help.Eliza
> > 
> > > Subject: Re: [R] function inside a function
> > > From: bhh@xs4all.nl
> > > Date: Thu, 12 Dec 2013 19:35:58 +0100
> > > CC: r-help@r-project.org
> > > To: eliza_botto@hotmail.com
> > > 
> > > 
> > > On 12-12-2013, at 17:10, eliza botto <eliza_botto@hotmail.com> wrote:
> > > 
> > > > Dear users of R,
> > > > I am trying to inculcate a function inside a function. For that to be done, i copied following function from internet. 
> > > > 
> > > > library(nleqslv) fun <- function(x) { 
> > > >á á  f <- numeric(length(x)) 
> > > >á á  f[1] <-á A[,1]+x[2] - 1/x[1] 
> > > >á á  f[2] <-á A[,2]+x[2] - sin(x[1]) 
> > > >á á  f 
> > > > } 
> > > > x.start <- c(1,1) 
> > > > nleqslv(x.start,fun) 
> > > > I have a matrix "A" with dimension 124 rows and 2 columns. In f[1] line, in place of A[,1] i want to inculcate each value (each row) of 
> > > > column 1 of matrix A. while doing it, In f[2] line, in place of A[,2] i want to inculcate each value (each row) of column 2 of matrix A.á 
> > > > For suppose A has following rows
> > > > 0.6772941á á á á á á á á á á á á á á á 0.5962983
> > > > 0.4348938á á á á á á á á á á á á á á á 0.4563702
> > > > 0.4481236á á á á á á á á á á á á á á á 0.4418828
> > > > 0.4213013á á á á á á á á á á á á á á á 0.3944993
> > > > 0.4682232á á á á á á á á á á á á á á á 0.4485623
> > > > 0.4798529á á á á á á á á á á á á á á á 0.4477387
> > > > 0.7029005á á á á á á á á á á á á á á á 0.5533228
> > > > While using 0.66772941 in f[1], use 0.5962983 in f[2]. 
> > > > How can i do this in R.
> > > > Thanks in advance,
> > > 
> > > 
> > > It is not clear what you actually want. 
> > > Maybe something like this
> > > 
> > > library(nleqslv)
> > > 
> > > A <- matrix(c(0.6772941,á 0.5962983,
> > >á á á á á á á  0.4348938,á 0.4563702,
> > >á á á á á á á  0.4481236,á 0.4418828,
> > >á á á á á á á  0.4213013,á 0.3944993,
> > >á á á á á á á  0.4682232,á 0.4485623,
> > >á á á á á á á  0.4798529,á 0.4477387,
> > >á á á á á á á  0.7029005,á 0.5533228), byrow=TRUE,ncol=2)
> > > 
> > > fun <- function(x, krow) {
> > >á á  f <- numeric(length(x))
> > >á á  f[1] <- A[krow,1] + x[2]- 1/x[1]
> > >á á  f[2] <- A[krow,2] +x[2] - sin(x[1])
> > >á á  f
> > > }
> > > 
> > > x.start <- c(1,1)
> > > nleqslv(x.start, fun, krow=1)
> > > nleqslv(x.start, fun, krow=2)
> > > 
> > > 
> > > > Eliza ááá ááá  ááá á  ááá ááá á 
> > > > ááá [[alternative HTML version deleted]]
> > > > 
> > > 
> > > Please do not post in HTML. You should know by now.
> > > 
> > > Berend
> > > 
> > > > ______________________________________________
> > > > 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.
> > > 
> > ááá ááá  ááá á  ááá ááá á 
> > ááá [[alternative HTML version deleted]]
> 
> > 
> > ______________________________________________
> > 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.
> > 
 		 	   		  
	[[alternative HTML version deleted]]

