如何让这个程序顺利run

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如题：

xiao<- function (co, intercept, power, value){
        len.co<-length(co);
        len.int<-length(intercept);
        len.pow<-length(power);
        len.val<-length(value);
       
        n<- len.co*len.int*len.pow*len.val;
        equ.solut<-rep(0, n);
       
        for(i in 1:len.co){
                for (j in 1:len.int){
                        for(k in 1:len.pow) {
                                for(l in 1:len.val){
                                        index<-i*j*k*l;
                                        equ.solut[index]<-(value[l]/co[i]-intercept[j])^(1/power[k])-1
                                        par[index,]<-list(as.numeric(c(equ.solut[index], co[i],intercept[j],power[k],value[l])))
                                }
                        }
                }
        }
       
       
        return(par)
}

co<-c(100)
intercept<-c(0,1)
power<-c(10)
value=c(1000, 800, 600)

xiao(co, intercept, power, value)

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Run

Already done by myself.

讲得可以