RStudio Cloudを使ってipadでRを動かす

PCでRを動かすというのが普通の使い方なのですが、demoとか講義とかで教える際、ipadでRが動かせないかと思っていたら、どうやらRStudio Cloudなるものがあることが分かりました。

RStudio Cloudで検索するとすぐにヒットするかと思います。
今のところ無料で使えるぽいです。

講義で統計を教える際は、激しい計算をするわけではないので、これで十分かなって思いました。

ipad以外にその他必要なものとして、ipad用のキーボード。
それとタッチペンがあるとさらに快適に使えました。

RStudio Cloud
https://rstudio.cloud/

SPSS Modeler ヒモトク

こんなサイトがあるようです。

SPSS Modeler ヒモトク
https://www.ibm.com/blogs/solutions/jp-ja/category/bigdata-analytics/spss-modeler-himotoku/

その中のコンテンツとして、「わたしの推しノード」があって、
1位：CHAID
2位：レコード集計
3位：データ検査

1位がCHAIDというのは、個人的に納得です。
まずは、CHAIDで可視化してみるといった分析の初歩から、流行りのアップリフトモデルをCHAIDで作ってといったことまで、幅広く使えるノードだと思っています。

他にC5.0とかCARTといった決定木のノードも用意されているのですが、感覚的にしっくりくるのはCHAIDかなと。

よく、データ分析の工数の8割はデータ加工で、モデリングは2割ほどであると言われます。

と書かれていますが、確かにそう言われます。

個人的には、↑の言葉に甘んじてデータ加工に8割もの時間をかけていたのでは、その程度の深みのある分析しかできません。

よくデータ加工は料理と似ているといわれます。
その中でも一番大切なプロセスはモデリングの部分。

そこにあまり時間をかけずに、オートAIなどを使ったモデリングで作ったもの（工数の8割はデータ加工で、モデリングは2割）と、しっかりと時間をかけて作った統計モデル（工数の2割はデータ加工で、モデリングは8割）では大きな差があると思っています。

消費者の理解や予測精度などは、どれだけモデリングを丁寧にすることができるかによって全然変わってきます。

SPSS Modelerのデータ加工プロセスはかなり使いやすく、データ加工に費やす時間を大幅に削減することができ、分析者が本来かけるべきモデリングに時間を割くことができるツールだと思います。

SPSS Modelerは、モデリングがRに比べ弱い部分があるので、そのあたりは別のツールを使ってモデリングをする・・・になるかもしれませんが。。。

Tobit Model（トービット・モデル）で売上予測をしてみる

■ やりたい事
個人ごとの売上の合計を予測したい

■ 課題
個人の購買がない場合、売上が0となる。
0円の人がそこそこ多い。

■ 対処法
1. 買うか/買わないかを予測する。（model 1）
買った場合の売上を予測する。（model 2）
model 1 と model2を掛け合わせて、個人ごとの売上を予測する。

2. Tobit Model（トービット・モデル）を使う。

～以下、Tobit Model（トービット・モデル）について～
Tobit Model（トービット・モデル）は、元々、上限や下限がある場合の打ち切りデータに対して分析することができます。

（例）
数学と物理の点数の相関をモデル化して、
目的変数：数学の点数
説明変数：物理の点数
とします。

物理の点数でたくさん0点の人がいたと仮定します。

# サンプルデータの作成（100人分） math_score <- rnorm(100, mean=40, sd=20) physics_score <- 10 + 0.8 * math_score + rnorm(1, mean=0, sd=10) set.seed(1)
math_score <- rnorm(100, mean=50, sd=20)
physics_score <- -30 + 1.0 * math_score + rnorm(100, mean=0, sd=10)
# 真のモデル：切片-30, 傾き1.0
　
cor(math_score, physics_score) # 相関係数：0.882
　
math_score[math_score > 100] <- 100
math_score[math_score < 0] <- 0
physics_score[physics_score > 100] <- 100
physics_score[physics_score < 0] <- 0
df <- data.frame(physics_score, math_score)
　
# 線形回帰モデル
model.lm <- lm(physics_score ~ math_score, data=df)
summary(model.lm) # 推定された切片-19, 傾き0.83
　
plot(physics_score ~ math_score)
abline(model.lm)
　
# Tobit Model
library(VGAM)
　
model.tobit <- vglm(physics_score ~ math_score, data = df, tobit(Lower=0, Upper=100), trace=FALSE)
summary(model.tobit) # 推定された切片-31, 傾き1.01
　
plot(physics_score ~ math_score)
abline(model.lm)
abline(coef(model.tobit)[c(1,3)], col='red')

映画『ジョジョ・ラビット』

映画『ジョジョ・ラビット』を観てきました。

