Re: [R] function inside a function
On 12-12-2013, at 17:10, eliza botto eliza_bo...@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.
__
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.
Re: [R] function inside a function
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: b...@xs4all.nl
Date: Thu, 12 Dec 2013 19:35:58 +0100
CC: r-help@r-project.org
To: eliza_bo...@hotmail.com
On 12-12-2013, at 17:10, eliza botto eliza_bo...@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.
Re: [R] function inside a function
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: smartpink...@yahoo.com
Subject: Re: [R] function inside a function
To: eliza_bo...@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_bo...@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: smartpink...@yahoo.com
Subject: Re: [R] function inside a function
To: r-help@r-project.org
CC: b...@xs4all.nl; eliza_bo...@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_bo...@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: b...@xs4all.nl
Date: Thu, 12 Dec 2013 19:35:58 +0100
CC: r-help@r-project.org
To: eliza_bo...@hotmail.com
On 12-12-2013, at 17:10, eliza botto eliza_bo...@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
Re: [R] function inside a function
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_bo...@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: b...@xs4all.nl
Date: Thu, 12 Dec 2013 19:35:58 +0100
CC: r-help@r-project.org
To: eliza_bo...@hotmail.com
On 12-12-2013, at 17:10, eliza botto eliza_bo...@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.
__
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.
