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).
- 15:27, 7 March 2024 Brb talk contribs created page File:DataOutliers.png ({{Pre}} puree <- read.csv("https://gist.githubusercontent.com/arraytools/47d3a46ae1f9a9cd47db350ae2bd2338/raw/b5cccc8e566ff3bef81b1b371e8bfa174c98ef38/dataOutliers.csv", header = FALSE) plot(puree[,1], puree[, 2], xlim=c(0,1), ylim=c(0,1), xlab="X", ylab="Y") abline(0,1, lty=2) abline(lm(V2 ~ V1, data = puree)) # robust regression require(MASS) summary(rlm(V2 ~ V1, data = puree)) abline(rr.huber <- rlm(V2 ~ V1, data = puree), col = "blue") # almost overlapped with lm() # quantile regressio...)
- 15:27, 7 March 2024 Brb talk contribs uploaded File:DataOutliers.png ({{Pre}} puree <- read.csv("https://gist.githubusercontent.com/arraytools/47d3a46ae1f9a9cd47db350ae2bd2338/raw/b5cccc8e566ff3bef81b1b371e8bfa174c98ef38/dataOutliers.csv", header = FALSE) plot(puree[,1], puree[, 2], xlim=c(0,1), ylim=c(0,1), xlab="X", ylab="Y") abline(0,1, lty=2) abline(lm(V2 ~ V1, data = puree)) # robust regression require(MASS) summary(rlm(V2 ~ V1, data = puree)) abline(rr.huber <- rlm(V2 ~ V1, data = puree), col = "blue") # almost overlapped with lm() # quantile regressio...)
- 22:41, 10 February 2024 Brb talk contribs created page File:R162.png
- 22:41, 10 February 2024 Brb talk contribs uploaded File:R162.png
- 22:53, 8 February 2024 Brb talk contribs created page File:Jitterbox.png (<syntaxhighlight lang='r'> nc <- 5 assy <- LETTERS[1:nc] pal <- ggpubr::get_palette("default", nc) set.seed(1) nr <- 5 mat <- matrix(runif(nr*length(assy)), nrow = nr, ncol = length(assy)) set.seed(1) cutoffs <- runif(nc) colnames(mat) <- assy par(mar=c(5,4,1,1)+.1) plot(1, 1, xlim = c(0.5, nc + .5), ylim = c(0,1), type = "n", xlab = "Assay", ylab = "Score", xaxt = 'n') for (i in 1:nc) { rect(i - 0.25, 0, i + 0.25, 1, col = pal[i]) lines(x = c(i - 0.25, i + 0.25), y = c(cutof...)
- 22:53, 8 February 2024 Brb talk contribs uploaded File:Jitterbox.png (<syntaxhighlight lang='r'> nc <- 5 assy <- LETTERS[1:nc] pal <- ggpubr::get_palette("default", nc) set.seed(1) nr <- 5 mat <- matrix(runif(nr*length(assy)), nrow = nr, ncol = length(assy)) set.seed(1) cutoffs <- runif(nc) colnames(mat) <- assy par(mar=c(5,4,1,1)+.1) plot(1, 1, xlim = c(0.5, nc + .5), ylim = c(0,1), type = "n", xlab = "Assay", ylab = "Score", xaxt = 'n') for (i in 1:nc) { rect(i - 0.25, 0, i + 0.25, 1, col = pal[i]) lines(x = c(i - 0.25, i + 0.25), y = c(cutof...)
- 11:25, 19 January 2024 Brb talk contribs created page File:RStudioAbort.png
- 11:25, 19 January 2024 Brb talk contribs uploaded File:RStudioAbort.png
- 21:39, 25 December 2023 Brb talk contribs created page Linux shell (Created page with "= What’s the Difference Between Bash, Zsh, and Other Linux Shells = https://www.howtogeek.com/68563/htg-explains-what-are-the-differences-between-linux-shells/ = sh (Bourne shell, 1977) = * Basic shell * POSIX-compliant shell = Bash shell = * Can be mostly POSIX compliant * Expose array indices * Regular expression conditionals * Increment assignment operator * Current version: Bash 4 [http://bash.cyberciti.biz/guide/Main_Page Bash shell programming] = Dash = * Mos...")
- 06:22, 22 December 2023 Brb talk contribs created page R Docker (Created page with "= Use with R (r-base) & RStudio IDE: Rocker = <ul> <li>[https://solutions.rstudio.com/environments/docker/ Docker 101 for Data Scientists] by RStudio </li> <li>[https://hub.docker.com/_/r-base r-base] (Official image, R version is tagged), [https://hub.docker.com/r/rocker/rstudio/tags RStudio] <ul> <li>The oldest version of R is 3.1.2 (2014-10-31). '''docke run -it --rm r-base:3.1.2''' <li>[https://www.rocker-project.org/use/managing_users/ Managing Users] </li> <li>[htt...")
- 20:01, 14 November 2023 Brb talk contribs created page Orange pi (Created page with "= Orange pi 5 plus = * [http://www.orangepi.org/html/hardWare/computerAndMicrocontrollers/details/Orange-Pi-5-plus.html Orange Pi 5 Plus (4GB/8GB/16GB)] * Orange pi 5 plus vs Orange pi 5. Orange pi 5 uses RK3588S & Gigabit ethernet but Orange Pi 5 plus uses RK3588 & 2.5G ethernet.")
- 20:38, 15 October 2023 Brb talk contribs created page File:Geomerrorbarh.png (<syntaxhighlight lang='rsplus'> df <- data.frame( trt = factor(c("Treatment 1", "Treatment 2", "Treatment 3", "Treatment 4", "Treatment 5")), # treatment resp = c(1, 5, 3, 4, 2), # response se = c(0.1, 0.3, 0.3, 0.2, 0.2) # standard error ) # make 'Treatment 1' shown at the top df$trt <- factor(df$trt, levels = c("Treatment 5", "Treatment 4", "Treatment 3", "Treatment 2", "Treatment 1")) p <- ggplot(df, aes(resp, trt)) + geom_point() p + geom_errorbarh(aes(xmax=resp + se, xmin=resp-se),...)
- 20:38, 15 October 2023 Brb talk contribs uploaded File:Geomerrorbarh.png (<syntaxhighlight lang='rsplus'> df <- data.frame( trt = factor(c("Treatment 1", "Treatment 2", "Treatment 3", "Treatment 4", "Treatment 5")), # treatment resp = c(1, 5, 3, 4, 2), # response se = c(0.1, 0.3, 0.3, 0.2, 0.2) # standard error ) # make 'Treatment 1' shown at the top df$trt <- factor(df$trt, levels = c("Treatment 5", "Treatment 4", "Treatment 3", "Treatment 2", "Treatment 1")) p <- ggplot(df, aes(resp, trt)) + geom_point() p + geom_errorbarh(aes(xmax=resp + se, xmin=resp-se),...)
- 18:44, 10 October 2023 Brb talk contribs created page Drupal (Created page with "* https://www.drupal.org/home * [https://www.drupal.org/docs/develop/local-server-setup/linux-development-environments/set-up-a-local-development-drupal-site-on-the-latest-ubuntu-lts-version-and-more Advertising sustains the DA. Set up a local development Drupal site on the latest Ubuntu LTS version and more] * [https://www.digitalocean.com/community/tutorials/how-to-develop-a-drupal-9-website-on-your-local-machine-using-docker-and-ddev How To Develop a Drupal 9 Website...")
- 17:32, 9 October 2023 Brb talk contribs created page File:Calibre.png
- 17:32, 9 October 2023 Brb talk contribs uploaded File:Calibre.png
- 09:07, 11 September 2023 Brb talk contribs created page Longitudinal (Created page with "= Mixed Effect Model = * Paper by [http://www.stat.cmu.edu/~brian/463/week07/laird-ware-biometrics-1982.pdf Laird and Ware 1982] * [https://vitalflux.com/fixed-vs-random-vs-mixed-effects-models-examples/ Random effects vs fixed effects model]: There may be factors related to country/region (random variable) which may result in different patients’ responses to the vaccine, and, ''not all countries are included in the study''. * [http://cran.r-project.org/doc/contrib/F...")
- 12:18, 24 August 2023 Brb talk contribs created page File:Wheel f400.png
- 12:18, 24 August 2023 Brb talk contribs uploaded File:Wheel f400.png
- 12:17, 24 August 2023 Brb talk contribs created page File:Wheel f8.png
- 12:17, 24 August 2023 Brb talk contribs uploaded File:Wheel f8.png
- 15:59, 22 August 2023 Brb talk contribs created page File:Roc asah.png (<pre> par(mfrow=c(1,2)) roc(aSAH$outcome, aSAH$s100b, plot = T) roc(aSAH$outcome2, aSAH$s100b, plot = T) par(mfrow=c(1,1)) </pre>)
- 15:59, 22 August 2023 Brb talk contribs uploaded File:Roc asah.png (<pre> par(mfrow=c(1,2)) roc(aSAH$outcome, aSAH$s100b, plot = T) roc(aSAH$outcome2, aSAH$s100b, plot = T) par(mfrow=c(1,1)) </pre>)
- 14:44, 13 August 2023 Brb talk contribs created page File:Rotateheatmap.png (<syntaxhighlight lang="rsplus"> library(circlize) set.seed(123) mat = matrix(rnorm(80), 8, 10) rownames(mat) = paste0("R", 1:8) colnames(mat) = paste0("C", 1:10) col_anno = HeatmapAnnotation( df = data.frame(anno1 = 1:10, anno2 = rep(letters[1:3], c(4,3,3))), col = list(anno2 = c("a" = "red", "b" = "blue", "c" = "green"))) row_anno = rowAnnotation( df = data.frame(anno3 = 1:8, anno4 = rep(l...)
- 14:44, 13 August 2023 Brb talk contribs uploaded File:Rotateheatmap.png (<syntaxhighlight lang="rsplus"> library(circlize) set.seed(123) mat = matrix(rnorm(80), 8, 10) rownames(mat) = paste0("R", 1:8) colnames(mat) = paste0("C", 1:10) col_anno = HeatmapAnnotation( df = data.frame(anno1 = 1:10, anno2 = rep(letters[1:3], c(4,3,3))), col = list(anno2 = c("a" = "red", "b" = "blue", "c" = "green"))) row_anno = rowAnnotation( df = data.frame(anno3 = 1:8, anno4 = rep(l...)
- 16:21, 12 August 2023 Brb talk contribs created page File:Rotatedend.png
- 16:21, 12 August 2023 Brb talk contribs uploaded File:Rotatedend.png
- 16:17, 12 August 2023 Brb talk contribs created page File:Dend12.png ({{Pre}} set.seed(123) dat <- matrix(rnorm(20), ncol=2) # perform hierarchical clustering hc <- hclust(dist(dat)) # plot dendrogram plot(hc) # get ordering of leaves ord <- order.dendrogram(as.dendrogram(hc)) ord # [1] 8 3 6 5 10 1 9 7 2 4 # Same as seen on the dendrogram nodes # Rotate the branches (1,9) & (7,2,4) plot(rotate(hc, c("8", "3", "6", "5", "10", "7", "2", "4", "1", "9")), main="Rotated") </pre>)
- 16:17, 12 August 2023 Brb talk contribs uploaded File:Dend12.png ({{Pre}} set.seed(123) dat <- matrix(rnorm(20), ncol=2) # perform hierarchical clustering hc <- hclust(dist(dat)) # plot dendrogram plot(hc) # get ordering of leaves ord <- order.dendrogram(as.dendrogram(hc)) ord # [1] 8 3 6 5 10 1 9 7 2 4 # Same as seen on the dendrogram nodes # Rotate the branches (1,9) & (7,2,4) plot(rotate(hc, c("8", "3", "6", "5", "10", "7", "2", "4", "1", "9")), main="Rotated") </pre>)
- 16:39, 6 August 2023 Brb talk contribs created page File:Plotly3d.png
- 16:39, 6 August 2023 Brb talk contribs uploaded File:Plotly3d.png
- 19:06, 5 August 2023 Brb talk contribs created page Delta (Created page with "Delta method * https://en.wikipedia.org/wiki/Delta_method * R examples. ** Var(xbar/ybar) https://gist.github.com/arraytools/c39f52b9280f4f1858da83a6bc60f185.")
- 15:39, 31 July 2023 Brb talk contribs created page File:Filter single.png
- 15:39, 31 July 2023 Brb talk contribs uploaded File:Filter single.png
- 11:25, 1 July 2023 Brb talk contribs created page Smartctl (Created page with "= NVME = <pre> $ smartctl -v | head -1 smartctl 7.2 2020-12-30 r5155 [x86_64-linux-5.19.0-46-generic] (local build) </pre> <pre> $ sudo smartctl -a /dev/nvme0 smartctl 7.2 2020-12-30 r5155 [x86_64-linux-5.19.0-46-generic] (local build) Copyright (C) 2002-20, Bruce Allen, Christian Franke, www.smartmontools.org === START OF INFORMATION SECTION === Model Number: CT1000P3SSD8 Serial Number: 2314E6C4100F Firmware Version:...")
- 12:47, 27 May 2023 Brb talk contribs created page File:Vibrant ink rstheme.png (https://github.com/captaincaed/rstudio/blob/main/vibrant_ink_SB_2.rstheme)
- 12:47, 27 May 2023 Brb talk contribs uploaded File:Vibrant ink rstheme.png (https://github.com/captaincaed/rstudio/blob/main/vibrant_ink_SB_2.rstheme)
- 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>)
- 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>)
- 16:02, 11 May 2023 Brb talk contribs created page File:Paletteggplot2.png
- 16:02, 11 May 2023 Brb talk contribs uploaded File:Paletteggplot2.png
- 12:12, 10 May 2023 Brb talk contribs created page File:Paletteshowcol.png
- 12:12, 10 May 2023 Brb talk contribs uploaded File:Paletteshowcol.png
- 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: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: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: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: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>)
- 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>)
- 13:52, 9 May 2023 Brb talk contribs created page File:Ggplotbarplot.png
