Main public logs

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).

• 08:07, 13 June 2025 Brb talk contribs created page File:Cauchyos install.png
• 08:07, 13 June 2025 Brb talk contribs uploaded File:Cauchyos install.png
• 12:44, 20 May 2025 Brb talk contribs created page File:Combat DE mod.png (Demonstrate the importance of the 'mod' parameter in sva::ComBat() <syntaxhighlight lang='r'> library(sva) library(limma) library(ggplot2) library(tidyr) set.seed(42) n_genes <- 100 n_samples <- 20 # Group: 10 Case and 10 Control — spread across batches group <- sample(rep(c("Control", "Case"), each=10)) # now randomized batch <- rep(c(1, 2), each=10) # Simulate expression data expr <- matrix(rnorm(n_genes * n_samples, mean=5, sd=1), nrow=n_genes) # Add true signal to 10 genes for Case...)
• 12:44, 20 May 2025 Brb talk contribs uploaded File:Combat DE mod.png (Demonstrate the importance of the 'mod' parameter in sva::ComBat() <syntaxhighlight lang='r'> library(sva) library(limma) library(ggplot2) library(tidyr) set.seed(42) n_genes <- 100 n_samples <- 20 # Group: 10 Case and 10 Control — spread across batches group <- sample(rep(c("Control", "Case"), each=10)) # now randomized batch <- rep(c(1, 2), each=10) # Simulate expression data expr <- matrix(rnorm(n_genes * n_samples, mean=5, sd=1), nrow=n_genes) # Add true signal to 10 genes for Case...)
• 20:47, 17 May 2025 Brb talk contribs created page File:Twoway.png (<syntaxhighlight lang='r'> png("~/Downloads/twoway.png", width=8, height=6, units="in",res=300) par(mar = c(8, 4, 4, 2)) boxplot(y ~ treatment * timepoint, data = df, col = c("skyblue", "lightgreen", "lightpink"), main = "Plant Growth by Treatment and Timepoint", xlab = "", ylab = "Plant Height", xaxt = "n") # Add rotated x-axis labels labels <- levels(interaction(df$treatment, df$timepoint)) axis(1, at = 1:length(labels), labels = FALSE) # Add ticks without labels...)
• 20:47, 17 May 2025 Brb talk contribs uploaded File:Twoway.png (<syntaxhighlight lang='r'> png("~/Downloads/twoway.png", width=8, height=6, units="in",res=300) par(mar = c(8, 4, 4, 2)) boxplot(y ~ treatment * timepoint, data = df, col = c("skyblue", "lightgreen", "lightpink"), main = "Plant Growth by Treatment and Timepoint", xlab = "", ylab = "Plant Height", xaxt = "n") # Add rotated x-axis labels labels <- levels(interaction(df$treatment, df$timepoint)) axis(1, at = 1:length(labels), labels = FALSE) # Add ticks without labels...)
• 12:33, 17 April 2025 Brb talk contribs created page File:Groupjitterboxplot.png (<syntaxhighlight lang='r'> library(ggplot2) library(dplyr) # Create a sample dataset with large sample size set.seed(42) n_per_group <- 500 # 500 samples per group and category combination (2000 total) data <- data.frame( A = rep(c("Group1", "Group2"), each = n_per_group * 2), B = c(rnorm(n_per_group, 10, 2), rnorm(n_per_group, 8, 1.5), # Group1: Category1, Category2 rnorm(n_per_group, 12, 2.5), rnorm(n_per_group, 14, 2)), # Group2: Category1, Category2 F = rep(rep(c("Categ...)
• 12:33, 17 April 2025 Brb talk contribs uploaded File:Groupjitterboxplot.png (<syntaxhighlight lang='r'> library(ggplot2) library(dplyr) # Create a sample dataset with large sample size set.seed(42) n_per_group <- 500 # 500 samples per group and category combination (2000 total) data <- data.frame( A = rep(c("Group1", "Group2"), each = n_per_group * 2), B = c(rnorm(n_per_group, 10, 2), rnorm(n_per_group, 8, 1.5), # Group1: Category1, Category2 rnorm(n_per_group, 12, 2.5), rnorm(n_per_group, 14, 2)), # Group2: Category1, Category2 F = rep(rep(c("Categ...)
• 18:19, 8 February 2025 Brb talk contribs created page Retropie (Redirected page to RetroPie) Tag: New redirect
• 16:37, 31 January 2025 Brb talk contribs created page File:Heatmapcolparam.png (<syntaxhighlight lang='r'> library(ComplexHeatmap) library(circlize) # Create a sample 5x5 matrix with values from -4 to 4 set.seed(123) # for reproducibility example_matrix <- matrix(runif(25, -4, 4), nrow = 5) colnames(example_matrix) <- paste0("Col", 1:5) rownames(example_matrix) <- paste0("Row", 1:5) # Define the color function that truncates at -2 and 2 col_fun <- colorRamp2(c(-2, 0, 2), c("blue", "white", "red")) # Plot the heatmap without truncating the data heatmap1 <- Heatmap(exa...)
• 16:37, 31 January 2025 Brb talk contribs uploaded File:Heatmapcolparam.png (<syntaxhighlight lang='r'> library(ComplexHeatmap) library(circlize) # Create a sample 5x5 matrix with values from -4 to 4 set.seed(123) # for reproducibility example_matrix <- matrix(runif(25, -4, 4), nrow = 5) colnames(example_matrix) <- paste0("Col", 1:5) rownames(example_matrix) <- paste0("Row", 1:5) # Define the color function that truncates at -2 and 2 col_fun <- colorRamp2(c(-2, 0, 2), c("blue", "white", "red")) # Plot the heatmap without truncating the data heatmap1 <- Heatmap(exa...)
• 18:37, 11 January 2025 Brb talk contribs uploaded a new version of File:Scale color identity.png
• 18:33, 11 January 2025 Brb talk contribs created page File:Scale color identity.png (<syntaxhighlight lang='r'> library(ggplot2) library(patchwork) # Data for the plots data <- data.frame( x = 1:3, y = c(5, 10, 15), color = c("#FF0000", "#00FF00", "#0000FF") # Actual color codes ) # Plot 1: Without scale_color_identity() plot1 <- ggplot(data, aes(x = x, y = y, color = color)) + geom_point(size = 5) + ggtitle("Without scale_color_identity()") # Plot 2: With scale_color_identity() plot2 <- ggplot(data, aes(x = x, y = y, color = color)) + geom_point(size = 5) +...)
• 18:33, 11 January 2025 Brb talk contribs uploaded File:Scale color identity.png (<syntaxhighlight lang='r'> library(ggplot2) library(patchwork) # Data for the plots data <- data.frame( x = 1:3, y = c(5, 10, 15), color = c("#FF0000", "#00FF00", "#0000FF") # Actual color codes ) # Plot 1: Without scale_color_identity() plot1 <- ggplot(data, aes(x = x, y = y, color = color)) + geom_point(size = 5) + ggtitle("Without scale_color_identity()") # Plot 2: With scale_color_identity() plot2 <- ggplot(data, aes(x = x, y = y, color = color)) + geom_point(size = 5) +...)
• 13:58, 30 December 2024 Brb talk contribs created page Router (Created page with "= OPNSense = * [https://youtu.be/Qrglquxw-6I OPNSense - a powerful, open source, network firewall and router] 4/19/2022 * [https://youtu.be/gCYPd4qSgjE Building a Business - Ep. 2: Installing OPNSense or pfSense as our Firewall and Router.] 9/4/2022 * [https://youtu.be/y6Ewly5-WvI *Building a Business - Ep 3 - VLAN Setup in pfSense and OPNSense four our segmented network] 9/11/2022 * [https://www.pcworld.com/article/2548020/build-your-own-router-and-firewall-with-opnsen...")
• 20:27, 26 December 2024 Brb talk contribs uploaded a new version of File:Hmscaled.png
• 20:21, 26 December 2024 Brb talk contribs created page File:Hmscaled2.png (<syntaxhighlight lang='r'> x <- structure(c(16.9966943817533, 17.9931011170293, 17.5792623673341, 18.5768638712856, 15.6183559348761, 18.605802884533, 17.9288112453195, 18.4134150861349, 17.6070787425032, 17.8698729193728, 17.7444512372316, 18.092093724098, 16.9949257540877, 17.7299728705232, 18.2145767113386, 18.5766893731416), dim = c(4L, 4L), dimnames = list(c("Gene1", "Gene2", "Gene3", "Gene4"), c("Sample1", "Sample2", "Sample3","Sample4"))) scaled_x <- t(sca...)
• 20:21, 26 December 2024 Brb talk contribs uploaded File:Hmscaled2.png (<syntaxhighlight lang='r'> x <- structure(c(16.9966943817533, 17.9931011170293, 17.5792623673341, 18.5768638712856, 15.6183559348761, 18.605802884533, 17.9288112453195, 18.4134150861349, 17.6070787425032, 17.8698729193728, 17.7444512372316, 18.092093724098, 16.9949257540877, 17.7299728705232, 18.2145767113386, 18.5766893731416), dim = c(4L, 4L), dimnames = list(c("Gene1", "Gene2", "Gene3", "Gene4"), c("Sample1", "Sample2", "Sample3","Sample4"))) scaled_x <- t(sca...)
• 20:20, 26 December 2024 Brb talk contribs created page File:Hmx2.png (<syntaxhighlight lang='r'> x <- structure(c(16.9966943817533, 17.9931011170293, 17.5792623673341, 18.5768638712856, 15.6183559348761, 18.605802884533, 17.9288112453195, 18.4134150861349, 17.6070787425032, 17.8698729193728, 17.7444512372316, 18.092093724098, 16.9949257540877, 17.7299728705232, 18.2145767113386, 18.5766893731416), dim = c(4L, 4L), dimnames = list(c("Gene1", "Gene2", "Gene3", "Gene4"), c("Sample1", "Sample2", "Sample3","Sample4"))) row_hc <- hclust(...)
• 20:20, 26 December 2024 Brb talk contribs uploaded File:Hmx2.png (<syntaxhighlight lang='r'> x <- structure(c(16.9966943817533, 17.9931011170293, 17.5792623673341, 18.5768638712856, 15.6183559348761, 18.605802884533, 17.9288112453195, 18.4134150861349, 17.6070787425032, 17.8698729193728, 17.7444512372316, 18.092093724098, 16.9949257540877, 17.7299728705232, 18.2145767113386, 18.5766893731416), dim = c(4L, 4L), dimnames = list(c("Gene1", "Gene2", "Gene3", "Gene4"), c("Sample1", "Sample2", "Sample3","Sample4"))) row_hc <- hclust(...)
• 20:11, 26 December 2024 Brb talk contribs uploaded a new version of File:Statsheatmap.png
• 22:00, 25 December 2024 Brb talk contribs created page File:Opi-llm2.png
• 22:00, 25 December 2024 Brb talk contribs uploaded File:Opi-llm2.png
• 22:00, 25 December 2024 Brb talk contribs created page File:Opi-llm.png
• 22:00, 25 December 2024 Brb talk contribs uploaded File:Opi-llm.png
• 16:45, 23 December 2024 Brb talk contribs created page File:Statsheatmapscaled.png
• 16:45, 23 December 2024 Brb talk contribs uploaded File:Statsheatmapscaled.png
• 16:45, 23 December 2024 Brb talk contribs created page File:Statsheatmap.png
• 16:45, 23 December 2024 Brb talk contribs uploaded File:Statsheatmap.png
• 15:58, 23 December 2024 Brb talk contribs created page File:Hmscaled.png
• 15:58, 23 December 2024 Brb talk contribs uploaded File:Hmscaled.png
• 15:58, 23 December 2024 Brb talk contribs created page File:Hmx.png
• 15:58, 23 December 2024 Brb talk contribs uploaded File:Hmx.png
• 22:05, 21 December 2024 Brb talk contribs created page File:Rscales2.png
• 22:05, 21 December 2024 Brb talk contribs uploaded File:Rscales2.png
• 22:02, 21 December 2024 Brb talk contribs created page File:Rscales.svg (<pre> svglite("~/Downloads/Rscales2.svg", bg = "transparent") par(mfrow = c(1, 3),mar = c(0, 4, 0, 2)) show_col(hue_pal()(4)) show_col(hue_pal()(3)) show_col(hue_pal()(2)) par(mfrow = c(1, 1)) dev.off() </pre>)
• 22:02, 21 December 2024 Brb talk contribs uploaded File:Rscales.svg (<pre> svglite("~/Downloads/Rscales2.svg", bg = "transparent") par(mfrow = c(1, 3),mar = c(0, 4, 0, 2)) show_col(hue_pal()(4)) show_col(hue_pal()(3)) show_col(hue_pal()(2)) par(mfrow = c(1, 1)) dev.off() </pre>)
• 20:06, 24 August 2024 Brb talk contribs created page File:R-squared.png
• 20:06, 24 August 2024 Brb talk contribs uploaded File:R-squared.png
• 14:54, 13 August 2024 Brb talk contribs created page File:Geom bar reorder.png (<syntaxhighlight lang='r'> library(ggplot2) library(forcats) data <- data.frame( category = c("A", "B", "C", "D"), value = c(3, 5, 2, 8) ) data$category <- fct_reorder(data$category, data$value) levels(data$category) # [1] "C" "A" "B" "D" ggplot(data, aes(x = category, y = value, fill = category)) + geom_bar(stat = "identity") + coord_flip() + labs(x = "Category", y = "Value") + theme_minimal() </syntaxhighlight>)
• 14:54, 13 August 2024 Brb talk contribs uploaded File:Geom bar reorder.png (<syntaxhighlight lang='r'> library(ggplot2) library(forcats) data <- data.frame( category = c("A", "B", "C", "D"), value = c(3, 5, 2, 8) ) data$category <- fct_reorder(data$category, data$value) levels(data$category) # [1] "C" "A" "B" "D" ggplot(data, aes(x = category, y = value, fill = category)) + geom_bar(stat = "identity") + coord_flip() + labs(x = "Category", y = "Value") + theme_minimal() </syntaxhighlight>)
• 14:47, 13 August 2024 Brb talk contribs created page File:Geom bar simple.png (<syntaxhighlight lang='r'> library(ggplot2) data <- data.frame( category = c("A", "B", "C", "D"), value = c(3, 5, 2, 8) ) ggplot(data, aes(x = category, y = value, fill = category)) + geom_bar(stat = "identity") + coord_flip() + labs(x = "Category", y = "Value") + # scale_fill_manual(values = c("A" = "red", "B" = "blue", "C" = "green", "D" = "purple")) theme_minimal() </syntaxhighlight>)
• 14:47, 13 August 2024 Brb talk contribs uploaded File:Geom bar simple.png (<syntaxhighlight lang='r'> library(ggplot2) data <- data.frame( category = c("A", "B", "C", "D"), value = c(3, 5, 2, 8) ) ggplot(data, aes(x = category, y = value, fill = category)) + geom_bar(stat = "identity") + coord_flip() + labs(x = "Category", y = "Value") + # scale_fill_manual(values = c("A" = "red", "B" = "blue", "C" = "green", "D" = "purple")) theme_minimal() </syntaxhighlight>)
• 12:44, 12 August 2024 Brb talk contribs created page File:Nomogram.png
• 12:44, 12 August 2024 Brb talk contribs uploaded File:Nomogram.png
• 14:56, 15 July 2024 Brb talk contribs created page File:GfortranMac.png
• 14:56, 15 July 2024 Brb talk contribs uploaded File:GfortranMac.png
• 07:24, 22 June 2024 Brb talk contribs created page File:Verizonont.jpg
• 07:24, 22 June 2024 Brb talk contribs uploaded File:Verizonont.jpg
• 12:38, 14 June 2024 Brb talk contribs created page File:CredoError.png