「R」とは

インストール

サンプルプログラム

data<-read.csv(
    "./_data/sample_data.csv",
    encoding = 'UTF-8',
    stringsAsFactors = F,
    header=T
)
x <- data$dataX
y <- data$dataY
result <- lm(y~x)
summary(result)

計算の前後が大事

• 全体的な傾向から逸脱しているデータがある
• 分析に使うデータ量やパラメータが適切でない
• データに抜けがある

まとめ

前提条件

• 現地の機器をつないでいるネットワークへアクセスできるサーバーに、本社オフィスからアクセスできた。
• 探すべきIPアドレス帯は第３オクテットまで固定、かつ第４オクテットの範囲が決まっている。
• IPアドレスを指定してwgetが成功することで、そのIPが当たりと言える。

当日の手段：力業

wget -t 1 -T 3 --spider http://X.X.X.1/hogehoge;
wget -t 1 -T 3 --spider http://X.X.X.2/hogehoge;
・・・
wget -t 1 -T 3 --spider http://X.X.X.99/hogehoge;
wget -t 1 -T 3 --spider http://X.X.X.100/hogehoge;

次回からはこれを使う：ワンライナー

$ seq 1 100 | xargs -I@ wget -t 1 -T 3 --spider http://X.X.X.@/hogehoge;

Ctrl+Cを使わない方法はあるか

## 1から順番に数を調べて、3の倍数になったらループを抜ける例。
for v in `seq 1 10`; do if [ $((v % 3)) -eq 0 ]; then echo fuga; break; else echo $v; fi; done

余談

• ライナー（liner）
  • 定期運行する交通機関
  • 「京成スカイライナー」「おはようライナー」の「ライナー」はこちらの意味
• リニア（linear）
  • 一直線に伸びた感じの意味
  • リニアモーターカー　linear motor car
  • 線形代数学　linear algebra

アニメの場合

• 交代前：小林清志さん
• 交代後：大塚明夫さん

• 小林清志さん：エギーユ・デラーズ
• 大塚明夫さん：アナベル・ガトー

PowerShellの場合

きっかけ

このシステムではスクリプトの実行が無効になっているため、ファイル XXXX を読み込むことができません。

調査してみる

PS C:\> Get-ExecutionPolicy LocalMachine
RemoteSigned
PS C:\>

謎が解けた

2種類の「PowerShell」

• Window10プリインストール版
  • PowerShell5.1
  • プロセス名は「powershell.exe」
• 普段使っているPowerShell（後でインストールした後継版）
  • PowerShell7.2
  • プロセス名は「pwsh.exe」

このシステムではスクリプトの実行が無効になっているため、ファイル XXXX を読み込むことができません。 

「謎」の正体

2つのPowerShellの見分け方

起動直後のメッセージ

• powershell.exe は「新機能と改善のために最新の PowerShell をインストールしてください!」とメッセージを表示します。
• pwsh.exe は「PowerShell 7.2.0」のように、バージョン番号を先頭行に表示します。

バージョン番号

$PSVersionTable | find --% "PSVersion"

PS C:\> $PSVersionTable | find --% "PSVersion"
PSVersion                      5.1.22000.282
PS C:\>

PS C:\> $PSVersionTable | find --% "PSVersion"
PSVersion                      7.2.0
PS C:\>

最後に

こんな数式を見かけました

6÷2(1+2)

説1：6÷2(1+2)=3×3=9
説2：6÷2(1+2)=6÷6=1

真実が実は2つ？

• 説1：カッコの中を計算した後、左から順番に割り算と掛け算を実行する。
• 説2：カッコの中を計算した後、省略されている掛け算を優先して実行し、その後で割り算を実行する。

プログラム言語での扱い方

Python 3.7.1 (v3.7.1:260ec2c36a, Oct 20 2018, 14:57:15) [MSC v.1915 64 bit (AMD64)] on win32
Type "help", "copyright", "credits" or "license" for more information.
>>>
>>> 6/2(1+2)
Traceback (most recent call last):
  File "<stdin>", line 1, in <module>
TypeError: 'int' object is not callable
>>>
>>> 6/2*(1+2)
9.0
>>>
>>> (6/2)*(1+2)
9.0
>>>
>>> 6/(2*(1+2))
1.0
>>>

正しい答えはどっち？

その他の「どっちなの問題」

注：単に【最後の審判】で検索すると、ミケランジェロの「最後の審判」がヒットします。これも 「最後の審判」と言われて、絵なのか詰将棋なのかで解釈が分かれる「どっちなの問題」の一例です。

