忙しいことは悪であると早く気づこう
忙しいことを誇らしげに語るやつがいるけど、それはただ単に他人に操られているだけである。自分でやっていることは全く忙しいと思わない。趣味で忙しいなんてことはない。だから、忙しいことを誇らしげに思わないこと。
投稿
ClusterMapのインストール
GitHub - xgaoo/ClusterMap: ClusterMap is an R package to analyze and compare two or more single cell expression datasets. こちらのツールをインストールする。 まずは、R remotesとR devtoolをCondaでインストールする conda install -c conda-forge r-remotes conda install -c conda-forge r-devtools そしてRに入る library(‘remotes’) library(‘devtools’) install_github("xgaoo/ClusterMap")
ブログを書く場所をBloggerからMediumにしてよかった。
僕のHPはBloggerのままなんだけど、ブログを書く場所をMediumにして本当に良かったと思っている。その理由は結構単純で、medium.newとChromeのOmni boxに入力すればすぐにブログが書けるから。実際にはこの記事をiftttでBloggerに飛ばしているんだからBlogger自体は殆ど変わらない。
『サイコロジー・オブ・マネー』読んだ。まぁまぁ
だいたい知ってる話だったが、読んでよかったとは思う。以下まとめ。 お金は目的ではなく、自由を得るための手段である。 貯金は余裕をもたらす。 リスクとは何かを考える。リスクとは振れ幅であり、ノーリスクノーリターンである。 致命的なリスクは避ける。 うまくいくかどうかは絶対にわからない。ただし、長期の視点で考えればうまくいく確率は上がる。
Seuratで特定の遺伝子を除く方法
DefaultAssay(data) <- “RNA” counts <- GetAssayData(data) rownames(counts) -> rowname rowname[grep(“IGH”, rowname)] -> H rowname[grep(“IGL”, rowname)] -> L rowname[grep(“IGK”, rowname)] -> K rowname[grep(“TRA”, rowname)] -> TA rowname[grep(“TRB”, rowname)] -> TB rowname[grep(“MT-”, rowname)] -> mt immunegenes <- c(H, L, K, TA, TB, mt) setdiff(rowname,immunegenes) -> rownames counts[(which(rownames(counts) %in% rownames)),] -> counts2 data2 <- subset(data, features= rownames(counts2))
毎年恒例 紅葉の季節に勝尾寺登山
毎年恒例 紅葉の季節に勝尾寺登山 勝尾寺という紅葉がきれいな寺がある。僕の家から歩いて二時間ぐらいなので、毎年行くことにしている。 勝尾寺に行くのは途中から山道。多分山道の中では初心者コースだろうけど、やっぱりきついなー。勝尾寺から箕面の滝まで歩いて、箕面駅まで行った。26000歩。最近では最も歩いたなー。