test2 のバックアップ(No.5)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
test2 へ行く。
- 1 (2016-07-11 (月) 14:26:43)
- 2 (2016-08-29 (月) 17:39:12)
- 3 (2016-11-14 (月) 12:39:02)
- 4 (2016-11-16 (水) 19:48:46)
- 5 (2016-11-18 (金) 17:39:02)
- 6 (2016-12-07 (水) 16:07:41)

command: R ex1
R: print("start")
command: end ex1
command: program ex2
program: dim urls
program: dim Table
program: dim RowLabel
program: dim ColumnLabel
program: n=10
program: vals="c("
program: for i=0 to 9
program:  urls(i)="http://www.yama-lab.org/r-1/index.php?test" + (5+i)
program: next i
program: for i=0 to n-2
program:  page=ex("connector", "getpage "+urls(i))
program:  pageR=getResultPart(page)
program:  parseCsv(pageR, Table, RowLabel, ColumnLabel)
program:  ix=getindex(Table, RowLabel, ColumnLabel("device"),"=","a-0")
program:  vals=vals+Table(ix,ColumnLabel("v"))+","
program: next i
program: page=ex("connector", "getpage "+urls(n-1))
program: pageR=getResultPart(page)
program: parseCsv(pageR, Table, RowLabel, ColumnLabel)
program: ix=getindex(Table, RowLabel, ColumnLabel("device"),"=","a-0")
program: vals=vals+Table(ix,ColumnLabel("v"))+")"
program: ex("ex1","run")
program: out="eval v <- "+vals
program: ex("ex1",out)
program: ex("ex1","eval mean(v)")
command: end ex2
command: run ex2
command: clear sendBuffer
command: getOutput ex1
command: sendResults.
result:
[STRING "start"]
[REAL* (0.0, 0.0, 0.0, 0.0, 16.0, 15.0, 25.0, 7.0, 19.0, 24.0)]
[REAL* (10.6)]
currentDevice="yamaRasPiDp9_1",Date=2016/11/18/ 17:39:1