test4 の変更点

追加された行はこの色です。
削除された行はこの色です。
test4 へ行く。
test4 の差分を削除
[[FrontPage]]

 command: R ex1
 R: print("start")
 R: abc <- function(a){  ;
 R: n <- c()  ;
 R: for(i in 1:10){  ;
 R: if(a[i] > 15.0){  ;
 R: n <- c(n,1.0)  ;
 R: }else{  ;
 R: n <- c(n,0.0)  ;
 R: }  ;
 R: }  ;
 R: return (n)  ;
 R: } 
 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)")
 program: out2 = "eval na <- abc(v)"
 program: ex("ex1",out2)
 command: end ex2
 command: run ex2
 command: clear sendBuffer
 command: getOutput ex1
 command: sendResults.
 result:
 [STRING "start"]
 [NULL ]
 [REAL* (0.0, 0.0, 0.0, 26.0, 16.0, 4.0, 18.0, 24.0, 19.0, 14.0)]
 [REAL* (12.1)]
 [REAL* (0.0, 0.0, 0.0, 1.0, 1.0, 0.0, 1.0, 1.0, 1.0, 0.0)]
 currentDevice="yamaRasPiDp9_1",Date=2017/1/30/ 16:30:43

 currentDevice="yamaRasPiDp9_1",Date=2017/1/30/ 16:31:12