View cross-platform-font-test.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
require(tidyverse) | |
fonts_win = tibble::tribble( | |
~family, ~name, ~group, ~os, | |
"Yu Mincho", "游明朝", "明朝", "windows 10", | |
"游明朝", "游明朝", "明朝", "windows 10", # WSL | |
"BIZ UDMincho", "BIZ UD明朝", "明朝", "windows 10", | |
"BIZ UD明朝", "BIZ UD明朝", "明朝", "windows 10", | |
"BIZ UDPMincho", "BIZ UDP明朝", "明朝", "windows 10", | |
"BIZ UDP明朝", "BIZ UDP明朝", "明朝", "windows 10", |
View CmdConstants_ja.properties
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Auto generated file - do not change manually | |
# setWorkingDirToProjectDir | |
setWorkingDirToProjectDirLabel = プロジェクトのディレクトリを作業ディレクトリにする | |
setWorkingDirToProjectDirButtonLabel = | |
setWorkingDirToProjectDirMenuLabel = プロジェクトのディレクトリへ(_P) | |
setWorkingDirToProjectDirDesc = プロジェクトのルートディレクトリを作業ディレクトリにする | |
# setWorkingDirToActiveDoc | |
setWorkingDirToActiveDocLabel = Set Working Directory to Current Document's Directory | |
setWorkingDirToActiveDocButtonLabel = |
View setup-rstudio-desktop.sh
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! /usr/bin/env bash | |
sudo apt install -yqq ./rstudio.deb | |
MKRUNUSERDIR_PATH="/usr/sbin/wsl-user-mk-runuserdir" | |
set -e | |
cat > ${MKRUNUSERDIR_PATH} << \EOF | |
### User runtime dir | |
# Executed as part of 00-wsl-user-env.sh | |
RUNUSER_DIR="/run/user" |
View pop.pdf
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
View mountain_parameter.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
pacman::p_load_gh("uribo/fgdr", "franapoli/pbarETA") | |
pacman::p_load(sf, raster, tabularaster, tidyverse, broom, ggthemes, plotly, Metrics) | |
plot_surface <- function(mat) plot_ly(x=mat[, 1], y=colnames(mat), z=mat[, -1]) %>% add_surface() | |
options(pillar.sigfig = 10) | |
list_xml <- list.files("data", pattern="FG-GML-5133-36.+DEM5.+.xml", full.names=T) | |
pb <- txtProgressBar(min=2, max=length(list_xml), style=3, char="█", width=getOption("width") - 30) | |
source <- list() | |
for(i in 1:length(list_xml)){ |
View bayesplot_tutorial.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
require(rstan) | |
require(bayesplot) | |
require(ggplot2) | |
require(ggthemes) | |
require(patchwork) | |
require(tidyverse) | |
rstan_options(auto_write = TRUE) | |
options(mc.cores = parallel::detectCores()) | |
#### rstan でモデルをコンパイルしサンプリング #### |
View bench.Rmd
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- | |
title: "benchmark" | |
author: "ill-identified" | |
output: | |
pdf_document: default | |
html_document: default | |
--- | |
## JIT 有効になってるとこれの結果が変わるかを検証 |
View CAR_20180813.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
require(tidyverse) # ver. 1.2.1 | |
require(CARBayes) # ver. 5.0 | |
require(sf) # ver. 0.6-3 | |
require(ggplot2) # ver. 3.0.0 | |
require(ggthemes) # ver. 4.0.0 | |
require(ggmcmc) # ver. 1.1 | |
rmse <- function(y, pred){ | |
return(sqrt(mean((y - pred)^2))) | |
} |
View heatmap.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
require(tidyverse) | |
require(ggthemes) | |
require(rjson) | |
require(jsonlite) | |
# 参考 | |
# https://www.data.jma.go.jp/gmd/risk/obsdl/index.php | |
# https://www.data.jma.go.jp/gmd/risk/obsdl/top/help3.html#hukajoho | |
# https://twitter.com/mehori/status/1020644999703089152 |
View logistic.ipynb
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
NewerOlder