joowkim

geom_boxplot(outlier.colour=NA ) 

joowkim

renamer 's@_R([12])\.fastq\.gz@-R$1.fastq.gz@' *.gz -v

joowkim

import sys
import openai
import json
import pandas as pd
from Bio import Entrez
from datetime import datetime
from PyQt6 import QtWidgets, QtGui
from PyQt6.QtCore import Qt

# Replace with your own ChatGPT API key

joowkim

func <- function(num) {
  result <- c()
  vec <- c("TT", "TT", "HT", "TH", "HH", "HH")
  # bst <- sample(vec, num, replace = T)
  
  
  for (i in 1:num) {
    coin <- sample(vec, 1)[1]
    if (startsWith(coin, "H")) {
      result <- c(result, coin)

joowkim

Dockerfile

FROM rocker/r-ver

RUN /rocker_scripts/install_tidyverse.sh
RUN /rocker_scripts/install_python.sh
RUN R --quiet -e 'BiocManager::install("preprocessCore")'
RUN R --quiet -e 'install.packages("pacman", repos="http://cran.us.r-project.org")'
RUN R --quiet -e 'pacman::p_install("methods")'
RUN R --quiet -e 'pacman::p_install("lattice")'

joowkim

rle <- function(vec) {
  n <- length(vec)
  return (round( (prod(vec) ^ (1/n))))
}


vec <- c(65,78,67,34,56,23)
rle(vec)

joowkim

joowkim

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "### I am going to make up the tech variable as a batch effect. For example, tech1 is measured by technician 1 and tech2 is measure by technician 2. And I am not interested in the effect of the tech variale, but would like to ignore or remove the effect of the tech variable. "
   ]
  },
  {

joowkim

library(naniar)
vis_miss(airquality)

reference 
https://cran.r-project.org/web/packages/naniar/vignettes/naniar-visualisation.html

joowkim

do not use the username\document\somethingpath
use the below path
.libPaths(.libPaths()[2])