映画『ジョジョ・ラビット』
http://www.foxmovies-jp.com/jojorabbit/

第二次世界大戦のドイツが舞台。
子供の視点で戦争を捉えています。

ジョジョが主人公なのですが、頭の中の空想にヒトラーを召還して、そのヒトラーが相談役みたいにふるまっているのが面白いです。

前半は、面白いのですが、後半、急にシリアスになって行きます。
展開としては、『ライフ・イズ・ビューティフル』の展開に近いかもしれません。

ジョジョ・ラビット ブルーレイ+DVDセット [Blu-ray]

• 出版社/メーカー: ウォルト・ディズニー・ジャパン株式会社
• 発売日: 2020/06/03
• メディア: Blu-ray

本当は日本語で観たかったのですが、吹き替えやっていなくて、字幕で観ました。
DVD版だと日本語もあるみたいです。

小学4年生の子供と観に行きましたが、初めての字幕にチャレンジ。
内容的にも少し難しい気がしましたが、8割～9割くらいわかったと言っていました。

字を読むのに必死で目が疲れたらしい。

親子で観るにはとても良い映画だと思います。

視覚障害者誘導用ブロック

ちょっと変な？視覚障害者誘導用ブロック（点字ブロック）を発見しました。

エレベーターのところに、ぽつんと2ブロックだけ置かれています。



でも、目が不自由な人って、ここのエレベータのところにどうやってたどり着くんだろうか？
エレベーターまでの導線で誘導用ブロックはなかったです。

逆に、ここまで誘導用ブロックなしで来れるなら、このブロックも必要ないのでは？

若洲公園のなが～いサイクリングコース 3回目

若洲公園のなが～いサイクリングコース
https://skellington.blog.ss-blog.jp/2019-11-04

若洲公園のなが～いサイクリングコース 2回目
https://skellington.blog.ss-blog.jp/2020-02-04



コロナの影響だと思いますが、今回はものすごく混んでいました。
室内はやばそう、ってことで、外遊び（サイクリング）などに切り替える人が多かったんだと思います。

通常、サイクリングだと並ぶことはないのですが、今日は、20分くらい待っていました。
サイクリングにはちょうど良い季節で、暑くもなく寒くもなく。

早くコロナの影響が収まると良いのですが・・・

浦安市運動公園 その2

浦安市運動公園には岡本太郎の作品がいっぱい
https://skellington.blog.ss-blog.jp/2019-12-16

先日行ったばかりですが、再度、運動公園に訪問。
ただ、昨日の若洲公園と同様にものすごく混んでいます。

隣のディズニーシーとかイクスピアリとか閉まっているので、飲食店も閉まっていました。





ちょうど桜も咲き始めました。
暖かくなったり寒くなったりする日が続いています。

【コロナ】ブッフェ形式のレストランの工夫

コロナウィルスの影響で、ブッフェ形式のレストランを避ける人が増えています。
ちらちらのぞいてみると、ディナーだけど、ランチ並みの価格に落として営業を続けているところもあります。

今日は、いつも行くブッフェ形式のパン食べ放題のレストランに行って来ました。
食べ放題なのはパンだけ。

こちらの工夫として、テーブルの上にカードが置いてあります。

パンのお代わりをお願いする時。


パンのお代わりが不要の場合。


自分で取に行く代わりに、店員さんが定期的に焼きたてのパンを持ってテーブルをウロウロしていました。
このプレートがあると、お代わりとか不要とかスムーズでした。

ipad Proを購入

以前、ipadとipad air 2を購入しましたが、それなりに時間が経ってしまいました。
ipad air 2は、今でも現役で使っています。ｗ

今回、新たにipad Proを購入。
大学生なので、appleの学割を使うことができます。

通常より、5000円安く買えるのと、apple cardが12000円分ついてくるので、両方合わせると、良い値引き率になりますね。

macノートも欲しいですが、家にはmacノートがゴロゴロ転がっているので、無駄な浪費をするのもなぁ、ってことで、いったん見送りました。
またすぐに欲しくなるかもしれませんが…

【現金給付】 所得制限へ「富裕層にも配るのは国民の理解が得られない」

子供手当とかもそうですが、「富裕層にも配るのは国民の理解が得られない」からといって、高所得者に配分しないのはちょっと残念が気がします。
「国民の理解が得られない」のなら、きちんと説明して理解を得る努力をして欲しい。
選挙とか意識してのことなんでしょうけど。

実際は、多くの税金は高額所得者が払っていて、
「25人に1人の年収1000万以上の人が日本の所得税の半分を払っている」
というのが実態。
1000万円未満の人は、自分が払った税金以上の恩恵を受けています。

高額所得者の人は、年収に応じて、ものすごい額の税金を適正に払っています。
子供手当にしろ、こういう手当の給付がカットされ続けると、どうなるか。

