This file contains hidden or 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", |
This file contains hidden or 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 = |
This file contains hidden or 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" |
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
This file contains hidden or 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)){ |
This file contains hidden or 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 でモデルをコンパイルしサンプリング #### |
This file contains hidden or 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 有効になってるとこれの結果が変わるかを検証 |
This file contains hidden or 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))) | |
} |
This file contains hidden or 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 |
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
NewerOlder