Rにおいて変数の扱い．　（0

今の状況

下記のRのライブラリを使用し，
lpSolveにおいて，0－1整数計画問題を実行しています．
エラーなく，結果がでていますが，

2点困っています

1.現状は1行ずつしか結果が出せない．

例

lp("max",v,w, "<=", 100000, all.bin=T)
1,0,1,1,0,1,1,1,1,1

理想は，条件の100000を少しずつ増やして結果を一気に出したい．

R
1例
2lp("max",v,w, "<=", 100000,　←ここを変える all.bin=T)
3
41,1,1,0,0,0,0,0,0,0
51,1,1,1,1,0,0,1,0,0
61,1,1,1,1,1,1,1,0,0
71,1,1,1,1,1,1,1,1,0
81,1,1,1,1,1,1,1,1,1

2.R Guiにおいて上記結果のcsv出力の方法がわからない．

検索したり，してやってみましたが，私の理解不足なのか思うようにできません．上記結果をcsvに下記の例のように出力できる方法をご教授いただきたいです．

csv
11,1,1,0,0,0,0,0,0,0
21,1,1,1,1,0,0,1,0,0
31,1,1,1,1,1,1,1,0,0
41,1,1,1,1,1,1,1,1,0
51,1,1,1,1,1,1,1,1,1

ソースコード

R
1library(lpSolve)
2 v <- c(1.4,0.3,0.2,1.4,0.5,1.2,0.7,0.5,1.5,0.9)
3 v
4
5 w <- matrix(c(8133.332676,1706.618625,941.1447107,8423.01453,2674.32118,7354.495538,4414.198078,2660.75215,8729.872722,5155.979678), nrow=1)
6 w
7 
8
9 lp("max",v,w, "<=", 100000, all.bin=T)
10
11 lp("max",v,w, "<=", 200000, all.bin=T)
12
13 lp("max",v,w, "<=", 300000, all.bin=T)
14
15 lp("max",v,w, "<=", 400000, all.bin=T)
16
17 lp("max",v,w, "<=", 500000, all.bin=T)
18
19 lp("max",v,w, "<=", 600000, all.bin=T)
20
21 lp("max",v,w, "<=", 700000, all.bin=T)
22
23 lp("max",v,w, "<=", 800000, all.bin=T)
24
25 lp("max",v,w, "<=", 900000, all.bin=T)
26
27 lp("max",v,w, "<=", 1000000, all.bin=T)
28
29 
30 lp("max",v,w, "<=", 100000, all.bin=T)$solution
31
32 lp("max",v,w, "<=", 200000, all.bin=T)$solution
33
34 lp("max",v,w, "<=", 300000, all.bin=T)$solution
35
36 lp("max",v,w, "<=", 400000, all.bin=T)$solution
37
38 lp("max",v,w, "<=", 500000, all.bin=T)$solution
39
40 lp("max",v,w, "<=", 600000, all.bin=T)$solution
41
42 lp("max",v,w, "<=", 700000, all.bin=T)$solution
43
44 lp("max",v,w, "<=", 800000, all.bin=T)$solution
45
46 lp("max",v,w, "<=", 900000, all.bin=T)$solution
47
48 lp("max",v,w, "<=", 1000000, all.bin=T)$solution

補足情報（FW/ツールのバージョンなど）

R 3.3.2 R Guiを使用．

行動規範の内容に同意します

回答1件

ベストアンサー

1.for文で処理して空のデータフレームdata.frame()に貯める感じでいかがですか？
2.csv出力にはwrite.table()を使いました。

こちらではlp()の出力結果に再現性が無いのでご参考程度に。

R
1library(lpSolve)
2 v <- c(1.4,0.3,0.2,1.4,0.5,1.2,0.7,0.5,1.5,0.9)
3 w <- c(8133.332676,1706.618625,941.1447107,8423.01453,2674.32118,7354.495538,4414.198078,2660.75215,8729.872722,5155.979678)
4
5arg <- seq(100000,1000000,by=100000)
6df  <- data.frame()
7
8for(i in 1:length(arg)){
9	df.new <-  lp("max",v,w, "<=", arg[i], all.bin=T)$solution
10	df <- rbind(df, df.new)
11}
12
13write.table(df,"パス名.csv",sep=",",row=F, col=F)