FrontPage
command: R ex1
R: a <-c(1,2,3,4,5,6,7)
R: #行列
R: s <-matrix(a,nrow=2,ncol=2)
R: t <- s%*%s
R: #平均
R: mean(a)
R: #中央値
R: median(a)
R: #分散 ((平均-数値)^2の平均)
R: var(a)
R: #標準偏差 (分散値のルート(平方根))
R: sd(a)
R: (x <- data.frame(PIR=val, PEN=pen))
R: #データフレームの作成(ベクトルvalとpenの表)
R: summary(x)
R: #データフレームxの列ごとの特徴を抽出「最小値,第 1 四分位点,中央値,平均,第 3 四分位点,最大値」
R: n <- c(0)
R: for(i to 1:5){
R: n <- n + i
R: n
R: }
command: end ex1
command: clear sendBuffer
command: run ex1
command: getOutput ex1
command: sendResults.
result:
[REAL* (1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0)]
[NULL ]
[REAL* (1.0, 2.0, 3.0, 4.0)]
[REAL* (7.0, 10.0, 15.0, 22.0)]
[NULL ]
[REAL* (4.0)]
[NULL ]
[REAL* (4.0)]
[NULL ]
[REAL* (4.666666666666667)]
[NULL ]
[REAL* (2.160246899469287)]
currentDevice="yamaRasPiDp9_1",Date=2016/10/24/ 15:50:58