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:31:12
終了行:
[[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:31:12
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
