R语言程序纠错

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

> fr2=function(x){
+   x1=x[1]
+   x2=x[2]
+   x3=x[3]
+   (x1^2+x2-x3)^2+(x1+x2^2-x3)^2
+ }
> grr=function(x){
+   x1=x[1]
+   x2=x[2]
+   x3=x[3]
+   c(2*x1*2*(x1^2+x2-x3)+2*(x1+x2^2-x3),
+     2*(x1^2+x2-x3)+2*x2*2*(x1+x2^2-x3),
+     -2*(x1^2+x2-x3)-2(x1+x2^2-x3))
+ }
> uimat=rbind(c(1,0,0),c(0,1,0),c(0,0,1))
> cimat=c(0,0,0)
> cop=constrOptim(c(0.1,0.2,0.3),fr2,grr,ui=uimat,ci=cimat)
Error in grad(theta, ...) : attempt to apply non-function
后面这个报错，是什么问题，怎么修改？求大神解答，谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 function Attempt apply rbind 程序

grr函数最后一行2后面少了个乘号*

qoiqpwqr 发表于 2016-5-19 11:55
grr函数最后一行2后面少了个乘号*

谢谢大神！感动！