All public logs
Jump to navigation
Jump to search
Combined display of all available logs of 太極. You can narrow down the view by selecting a log type, the username (case-sensitive), or the affected page (also case-sensitive).
- 13:46, 21 May 2023 Brb talk contribs uploaded File:R2.png (<syntaxhighlight lang='rsplus'> x <- seq(0, 2.5, length=20) y <- sin(x) plot(x, y) abline(lsfit(x, y, intercept = F), col = 'red') summary(fit)$r.squared # [1] 0.8554949 </syntaxhighlight>)
- 13:46, 21 May 2023 Brb talk contribs created page File:R2.png (<syntaxhighlight lang='rsplus'> x <- seq(0, 2.5, length=20) y <- sin(x) plot(x, y) abline(lsfit(x, y, intercept = F), col = 'red') summary(fit)$r.squared # [1] 0.8554949 </syntaxhighlight>)
- 16:02, 11 May 2023 Brb talk contribs uploaded File:Paletteggplot2.png
- 16:02, 11 May 2023 Brb talk contribs created page File:Paletteggplot2.png
- 12:12, 10 May 2023 Brb talk contribs uploaded File:Paletteshowcol.png
- 12:12, 10 May 2023 Brb talk contribs created page File:Paletteshowcol.png
- 11:15, 10 May 2023 Brb talk contribs uploaded File:Palettebarplot.png (<syntaxhighlight lang='rsplus'> pal <- c("#E41A1C", "#377EB8", "#4DAF4A", "#984EA3", "#FF7F00") # pal <- sample(colors(), 10) # randomly pick 10 colors barplot(rep(1, length(pal)), col = pal, space = 0, axes = FALSE, border = NA) </syntaxhighlight>)
- 11:15, 10 May 2023 Brb talk contribs created page File:Palettebarplot.png (<syntaxhighlight lang='rsplus'> pal <- c("#E41A1C", "#377EB8", "#4DAF4A", "#984EA3", "#FF7F00") # pal <- sample(colors(), 10) # randomly pick 10 colors barplot(rep(1, length(pal)), col = pal, space = 0, axes = FALSE, border = NA) </syntaxhighlight>)
- 11:14, 10 May 2023 Brb talk contribs uploaded File:Paletteheatmap.png (<syntaxhighlight lang='rsplus'> pal <- c("#E41A1C", "#377EB8", "#4DAF4A", "#984EA3", "#FF7F00") pal <- matrix(pal, nr=2) # acknowledge a nice warning message pal_matrix <- matrix(seq_along(pal), nr=nrow(pal), nc=ncol(pal)) heatmap(pal_matrix, col = pal, Rowv = NA, Colv = NA, scale = "none", ylab = "", xlab = "", main = "", margins = c(5, 5)) # 2 rows, 3 columns with labeling on two axes </syntaxhighlight>)
- 11:14, 10 May 2023 Brb talk contribs created page File:Paletteheatmap.png (<syntaxhighlight lang='rsplus'> pal <- c("#E41A1C", "#377EB8", "#4DAF4A", "#984EA3", "#FF7F00") pal <- matrix(pal, nr=2) # acknowledge a nice warning message pal_matrix <- matrix(seq_along(pal), nr=nrow(pal), nc=ncol(pal)) heatmap(pal_matrix, col = pal, Rowv = NA, Colv = NA, scale = "none", ylab = "", xlab = "", main = "", margins = c(5, 5)) # 2 rows, 3 columns with labeling on two axes </syntaxhighlight>)
- 11:08, 10 May 2023 Brb talk contribs uploaded File:Rpalette.png (<syntaxhighlight lang='rsplus'> pal <- palette() # [1] "black" "#DF536B" "#61D04F" "#2297E6" "#28E2E5" "#CD0BBC" "#F5C710" # [8] "gray62" pal_matrix <- matrix(seq_along(pal), nr=1) image(pal_matrix, col = pal, axes = FALSE) # 8 rows, 1 column, but no labeling # Starting from bottom, left. par()$usr # change with the data dim text(0, (par()$usr[4]-par()$usr[3])/8*c(0:7), labels = pal) </syntaxhighlight>)
- 11:08, 10 May 2023 Brb talk contribs created page File:Rpalette.png (<syntaxhighlight lang='rsplus'> pal <- palette() # [1] "black" "#DF536B" "#61D04F" "#2297E6" "#28E2E5" "#CD0BBC" "#F5C710" # [8] "gray62" pal_matrix <- matrix(seq_along(pal), nr=1) image(pal_matrix, col = pal, axes = FALSE) # 8 rows, 1 column, but no labeling # Starting from bottom, left. par()$usr # change with the data dim text(0, (par()$usr[4]-par()$usr[3])/8*c(0:7), labels = pal) </syntaxhighlight>)
- 13:52, 9 May 2023 Brb talk contribs uploaded File:Ggplotbarplot.png
- 13:52, 9 May 2023 Brb talk contribs created page File:Ggplotbarplot.png
- 11:40, 9 May 2023 Brb talk contribs uploaded File:Cbioportal cptac.png
- 11:40, 9 May 2023 Brb talk contribs created page File:Cbioportal cptac.png
- 21:07, 25 April 2023 Brb talk contribs uploaded File:Losslesscut.png
- 21:07, 25 April 2023 Brb talk contribs created page File:Losslesscut.png
- 17:47, 23 April 2023 Brb talk contribs uploaded File:Sleepstudy.png (<syntaxhighlight lang='rsplus'> sleepstudy %>% ggplot(aes(x=Days, y = Reaction)) + geom_point() + geom_smooth(method = "lm", se = FALSE) + facet_wrap(~Subject) </syntaxhighlight>)
- 17:47, 23 April 2023 Brb talk contribs created page File:Sleepstudy.png (<syntaxhighlight lang='rsplus'> sleepstudy %>% ggplot(aes(x=Days, y = Reaction)) + geom_point() + geom_smooth(method = "lm", se = FALSE) + facet_wrap(~Subject) </syntaxhighlight>)
- 14:13, 11 April 2023 Brb talk contribs created page Tcga (Created page with "= Resources = * [https://www.cancer.gov/about-nci/organization/ccg/blog/2017/tcga-pancan-atlas TCGA to Complete its Final Analysis: the PanCanAtlas], [https://gdc.cancer.gov/a...")
- 16:58, 17 March 2023 Brb talk contribs uploaded File:Svg4.svg (<pre> svg("svg4.svg", width=4, height=4) plot(1:10, main="width=4, height=4") dev.off() </pre>)
- 16:58, 17 March 2023 Brb talk contribs created page File:Svg4.svg (<pre> svg("svg4.svg", width=4, height=4) plot(1:10, main="width=4, height=4") dev.off() </pre>)
- 10:44, 11 March 2023 Brb talk contribs uploaded File:RStudioVisualMode.png
- 10:44, 11 March 2023 Brb talk contribs created page File:RStudioVisualMode.png
- 16:01, 8 March 2023 Brb talk contribs uploaded File:Pca directly2.png
- 16:01, 8 March 2023 Brb talk contribs created page File:Pca directly2.png
- 11:11, 11 February 2023 Brb talk contribs uploaded File:MultipleProbes.PNG
- 11:11, 11 February 2023 Brb talk contribs created page File:MultipleProbes.PNG
- 11:10, 11 February 2023 Brb talk contribs uploaded File:ClassPredictionOptions.PNG
- 11:10, 11 February 2023 Brb talk contribs created page File:ClassPredictionOptions.PNG
- 11:08, 11 February 2023 Brb talk contribs uploaded File:ClassPrediction.PNG
- 11:08, 11 February 2023 Brb talk contribs created page File:ClassPrediction.PNG
- 21:01, 28 January 2023 Brb talk contribs uploaded File:Pca factoextra.png
- 21:01, 28 January 2023 Brb talk contribs created page File:Pca factoextra.png
- 20:34, 28 January 2023 Brb talk contribs uploaded File:Pca autoplot.png
- 20:34, 28 January 2023 Brb talk contribs created page File:Pca autoplot.png
- 20:34, 28 January 2023 Brb talk contribs uploaded File:Pca directly.png
- 20:34, 28 January 2023 Brb talk contribs created page File:Pca directly.png
- 10:21, 25 January 2023 Brb talk contribs uploaded File:VscodeEnergy.png
- 10:21, 25 January 2023 Brb talk contribs created page File:VscodeEnergy.png
- 22:26, 14 January 2023 Brb talk contribs uploaded File:RbdGeom.png (<pre> require(ggplot2) aggregate( .~ treatment +block,FUN=median, data = data) |> ggplot(aes(treatment, yield)) + geom_line(aes(group = block, color = block), linewidth = 1.2) + geom_point(aes(color = block), shape = 15, size=2.6) </pre>)
- 22:26, 14 January 2023 Brb talk contribs created page File:RbdGeom.png (<pre> require(ggplot2) aggregate( .~ treatment +block,FUN=median, data = data) |> ggplot(aes(treatment, yield)) + geom_line(aes(group = block, color = block), linewidth = 1.2) + geom_point(aes(color = block), shape = 15, size=2.6) </pre>)
- 21:51, 14 January 2023 Brb talk contribs uploaded File:RbdBlock.png (<pre> set.seed(1234) block <- as.factor(rep(1:5, each=6)) treatment <- rep(c("A","B","C"),5) block_shift <- rnorm(5, mean = 0, sd = 2) treatment_shift <- c(A=0, B=4, C=2) random_effect <- rnorm(30, mean = 0, sd = 1) yield <- rnorm(30, mean = 10, sd = 2) + treatment_shift[as.integer(factor(treatment))] + block_shift[as.numeric(block)] + random_effect data <- data.frame(block, treatment, yield) summary(fm1 <- aov(yield ~ treatment + block, data = data)) # Df Sum Sq Mean Sq...)
- 21:51, 14 January 2023 Brb talk contribs created page File:RbdBlock.png (<pre> set.seed(1234) block <- as.factor(rep(1:5, each=6)) treatment <- rep(c("A","B","C"),5) block_shift <- rnorm(5, mean = 0, sd = 2) treatment_shift <- c(A=0, B=4, C=2) random_effect <- rnorm(30, mean = 0, sd = 1) yield <- rnorm(30, mean = 10, sd = 2) + treatment_shift[as.integer(factor(treatment))] + block_shift[as.numeric(block)] + random_effect data <- data.frame(block, treatment, yield) summary(fm1 <- aov(yield ~ treatment + block, data = data)) # Df Sum Sq Mean Sq...)
- 21:50, 14 January 2023 Brb talk contribs uploaded File:RbdTreat.png (<pre> set.seed(1234) block <- as.factor(rep(1:5, each=6)) treatment <- rep(c("A","B","C"),5) block_shift <- rnorm(5, mean = 0, sd = 2) treatment_shift <- c(A=0, B=4, C=2) random_effect <- rnorm(30, mean = 0, sd = 1) yield <- rnorm(30, mean = 10, sd = 2) + treatment_shift[as.integer(factor(treatment))] + block_shift[as.numeric(block)] + random_effect data <- data.frame(block, treatment, yield) summary(fm1 <- aov(yield ~ treatment + block, data = data)) # Df Sum Sq Mean Sq...)
- 21:50, 14 January 2023 Brb talk contribs created page File:RbdTreat.png (<pre> set.seed(1234) block <- as.factor(rep(1:5, each=6)) treatment <- rep(c("A","B","C"),5) block_shift <- rnorm(5, mean = 0, sd = 2) treatment_shift <- c(A=0, B=4, C=2) random_effect <- rnorm(30, mean = 0, sd = 1) yield <- rnorm(30, mean = 10, sd = 2) + treatment_shift[as.integer(factor(treatment))] + block_shift[as.numeric(block)] + random_effect data <- data.frame(block, treatment, yield) summary(fm1 <- aov(yield ~ treatment + block, data = data)) # Df Sum Sq Mean Sq...)
- 12:18, 12 January 2023 Brb talk contribs uploaded File:GseaTable2.png (An example of a plot from 10 non-enriched pathways. <pre> data(examplePathways) data(exampleRanks) fgseaRes <- fgsea(examplePathways, exampleRanks, nperm=1000, minSize=15, maxSize=100) fgseaRes[order(pval, decreasing = T),][1:10, c('NES', 'pval')] # NES pval # 1: -0.4050950 1.0000000 # 2: -0.4050950 1.0000000 # 3: -0.4966664 0.9932584 # 4: 0.4804114 0.9870610 # 5: 0.4804114 0.9870610 # 6: 0.4804114 0.9870610 # 7: 0.4804114 0.9870610 # 8: 0.4955139 0.9854...)
- 12:18, 12 January 2023 Brb talk contribs created page File:GseaTable2.png (An example of a plot from 10 non-enriched pathways. <pre> data(examplePathways) data(exampleRanks) fgseaRes <- fgsea(examplePathways, exampleRanks, nperm=1000, minSize=15, maxSize=100) fgseaRes[order(pval, decreasing = T),][1:10, c('NES', 'pval')] # NES pval # 1: -0.4050950 1.0000000 # 2: -0.4050950 1.0000000 # 3: -0.4966664 0.9932584 # 4: 0.4804114 0.9870610 # 5: 0.4804114 0.9870610 # 6: 0.4804114 0.9870610 # 7: 0.4804114 0.9870610 # 8: 0.4955139 0.9854...)
- 12:01, 12 January 2023 Brb talk contribs uploaded File:GseaTable.png (<pre> data(examplePathways) data(exampleRanks) fgseaRes <- fgsea(examplePathways, exampleRanks, nperm=1000, minSize=15, maxSize=100) # I pick 5 pathways with + NES and 5 pathways with - NES. fgseaRes[order(pval), ][62:71, c('pathway', 'NES')] # pathway NES # 1: 5992282_ECM_proteoglycans 1.984081 # 2: 5992219_Regulation_of_cholesterol_biosynthesis_by_SREBP_SREBF_ 1.95...)