test の変更点

追加された行はこの色です。
削除された行はこの色です。
test へ行く。
test の差分を削除
[[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 <- 0
 R: repeat{
 R: + if(n == 5){
 R: + break;
 R: + }else{
 R: + n <- n+1
 R: + }
 R: + n 
 R: + }
 R: if(n == 5){
 R: break;
 R: }else{
 R: n <- n+1
 R: }
 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)]
 null
 [NULL ]
 null
 [NULL ]
 [REAL* (0.0)]
 [NULL ]
 [NULL ]
 null
 [NULL ]
 null
 [NULL ]
 [REAL* (0.0)]
 [NULL ]
 currentDevice="yamaRasPiDp9_1",Date=2017/1/18/ 14:5:20