人によったら海外に逃亡するとかって意見もありますが、ものすごい超高額所得者じゃない限り海外には行けない。
となると、あまり頑張らずに税金を抑えたり、あるいはこの前問題になったチュートリアル徳井みたいに個人会社を作って節税をしたりする人が出て来る。

そうなると長期的にみたら、1000万円付近にいる中間的な高額所得者が減ってしまい、得られる税金も減ってしまうのではと。

25人に１人の年収1000万以上の皆さんが日本の所得税の半分を負担しているって知ってます?
https://www.landerblue.co.jp/25289/
↑
こちらの記事が参考になります。

【モンスト】フェアリーテイル、超究極が2つ

今回、フェアリーテイルとコラボしていますが、超究極が2つとなっています。

まず、1つ目の超究極は、アクノロギア。
アクノロギアを持っていると、2つ目の超究極ゼレフが楽になります。

～アクノロギア～
こちらは、メルエムと同じ仕様で金卵から確定でアクノロギアがドロップ。
何度かクリアする必要があるもののそれほど難しくはない。

クリアしたパーティ
・玉梓（進化）
・三蔵法師（獣神化）
・弁財天（神化）
・三蔵法師（獣神化）
特に難しいポイントはなかったと思います。

～光ゼレフ～
こちらは、1回でもクリアすれば神化開放されますが、パネルクエストの関係上マルチ含んで2回クリアする必要があります。

クリアしたパーティ
・アクノロギア（進化）
・キルア（獣神化）
・グングニルα（獣神化）
・キルア（獣神化）

最初、なかなか勝てませんでしたが、紋章つけて、キルアを超スピード型（戦型の書）、わくわくの実（加撃）でめちゃくちゃ強くしたら、50%くらいの確率で勝てるようになりました。

パネルの位置が、絶妙な（微妙な）場所に置かれていて、なかなかストレスがたまるクエストでしたが、無事に光ゼレフに神化開放＆パネルクエストクリアとなりました。

箱根クラフトハウスとエヴァンゲリオン

箱根に1泊2日で旅行に行ってきました。

天気が良くなかったので、箱根クラフトハウスで陶芸体験をしました。
駐車料金、入場料、体験料ということで、ちょくちょくお金を取られるので、思った以上ん値段がかかります。
箱根価格なのかもしれません。。。


陶芸の場所から少し階段を登っていくと、ちょっとした公園がありました。
景色が良くのんびりとした時間が流れます。




今年、エヴァの映画が公開されるとのことで、箱根周辺でいろいろコラボがやっていました。

ロンギヌスの槍を発見！


箱根×エヴァンゲリオンの大型コラボレーション企画「エヴァンゲリオン×箱根 2020 MEET EVANGELION IN HAKONE」
https://eva-hakone.com/

エクシブ箱根離宮

エクシブ箱根離宮
https://rt-clubnet.jp/hotels/xiv/hakone/

ここに泊まることが出来ました。
とてもきれいなホテルで、導線が大きくものすごい高級感がありました。





ハードのレベルは高いのですが、ソフト面（サービスレベル）はちょっと微妙。
人の名前を間違えていたり、オーダーしたものが微妙に異なっていたり、基本的な部分が×だと、致命傷になりかねない。。。

夜と朝の食事はとても美味しかったです。



朝、温泉に入っていたらミスターの息子が露天風呂に登場。
有名人も利用しているんですね。

箱根小涌園ユネッサン、エヴァンゲリオンとコラボ

ユネッサン×エヴァンゲリオン
https://www.yunessun.com/eva_2020/

箱根のユネッサンもエヴァンゲリオンとコラボしていました。



セカンドインパクトの湯は、なかなかおどろおどろしい雰囲気で、1歳の息子は、「こわい・・・」と言っていました。

学割だと2000円で利用できます♪
自分も大学院生なので、学割、使えました。

【新型コロナ】志村けんさん死去

キオスクにある新聞の見出しで知りました。
え？と思いネットで見ると、志村けんさんの訃報がありました。

子供のころ、8時だよ全員集合を観て育ちました。
本当に面白かったです。

近年は、天才！志村どうぶつ園を時々見ており、ほのぼのした動物たちに癒されていました。

今回、新型コロナウィルスは、
・高齢者が重篤化しやすい
・喫煙者が重篤化しやすい
・その他、肝硬変、糖尿病の患者も重篤化しやすい
という報告があります。

志村けんさんは、重篤化しやすい要因が複数重なっており、一気に症状が進行したのかもしれません。

今回のニュースを知り、自分が感染しないだけでなく、他人に感染させないように、今一度、自分に出来ることはきちんとしようと思います。

志村けんのご冥福をお祈りします。