Publications by 太郎丸 博
Variance of Binary Variable
有名な話なので、ググると見つかると思うが、簡単なので自分で証明してみました。 定理 二値変数で一方のカテゴリに1、他方に 0 を割り当てて、1をとる比率を \(p\) とすると、この二値変数の分散は \(p(1-p)\) となる 証明 この二値変数を \(x_i \;(i = 1, \; 2, \; ...
680 sym
Publish Document
set.seed(2) u <- rnorm(n = 10, mean = 0, sd = 1) v <- rnorm(n = 10, mean = 2, sd = 2) w <- rnorm(n = 10, mean = -2, sd = 3) d <- round(data.frame(u, v, w), 2) fr <- as.POSIXct("2022-08-11 12:00:00") to <- as.POSIXct("2022-08-20 12:00:00") px <- seq(fr, to, by = "days") rownames(d) <- px nr <- nrow(d) nc <- ncol(d) write.cs...
33 sym R (6738 sym/22 pcs) 6 img
Publish Document
x <- 1:100 n <- length(x) set.seed(5) d <- data.frame( u = rnorm(n, mean = 0, sd = 1), v = rnorm(n, mean = 2, sd = 2), w = rnorm(n, mean = -2, sd = 3)) COL <- c(rgb(255, 0, 0, 105, max = 255), rgb( 0, 0, 255, 105, max = 255), rgb( 0, 155, 0, 105, max = 255)) matplot(x, d, type = 'p', pch = coln...
36 sym R (7014 sym/25 pcs) 7 img
Publish Document
set.seed(2) u <- rnorm(n = 10, mean = 0, sd = 1) v <- rnorm(n = 10, mean = 2, sd = 2) w <- rnorm(n = 10, mean = -2, sd = 3) d <- round(data.frame(u, v, w), 2) fr <- as.POSIXct("2022-08-11 12:00:00") to <- as.POSIXct("2022-08-20 12:00:00") px <- seq(fr, to, by = "days") rownames(d) <- px nr <- nrow(d) nc <- ncol(d) write.cs...
33 sym R (6738 sym/22 pcs) 6 img
Home Team Advantage
課題：Jリーグにおけるホームチームの勝率の推定 太郎丸 博 2024-05-15 背景：ホームチーム・アドバンテージ スポーツでは、ホームチームのほうが有利であると言われいてる。その理由として以下のような要因が挙げられている (1 安部 (2017), 2 原田 et al. (199...
2257 sym 1 tbl
Направление 3.7. "Администрация и управление" - Анализ на представянето в РСВУ (към 2023 г.)
РСВУ - Направление 3.7. Администрация и управление Александър Косулиев 2024-05-15 Период 2012-2023 г. Общи резултати Представяне по обобщените критерии Относителна тежест на критериите Подкритери�...
643 sym 1 img
比率の区間推定
比率の区間推定 太郎丸 博 2024-05-14 問題：標本平均と母平均 京大生から無作為抽出したサンプルから、京大生全体の平均身長が知りたい 無作為抽出した社会学の論文のサンプルから、社会学の論文全体に占める質的研究の比率を知りたい 標本から計算した...
2464 sym 1 tbl
Document
四則演算 3+3 ## [1] 6 3-3 ## [1] 0 3*3 ## [1] 9 3/3 ## [1] 1 データ読み込み library(readxl) asia <- read_excel("asia.xlsx") head(asia) ## # A tibble: 6 × 10 ## countrycode country year rgdpe pop ctfp percapitaGDP oecd G7 asia ## <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> ## 1 CHN ...
30 sym R (795 sym/10 pcs)
Using Openrouter API in R
Что такое OpenRouter API? OpenRouter - это инструмент, который помогает интегрировать несколько API для обработки естественного языка (NLP) в вашем приложении. Он предоставляет единую точку доступа к API, че�...
2261 sym R (2173 sym/8 pcs)
Publish Document
x <- c(5,40,25,10) names(x) <- c('親子丼','カツ丼','天丼','牛丼') x ## 親子丼 カツ丼 天丼 牛丼 ## 5 40 25 10 COL <- c(rgb(255, 0, 255, 55, max = 255), rgb( 0, 0, 255, 55, max = 255)) pie(x,clockwise = T) p <- x / sum(x) * 100 pie(p,labels = paste(names(p),round(p,1),'%'),clockwis...
24 sym R (1859 sym/15 pcs) 4 img