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

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
test4 へ行く。

command: R ex1

R: a1 <- c(5,2,7,3,5)
R: a2 <- c(1,9,7,0,3) 
R: a1[5 < a1]
R: a2[5 < a2] 
R: v
R: #mean(v)
command: end ex1
command: program ex2
program: dim Table
program: dim RowLabel
program: dim ColumnLabel
program: fun vv()=""+v
program: url="http://www.yama-lab.org/r-1/index.php?test3"
program: page=ex("connector", "getpage "+url)
program: pageR=getResultPart(page)
program: parseCsv(pageR, Table, RowLabel, ColumnLabel)
program: ix=getindex(Table, RowLabel, ColumnLabel("device"),"=","a-0")
program: v=Table(ix,ColumLabel("v"))
program: ex("ex1","run")
program: ex("ex1","eval v <- "+v)
command: end ex2
command: run ex2
command: clear sendBuffer
command: getOutput ex1
command: sendResults.
result: