Publications by от женечки

Pavel my love

19.06.2024

Я тебя очень сильно люблю! И это математически подтверждено! ## Загрузка требуемого пакета: ggplot2 ## Warning: пакет 'ggplot2' был собран под R версии 4.3.2 ПИ ПИ ПУ ПИ Поцелуйчик тебе от меня, мое солнце!...

120 sym 1 img

層化してJリーグにおけるホームチームの勝率を推定

15.06.2024

課題:層化してJリーグにおけるホームチームの平均得失点差を推定 太郎丸 博 2024-06-15 背景:ホームチーム・アドバンテージ スポーツでは、ホームチームのほうが有利であると言われいてる。その理由として以下のような要因が挙げられている (Courneya and C...

3104 sym

Document

11.06.2024

3変数間の関連 太郎丸 博 2024-06-12 問題:3変数の関係 必ずしも因果関係の解明がデータ解析の目的ではない 事実を記述するだけでじゅうぶん研究として価値のある場合もある しかし、因果関係が知りたい場合も多い しかし、実験できないことも多い フ...

5765 sym 4 img 3 tbl

CorrelationCausation

04.06.2024

相関と因果・疑似相関 太郎丸 博 2024-06-02 相関関係はあるが因果関係は想定できない例 出典:総務省統計局「第2章人口」『世界の統計』 日本からアフリカに移住した人も多少はいるだろうが、両者の間に因果関係があるとは考えにくい 疑似相関 spuriousness ...

9987 sym 1 img

Publish Document

31.05.2024

d <- data.frame( u = c(7, 4, 6, 2, 9, 3, 8, 1, 6, 3), v = c(3, 6, 5, 8, 3, 4, 2, 9, 2, 6), w = c(6, 3, 4, 9, 1, 8, 4, 2, 5, 7)) library(DT) datatable(d) x <- c(1, 2, 3, 5) y <- c(0, 3, 3, 6) cor(x, y) ## [1] 0.9561829 cor(d$u, d$v) ## [1] -0.851136 cor(d$u, d$v, method = 'spearman') ## [1] -0.836927 cor(d$u, d$v, method = 'kendall') ...

45 sym R (2784 sym/35 pcs) 3 img 1 tbl

離散変数間の関連

28.05.2024

離散変数間の関連 太郎丸 博 2024-05-28 出典 以下の解説は特に指示がない限り Wickens (1989) または 太郎丸 (2005) からのもの 統計的独立 independent 離散変数間の関連について考える場合、まず関連がまったくない状態について知っておいたほうが良い ふつう二�...

4582 sym 8 tbl

Latent class analysisの欠測補完から結果の提示

26.05.2024

ライブラリのロード rm(list = ls()) set.seed(1234) library(pacman) p_load(e1071,poLCA,reshape2,tidyverse,knitr,gtsummary,flextable, ztable,forcats,missForest,tidyLPA,MASS,nnet,flexmix,poLCAParallel,reshape2, doParallel,doRNG) データの生成 set.seed(123) n <- 500 # サンプルサイズ # クラスごとに異な...

185 sym R (6827 sym/14 pcs) 3 img 1 tbl

公共地域政策論(国際)

24.05.2024

四則計算 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)

Publish Document

24.05.2024

d <- data.frame( u = c(7, 4, 6, 2, 9, 3, 8, 1, 6, 3), v = c(3, 6, 5, 8, 3, 4, 2, 9, 2, 6), w = c(6, 3, 4, 9, 1, 8, 4, 2, 5, 7)) library(DT) datatable(d) x <- c(1, 2, 3, 5) y <- c(0, 3, 3, 6) cor(x, y) ## [1] 0.9561829 cor(d$u,d$v) ## [1] -0.851136 cor(d$u,d$v,method = 'spearman') ## [1] -0.836927 cor(d$u,d$v,method = 'kendall') ## [1...

55 sym R (2785 sym/44 pcs) 4 img 1 tbl

制服は労働者を権威主義的にするか?スライド

24.05.2024

制服は労働者を権威主義的にするか? 美的労働と社会意識 太郎丸 博 2024-05-24 背景:美的労働 aesthetic labor このスライドファイルへのリンクの QR Code 労働には服装や髪形、化粧、等々、外見を整え、適切に提示するという側面も (Mears 2014; Williams and Connell 2...

6703 sym 4 img 3 tbl