test4 のバックアップ(No.6)

FrontPage
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=3
program: vals="c("
program: urls(0)="http://www.yama-lab.org/r-1/index.php?test3"
program: urls(1)="http://www.yama-lab.org/r-1/index.php?test5"
program: urls(2)="http://www.yama-lab.org/r-1/index.php?test6"
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, 2.0)]
[REAL* (0.6666666666666666)]
currentDevice="yamaRasPiDp9_1",Date=2016/9/14/ 14:45:45