キーマクロを作った経緯

ここまでパターン化できているならキーマクロで自動化しよう！

キーマクロの記録方法

簡単なキーマクロを作ってみる

まずは簡単なキーマクロを作ってみます。

(1,2,3,4,5)

(1)
(2)
(3)
(4)
(5)

キーマクロ機能拡張

S_ReplaceAll(',', '\\)\\r\\n\\(', 1068);  // すべて置換
S_ReDraw(0);    // 再描画

• S_ReplaceAll のパターンを増やして、異なる方法での置換を実行する
• S_ReDrow(0)を最後に呼び出すことで、画面再描画は最小限にする
• 1行をタブで区切られた時の要素数が均一かつ、Excelに貼り付けた時に情報がきれいに出る。

// HTTPメソッドの分割
S_ReplaceAll('\"(GET|POST|HEAD) ', '\t$1\t', 1068);
// HTTP Status の分割
S_ReplaceAll(' ([2-5][0-9][0-9]) ', '\t$1\t', 1068);
// 再描画
S_ReDraw(0);

仕上げ

• 先頭に項目行を入れたい
• 置換後は保存しておいて開いたらすぐに貼り付けられるようにしたい

// ファイルの先頭に移動
S_GoFileTop(0);
// 項目行を追加
S_InsText(′項目1\t項目2\…');

// HTTPメソッドの分割
S_ReplaceAll('\"(GET|POST|HEAD) ', '\t$1\t', 1068);
// HTTP Status の分割
S_ReplaceAll(' ([2-5][0-9][0-9]) ', '\t$1\t', 1068);
（他いろいろ）
// 再描画
S_ReDraw(0);

// 保存
FileSave();

最後に

やりたいこと

　yyyy-mm-dd | 区分1の集計値 | 区分2の集計値 | 区分3の集計値 | …

1. AとBの両方に含まれる日付がある
2. Aだけに含まれる日付がある
3. Bだけに含まれる日付がある

横ではできなかった理由

SELECT * FROM A INNER JOIN B ON A.日付=B.日付 WHERE …
SELECT * FROM A LEFT  JOIN B ON A.日付=B.日付 WHERE …
SELECT * FROM A RIGHT JOIN B ON A.日付=B.日付 WHERE …

※これは使えない
SELECT * FROM A FULL OUTER JOIN B ON A.日付=B.日付 WHERE …

完全外部結合ができないわけではない

SELECT * FROM A LEFT  JOIN B ON A.日付=B.日付 WHERE …
UNION
SELECT * FROM A RIGHT JOIN B ON A.日付=B.日付 WHERE …

SELECT * FROM A LEFT JOIN B ON A.日付=B.日付 WHERE …
UNION
SELECT * FROM B LEFT JOIN A ON B.日付=A.日付 WHERE …

UNIONを使って事前集計を行う

SELECT 日付, 区分
, Aの集計値1, Aの集計値2, …
, 0 AS Bの集計値1, 0 AS Bの集計値2, …
FROM A
WHERE …
GROUP BY 日付, 区分
UNION
SELECT 日付, 区分
, 0 AS Aの集計値1, 0 AS Aの集計値2, …
, Bの集計値1, Bの集計値2, …
FROM B
WHERE …
GROUP BY 日付, 区分

本集計

SELECT
  日付
, SUM(CASE WHEN X.区分 = 1 THEN Xの集計値 ELSE 0 END) AS summary1
, SUM(CASE WHEN X.区分 = 2 THEN Xの集計値 ELSE 0 END) AS summary2
, SUM(CASE WHEN X.区分 = 3 THEN Xの集計値 ELSE 0 END) AS summary3
, SUM(CASE WHEN X.区分 = 4 THEN Xの集計値 ELSE 0 END) AS summary4
, …
FROM (
  SELECT 日付, 区分
  , Aの集計値1, Aの集計値2, …
  , 0 AS Bの集計値1, 0 AS Bの集計値2, …
  FROM A
  WHERE …
  GROUP BY 日付, 区分
  UNION
  SELECT 日付, 区分
  , 0 AS Aの集計値1, 0 AS Aの集計値2, …
  , Bの集計値1, Bの集計値2, …
  FROM B
  WHERE …
  GROUP BY 日付, 区分
) X
GROUP BY X.日付
…

小話

黄金比

1:(1+√5)/2≒1:1.6

• 強調表示向け÷(通常表示向け+1)
• 強調表示向け÷(通常表示向け-1）

白銀比

貴金属比による定義…1:(1+√2)≒1:2.4
直角二等辺三角形の斜辺と底辺の比…1:√2≒1:1.4

少し数学的な話

第n貴金属比…1:{n+√(n^2)+4}/2

おまけ

白金比…1:√3

最後に

【フェルマーの最終定理（ワイルズの定理）】
3以上の自然数nについて、(x^n)+(y^n)=(z^n) を満たす自然数の組(x, y, z)は存在しない。

【証明の概略】
・ABC予想を真とすると、n>=6で(x^n)+(y^n)=(z^n) を満たす自然数の組(x, y, z)は存在しないことが証明できる。
・n=3,4,5の場合は、先人達によって個別に証明されている。
・よって3以上の自然数について、(x^n)+(y^n)=(z^n) を満たす自然数の組(x, y, z)は存在しない。

ImageMagickとは

 https://imagemagick.org/index.php 

インストールについて

（VC2013再頒布可能パッケージ）

https://www.microsoft.com/ja-jp/download/details.aspx?id=40784

（VC2013再頒布可能パッケージの更新版）

https://support.microsoft.com/ja-jp/help/3138367/update-for-visual-c-2013-and-visual-c-redistributable-package

動作確認をしてみて気づいたこと

E:\hoge
[D] ImageMagcik
[F] test.psd

PS E:\test\ImageMagick> convert ../test.psd[0] ../test.png
無効なパラメーターです - /test.psd
PS E:\test\ImageMagick>

PS E:\test\ImageMagick> ./convert ../test.psd[0] ../test.png
または
PS E:\test\ImageMagick> .\convert ../test.psd[0] ../test.png

同じような現象を回避するために

最後に

今回のテーマ

早速試す

• 使える：ls, ls -R
• 使えない：ls -l

PS C:\hogehoge> ls


    ディレクトリ: C:\hogehoge


Mode                LastWriteTime         Length Name
----                -------------         ------ ----
d-----       2019/03/01     12:42                subdir
-a----       2019/03/01     12:41              3 aaa.txt
-a----       2019/03/01     12:41              3 bbb.txt
-a----       2019/03/01     12:41              3 ccc.txt


PS C:\hogehoge>

PS C:\hogehoge> ls -R


    ディレクトリ: C:\hogehoge


Mode                LastWriteTime         Length Name
----                -------------         ------ ----
d-----       2019/03/01     12:42                subdir
-a----       2019/03/01     12:41              3 aaa.txt
-a----       2019/03/01     12:41              3 bbb.txt
-a----       2019/03/01     12:41              3 ccc.txt


    ディレクトリ: C:\hogehoge\subdir


Mode                LastWriteTime         Length Name
----                -------------         ------ ----
-a----       2019/03/01     12:42              6 ddd.txt


PS C:hogehoge>

PS C:\hogehoge> ls -l
Get-ChildItem : パラメーター 'LiteralPath' の引数が指定されていません。型 'System.String[]' のパラメーターを指定し、再
試行してください。
発生場所 行:1 文字:4
+ ls -l
+    ~~
    + CategoryInfo          : InvalidArgument: (:) [Get-ChildItem]、ParameterBindingException
    + FullyQualifiedErrorId : MissingArgument,Microsoft.PowerShell.Commands.GetChildItemCommand

PS C:\hogehoge>

昔からあるWindowsのコマンドは？

PS C:\hogehoge> dir


    ディレクトリ: C:\hogehoge


Mode                LastWriteTime         Length Name
----                -------------         ------ ----
d-----       2019/03/01     12:42                subdir
-a----       2019/03/01     12:41              3 aaa.txt
-a----       2019/03/01     12:41              3 bbb.txt
-a----       2019/03/01     12:41              3 ccc.txt


PS C:\hogehoge>

正体を探る

PS C:\hogehoge> ls -?

名前
    Get-ChildItem

概要
    Gets the items and child items in one or more specified locations.

…

PS C:\hogehoge> dir -?

名前
    Get-ChildItem

概要
    Gets the items and child items in one or more specified locations.

…

「Get-Children」の別名を確認

PS C:\hogehoge> Get-Alias | Where-Object { $_.Definition -eq "Get-ChildItem" }

CommandType     Name                                               Version    Source
-----------     ----                                               -------    ------
Alias           dir -> Get-ChildItem
Alias           gci -> Get-ChildItem
Alias           ls -> Get-ChildItem


PS C:\hogehoge>

まとめ

【システムからの通知メール】

【キーワードの選定】

【どうやって抽出するか】

【実際にやったこと】

【まとめ】