File:Fisher-method-fused-P.svg

原始檔案 (SVG 檔案,表面大小:623 × 533 像素,檔案大小:342 KB)


摘要

描述
English: Fusing two p-values by using Fisher's method.
日期
來源 自己的作品
作者 Chen-Pan Liao

R code

d <-
  expand.grid(P1 = seq(0.001, 1, length = 500),
              P2 = seq(0.001, 1, length = 500))
d$`Fused P` <-
  pchisq(with(d,-2 * (log(P1) + log(P2))), 2 * 2, lower.tail = F)

library(ggpubr)
library(extrafont)
loadfonts(device = "win")
cols <-
  c(
    '#67001f',
    '#730d2c',
    '#7f1938',
    '#8a2545',
    '#953052',
    '#9f3b5f',
    '#a9466c',
    '#b35278',
    '#bc5e85',
    '#c46a91',
    '#cc779d',
    '#d483a9',
    '#db90b4',
    '#e19ebf',
    '#e7acca',
    '#ecb9d4',
    '#f0c8de',
    '#f3d6e8',
    '#f6e5f1',
    '#f7f4f9'
  )
ggplot(d, aes(P1, P2)) +
  geom_contour_filled(aes(z = `Fused P`), binwidth = 0.05, color = 8) +
  coord_fixed() +
  scale_fill_manual(values = cols) +
  scale_x_continuous(
    expand = expansion(c(0, 0)),
    limits = c(0, 1),
    breaks = seq(0, 1, 0.1)
  ) +
  scale_y_continuous(
    expand = expansion(c(0, 0)),
    limits = c(0, 1),
    breaks = seq(0, 1, 0.1)
  ) +
  guides(fill = guide_legend(title = "Fused P")) +
  theme_pubr(11, "Liberation Sans", legend = "right") + 
  theme(legend.text = element_text(size = 11)) +
  x11(width = 7, height = 6)

授權條款

我,本作品的著作權持有者,決定用以下授權條款發佈本作品:
Creative Commons CC-Zero 此檔案在創用CC CC0 1.0 通用公有領域貢獻宣告之下分發。
在此宣告之下分發本作品者,已依據各國著作權法,在全世界放棄其對本作品所擁有的著作權及所有相關相似的法律權利,從而將本作品貢獻至公有領域。您可以複製、修改、分發和演示該作品,用於任何商業用途,所有這些都不需要請求授權。

說明

添加單行說明來描述出檔案所代表的內容
Fusing two p-values by using Fisher's method

在此檔案描寫的項目

描繪內容

檔案來源 Chinese (Taiwan) (已轉換拼寫)

image/svg+xml

檔案歷史

點選日期/時間以檢視該時間的檔案版本。

日期/時間縮⁠圖尺寸使用者備⁠註
目前2021年10月26日 (二) 01:45於 2021年10月26日 (二) 01:45 版本的縮圖623 × 533(342 KB)Chen-Pan Liaominor tweaks
2021年10月25日 (一) 05:12於 2021年10月25日 (一) 05:12 版本的縮圖623 × 533(486 KB)Chen-Pan Liaocalculation correction
2021年10月25日 (一) 04:54於 2021年10月25日 (一) 04:54 版本的縮圖623 × 533(336 KB)Chen-Pan LiaoUploaded own work with UploadWizard

下列頁面有用到此檔案:

全域檔案使用狀況

以下其他 wiki 使用了這個檔案:

詮釋資料