SSブログ

久々の成田ゆめ牧場 [ファミリー]

成田ゆめ牧場
https://www.yumebokujo.com/

緊急事態宣言が解除されたということで、成田牧場に行ってきました。

そこそこ混んでいましたが、野外ということもあり、あまり気にすることはなさそう。
むしろしっかりと、外に出て体を動かし、消費をすることの方が大切!

牛の乳搾りとか、アーチェリーなどがありました。
むかしからアーチェリーは得意で、今回もど真ん中を射止めることができたのですが、景品としてアイス無料券をもらいました♪

久々のゆめ牧場、楽しかった!



nice!(0)  コメント(0) 
共通テーマ:育児

スタディサプリでお勉強 [ファミリー]

うちの区がスタディサプリと契約したみたいで、無料のアカウントが配られました。

【スタディサプリ】公式サイト - 小学生から大学受験生まで‎
https://studysapuri.jp/

小学校だけでなく、大人も勉強できるサイトになっています。

ますますオンラインでの授業のニーズが増えていくと思うので、これが追い風になって伸びそうですね。

nice!(3)  コメント(0) 
共通テーマ:育児

Rakuten Miniを使ってみた [よもやま日記]

Rakuten Miniが1円!
https://skellington.blog.ss-blog.jp/2020-05-27

こちらの続き。

自分はすでに契約してしまっているので対象外。

事務手数料は3000円かかりますが、本体(Rakuten Mini)がついて、1円っては衝撃的すぎる。
ビックカメラとか言っても後1台ですって言っていましたし、ネットだと既に入荷待ち状態。

自分は少し離れた郊外にある「コジマ×ビックカメラ」に行ってきました。
それでも在庫は4台でした。

さて、子供名義で契約する方法ですが、
・保険証、または、パスポート
・住民票
がいるんでご注意ください。
後は、親の免許証とかも入りました。

ハードルが高いのは住民票ですね。。。

実際に、「Rakuten Mini」を使った感想は、思ったより小さい。
小さいのが好きな人は良いかも。
また、テザリング目的で使う人も多いかと思うのですが、画面上にオン/オフスイッチを出すことができます。
このボタンが便利ですね。

ちなみに、子供名義の場合は、あんしんコントロールに加入させられます。
月300円かかるので、こちらは後日書面で解約となります。
今時、書面で解約かよ!って感じですが、あえてハードルを高くしているのかもしれないですね。

nice!(0)  コメント(0) 
共通テーマ:ショッピング

マーケティング・データ分析の基礎:8.1 相関と回帰分析 [データサイエンス、統計モデル]


マーケティング・データ分析の基礎 (シリーズ Useful R 3)

マーケティング・データ分析の基礎 (シリーズ Useful R 3)

  • 出版社/メーカー: 共立出版
  • 発売日: 2014/10/24
  • メディア: 単行本



こちらの例題を見ているのですが、なかなか面白いデータや分析が紹介されています。

第8章 市場反応を分析する
8.1 相関と回帰分析
8.2 回帰分析を利用して販売データを分析する

https://www.kyoritsu-pub.co.jp/bookdetail/9784320123663

データやRのコードはこちらからダウンロードできます。

####################
# 8.1 相関と回帰分析
####################
 
# 相関係数
Rdata=read.csv("regression_data.csv" , header=TRUE, comment.char="#")
attach(Rdata)
head(Rdata,15)
 
library(maptools)
plot(TaJan, sake, xlab="1月の平均気温",ylab="清酒の消費量ml")
pointLabel(TaJan,sake,labels=city,cex=0.7)
 
mean(sake)
Rdata[23,]
 
cor(TaJan,sake)
cor.test(TaJan,sake)
 
# 回帰分析
res=lm(sake~TaJan)
summary(res)
 
res.coef=coef(res)
res.coef
 
plot(TaJan, sake, xlab="1月の平均気温",ylab="清酒の消費量ml")
abline(res$coef[1],res$coef[2])
 
psake<-predict(res)
plot(sake,psake,asp=1,xlab="清酒消費量の観測値", ylab="清酒消費量の予測値")
abline(0,1)


個人的に面白かったのは、平均気温と清酒の消費量が負の相関があるということです。
つまり、寒い地域は、より日本酒を飲む傾向にある、というところ。

