ブラザーズ・クエイ、去年葉山に来ていたらしい。



上の動画は神奈川県公式アカウント「かなチャンTV」による動画の一なのだが、公開動画一覧を見てみるとぶっ飛んだ動画がたまにある。
以下は「危険ドラッグの本当の恐さ」。E.ゴーリー的な・・・

この記事を閲覧するにはパスワードが必要です
⇒パスワード入力

××の研究開発の担当者として、海外の研究者（国内においても、外部の研究者）と対峙するときに不安に感じることは、「自分の知識や経験は通用するのか」という不安である。これは字義通りの単純なものではない。すなわち、「自分が経験してきた領域は実は狭い世界で、少なくとも自分が見聞きしている範囲では自分は既に自信があるが、それが外の広い世界で本当に通用するのかがわからない」という心配である。これは実際に対峙してみないとわからないもので、失敗のリスクが付き纏う。××の世界はいくらでも広くて項目それぞれがまた奥が深く、迷宮洞窟のような世界のどれを選択して得意分野としていくか、どれが「基礎」と呼ばれる所なのか、だいたいは孤独に判断していかなければならない。それが共通言語となり武器となるわけだが、読み違えているかもしれないという先程と同様の不安は付き纏ってしまう。

recitation：暗唱、朗読、詳述
frantically：半狂乱で
adversary：敵
omnipresent：どこにでもいる
conquer：征服する
weird：奇妙な
privilege：特権
ambient：周囲の

不要となったパソコンを処分する。富士通FMVノートPCとDELLのInspironデスクトップPCを廃棄する。

富士通FMV：10年以上前に購入したもの。“動かない”に近く、処理が異常に遅い。冷蔵庫の上で稼働させたことがあり、そのため熱がこもり故障したものと思われる。
DELL Inspiron：2008年に購入したもの。突然シャットダウンされることがある。メモリ診断等様々な対策をしたが直らなかった。計算用に使っていたパソコンで、7年もよくもったと思う。

パソコンは粗大ゴミとして廃棄することはできなくて、パソコンのメーカーが「エコゆうパック」という仕組みを通じて回収することになっている。メーカーは廃棄のことも考えて事業をしなければならないという、当たり前のことが常識な時代になったのですね！

メーカーのホームページに、「パソコンリサイクル申込み」といったページがあるから、そこから回収を申し込む。すると「エコゆうパック」の伝票が送られてくる。これが手に入れば、郵便局へ回収をお願いすることができる。

富士通もDELLも、二重にした厚手のビニール袋でパソコンを包み、その上から「エコゆうパック」の伝票を貼る、と書面で指示をしている（DELLはダンボールでも可とあったが、手順書がデスクトップ用だからか？）。付属のマウスやキーボードは同梱可能であるとのこと。

さて、明日は日曜なのだが、最寄りの郵便局では「ゆうゆう窓口」しか開いていないけど、持ち込んだら「エコゆうパック」は受け取ってもらえるのだろうか？

RでExcelのファイル.xlsをロードすることができる。パッケージ"xlsx”を使うのだが、ASUSノートPCでは機能したのだけど、Z440では「library(xlsx)」とコマンドを打った後に以下のメッセージが出て機能しなかった。

JAVA_HOME cannot be determined from the Registry

これは、次のJavaのダウンロード用のページに行って、インストーラWindows Offline (64-bit)をダウンロードし64bit版のJavaをインストールすることで解決される。

http://www.java.com/en/download/manual.jsp

鶏卵素麺：福岡県福岡市の銘菓
カスドース：長崎県平戸市の郷土菓子
「銘菓」とは・・・特別な名をもつ由緒ある菓子。

「江戸の敵を長崎で討つ」
江戸の敵を長崎で討つとは、意外な場所や筋違いなことで、以前受けた恨みの仕返しをすることのたとえ。また、関係のない者を討って気を晴らすことのたとえ。
故事ことわざ辞典より

「砂糖の通った道」が大変な良書。鎖国と菓子文化について調べるならこの本で足りる。

C#、Python等も考えたが、地図がRだから、Rを使うことにする。
scan関数でテンプレート全体を読み込んで、キーとなる個所を変換する。

setwd("C:/Users/XXX/Desktop/statmap/test2")
template <- scan("template.html", what = character(), sep="\n")
text1 <- scan("text1.txt", what = character(), sep="\n")
text1 <- paste(text1, collapse = "＜br＞")
text2 <- scan("text2.txt", what = character(), sep="\n")
text2 <- paste(text2, collapse = "＜br＞")
html <- template
html <- gsub("text_001", text1, html)
html <- gsub("text_002", text2, html)
write.table(html,"index.html",row.names=F,col.names=F,quote=F)