せっかくなので、
・予測した値よりもあまり日本酒を飲まない地域はどこ?
・予測した値よりもより多く日本酒を飲む地域はどこ?
を調べました。

予測した値よりもあまり日本酒を飲まない地域の上位4エリア
1.札幌市:8,395(-5,058)
2.鹿児島市:1,266(-4,710)
3.宮崎市:3,358(-3,236)
4.熊本市:5,080(-2,626)
 (****)の数字は、実際の消費量との差分

1.の北海道が想定より飲まれていない理由は、北海道が寒すぎるから。。。
線形モデルなので、気温が下がれば下がるほど、日本酒を飲むようになるかといえば、まぁ、そうならないですよね。
2.~4.のエリアは、日本酒よりも焼酎を飲む文化があるからだと思われます。

予測した値よりもより多く日本酒を飲む地域
1.新潟市:15,259(5,761)
2.金沢市:13,717(4,837)
3.松江市:12,716(4,145
4.福島市:13,245(3,005)
 (****)の数字は、実際の消費量との差分
こちらの理由は、ちょっと不明。
1.~3.は日本海ですが、何か関係しているのかな。。。
日本酒が有名でエリアということでしょうか。

nice!(3)  コメント(0) 
共通テーマ:学問

映画『モンスターストライク THE MOVIE ルシファー 絶望の夜明け』 [ゲーム]

久々にモンスト映画が公開です!
https://anime-movie.monster-strike.com/2020/

映画『モンスターストライク THE MOVIE ルシファー 絶望の夜明け』予告


予告編を見ると、ルシファーが暴走しているっぽいけど、きっと、何か考えているんだと思います。。。

公開は2020年11月ってことで、コロナの影響で少し延期になってしまいましたね。

ただ、先行試写会やってくれるそうです!
https://anime-movie.monster-strike.com/2020/promotion/

2日に分けて前編後編するみたいだけど、ここで公開しちゃったら映画を観る人減りそうな気がするのですが、大丈夫でしょうかね。。。

ちなみに、昨年公開された
・パンドラとアクビ 前篇 荒野の銃撃戦
・パンドラとアクビ 後篇 精霊と怪獣の街
ですが、amazon primeでやっていますね。

まだ観ていなかったので、観てみたいと思います。

nice!(4)  コメント(0) 
共通テーマ:映画

有明スポーツセンター、プール再開 [ファミリー]

プールが再開されましたね。
早速行ってきました。

ここで、注意が・・・

行ってみると、まず、予約が必要とのことでした。
たまたま、人数に達していなかったので、先着順で利用できました。

また、時間制になっていて、2時間で入れ替えっぽい。
なので、中途半端な時間に行くと、相当待つことになります。

子供プールは利用できず、25mの大プールのみ。
また、ウォーキングレーンとひたすら25mを完水するコースのみということで、あまり泳げない子供は厳しいかと思います。。。
スパルタで練習することになるので、ある意味、良いかもしれません。w

nice!(0)  コメント(0) 
共通テーマ:育児

「サザエさん」のじゃんけん 29年目にして初めて5週連続「パー」 [データサイエンス、統計モデル]

なんでも、5週連続「パー」が出て、騒然としているらしい。
個人的には、騒然としていることに、騒然としてしまいますが。。。

まず、「パー」でも、「チョキ」でも、「グー」でも、どれくらいの確率で5週連続となるか?

1週目:「パー」、「チョキ」、「グー」なんでもOK
2週目:1週目と同じ。
3週目:1週目と同じ。
4週目:1週目と同じ。
5週目:1週目と同じ。

と考えると、5週連続同じになる確率は、

1x(1/3)x(1/3)x(1/3)x(1/3)
=1/81
となります。

29年目ということで、じゃんけんの回数は知らないけど、1500回くらいじゃんけんしたんじゃないでしょうか?
むしろ、それくらいして、5回連続同じにならなかったと言うことの方が不自然過ぎます。。。

ちなみに乱数を発生させて、シミュレーションすると、
1500回で5回連続となる回数は10回くらい出てきます。
とういことで、むしろ29年間で初めてという事実をみると、乱数とか使っているわけじゃなく、人がじゃんけんの種類を決めているということなんでしょう。

ちなみに、6回連続も3,4回は出現します。
なんどもシミュレーションすると、10回連続ということもありました。

10回連続、パーが出た場合、抗議の電話がなりやまないかもしれませんね。。。

nice!(0)  コメント(0) 
共通テーマ:学問

【将棋】棋聖戦 第1局 [将棋]

藤井くん勝ちましたね。
タイトル戦初参加ですが、強かった!

最後は詰むや詰まざるやということでした、おそらく、ずいぶんと前につまないことは見切っていたんだと思います。
詰将棋も異次元の強さですし。

渡辺棋聖もものすごく強い棋士なので、第2局、第3局、・・・が楽しみですね。
このまま圧勝してタイトルをものにするか、あるいは、渡辺棋聖が意地を見せるか。

今後の将棋界の地図をどう塗り分けるかの大切なタイトル戦になるかと思います。

nice!(3)  コメント(0) 
共通テーマ:ゲーム

第78期名人戦七番勝負 開幕! [将棋]

毎年、4月に開催れる名人戦ですが、ついに開幕となりました。
豊島将之名人に渡辺明三冠が挑戦しますが、渡辺三冠は、昨日、棋聖戦を戦ったばかり。

元々、名人戦と棋聖戦は日程的に被ってしまうのですが、新型コロナウィルスの影響で、さらに過酷な日程になりそうですね。
また、来年の名人戦の挑戦者を決めるA級順位戦ですが、佐藤九段と羽生九段が揃って勝利。

この世代の活躍は、まだまだ続きそうでこちらも楽しみです。

nice!(0)  コメント(0) 
共通テーマ:ゲーム

Dyson Pure Cool TP04 vs TP03の違い [よもやま日記]

急に暑くなってきましたね。
リモートワークすることが多く、エアコン入れるほど暑くないけど、何もしないと暑い。。。

小さい子供がいることもあり、Dyson Pure Coolを買うことにしました。
空気清浄機も付いていて、良さそう。

新型のTP04と一世代前のTP03があったのでいろいろ調べたら、機能的には差があまりなく、液晶部分がカラーでいろいろ表示されるとかで2万くらい高い。

まぁ、そんな機能不要なわけで、TP03を買おうと思い、近所の
家電量販店に行ったら、TP04しか売っていませんでした。。。

ネットの小さい店だと売っているのですが、長期保証がつかない。
小さい子供いるから、乱暴に扱って、壊れる可能性が高いので、長期保証はつけておきたいところ。

2万円ほど高かったですが、家電量販店でTP04を買うことにしました。

まぁ、冷静に考えて、小さい子供がいる場合は、投げられたり蹴られたりしても大丈夫な使い捨てモデル(数千円)のファンを買っておくのが良いかもしれないですね。。。

nice!(2)  コメント(0) 
共通テーマ:ショッピング

GARMIN(ガーミン) Venu GPSスマートウォッチ [よもやま日記]

Apple Watchと迷ったのですが、GARMIN Venu Light Sand/Rose Goldを買いました。
まず、Apple Watchはバッテリーの持ちが悪い。

GARMINは元々GPSメーカということもあり、常時GPSをつけていてもバッテリーが1日持たないということもなさそう。

かなり色々なモデルがあって、迷ったのですが、
・Amazon musicを聴ける
・Suicaを使える
・ごつくない
ということを考慮すると、こちらの商品かなと思います。


GARMIN Venu Light Sand/Rose Gold 010-02173-27

GARMIN Venu Light Sand/Rose Gold 010-02173-27

  • 出版社/メーカー: ガーミン(GARMIN)
  • 発売日: 2019/10/18
  • メディア: スポーツ用品



nice!(3)  コメント(0) 
共通テーマ:ショッピング

Rで複数の条件抽出をする方法 [データサイエンス、統計モデル]

統計の講師をしていて、なるほど!と思う質問を受けることがあります。
せっかくなので、その中からピックアップして紹介できればと思います。

【質問】
Rで複数の条件抽出をする方法について教えてください。

【回答】
irisのデータを使って説明したいと思います。
irisには、
- Sepal.Length
- Sepal.Width
- Petal.Length
- Petal.Width
- Species
5種類の変数があります。

抽出方法1
Sepal.Lengthが5.5以上、かつ、Speciesがsetosaを抽出したい場合どうすれば良いか?

iris[iris$Sepal.Length>=5.5 & iris$Species=="setosa", ]


抽出方法2
論理積と論理和の組み合わせで抽出することも可能です。
(Sepal.Lengthが5.5以上、または、Sepal.Lengthが4.5未満)、かつ、Speciesがsetosaを抽出したい場合どうすれば良いか?

iris[(iris$Sepal.Length>=5.5 | iris$Sepal.Length<4.5) & iris$Species=="setosa", ]


抽出方法3
なんどもirisがコードに出てきて読みにくいですよね。
with(data, やりたい操作)
でdataを省略することができます。

with(iris, iris[(Sepal.Length>=5.5 | Sepal.Length<4.5) & Species=="setosa", ])


抽出方法4
上記の抽出方法3と同じなのですが、抽出条件が増えてくると、コードが読みにくいです。
そこで、下記のように書くとすっきりして見やすいかと思います。

with(iris,
     iris[(Sepal.Length>=5.5 | Sepal.Length<4.5)  # 条件1
	 & Sepal.Width>3.0                                  # 条件2
	 & Petal.Length==1.3                               # 条件3
	 & Species=="setosa"                              # 条件4
	 , ])


nice!(3)  コメント(0) 
共通テーマ:学問

有明スポーツセンター、プール再開 その2 [ファミリー]

自粛ムードから一気に人が増え、あちこちのモールは大混雑。
第二波を警戒する声もささやかれていますが、個人的には経済を回していく方が大切だと思うので、これで良いかなと思います。

有明スポーツセンター、プール再開
https://skellington.blog.ss-blog.jp/2020-06-06

先週に引き続き「有明スポーツセンター」に行ってきました。
先週は25mプールしか利用できませんでしたが、今週は子供用の小プールとスライダーも利用できました。

やっぱり、小プールが使えると楽しいです。

nice!(0)  コメント(0) 
共通テーマ:育児

劇場版モンスト「ルシファー 絶望の夜明け」試写会 [テレビ / 映画]

土曜日、日曜日と劇場版モンスト「ルシファー 絶望の夜明け」の試写会がありました。

劇場版モンスト「ルシファー 絶望の夜明け」公式サイト
https://anime-movie.monster-strike.com/2020/



youtubeを使っての試写会というなかなか斬新な形でした。
一部、ダイジェスト部分がありましたが、最後はノーカットで最後まで見れると言う大盤振る舞い。

正直、ものすごく面白かったです。
公開されていない部分もあったので、11月に映画も見に行きたいです。

nice!(3)  コメント(0) 
共通テーマ:映画

株価の行く先 [マネー]

最近、第二波が来るかもといったことから、株価が急落したり、翌日に急騰したりしています。

ここしばらく、ずっと株価が順調に伸びていたので、利確という意味もあり、少し下がったように思えます。
ただ、長期的にみると、まだまだ米国株価を中心に伸びていくと思いますし、個人的には大きな第二波は来ないと考えています。

ファーストインパクトの時にある程度、どう対処していくかは各国わかってきているので、ある程度下がったら買いとかで良いかもしれないですね。

自分が3月から5月に買っていた株も順調に推移していて、特にテスラ株はほぼ底値で買うことができました。
テスラ株に関してはまだまだ伸びていく株だと思うので、しばらく保有しておきたいと考えています。

nice!(0)  コメント(0) 
共通テーマ:

オリンピック/パラリンピック 記念一万円金貨 [マネー]

東京2020パラリンピック競技大会記念一万円金貨幣『「聖火ランナー」と「国立競技場」と「心技体」』
https://www.mint.go.jp/shintyaku/sale/hanbai_r2_para4-g.html

毎回応募していたのですが、最後にようやく当選!
意外と当たらないものですね。。。
オリンピック硬貨の方が倍率が高い気がします。
パラリンピックの硬貨は人気がないんでしょうか。

販売価格は、122,223円(税込)。
1万円として使えるみたいですが、金として持っていた方が価値は高そうです。

nice!(3)  コメント(0) 
共通テーマ:マネー