Skip to content

Instantly share code, notes, and snippets.

View zx8754's full-sized avatar
🤦‍♂️
24/7

Tokhir Dadaev zx8754

🤦‍♂️
24/7
View GitHub Profile
# About -------------------------------------------------------------------
# 10/06/2021
#
# Reference: https://www.biostars.org/p/9474813/
#
# input: BIM filname
# Note: This script will overwrite the existing input bim file
#
# example run:
# Rscript makeSNPnamesUnique.R myBimFile.bim
@zx8754
zx8754 / mean_height_compare_ggplot.R
Created December 14, 2022 14:05
dutch - do not truncate axis
library(ggplot2)
# Countries
#https://worldpopulationreview.com/country-rankings/average-height-by-country
d <- read.table("d.txt", header = TRUE, sep = "\t")
d1 <- d[ d$cca3 %in% c("NLD", "GBR", "USA", "IND", "IDN"),
c("country", "meanHeightMale")]
# Tallest/Shortest person - Wikipedia
# Chandra Bahadur Dangi: 54.6 cm (21.5 in)
@zx8754
zx8754 / SO_77868111.R
Created January 24, 2024 09:51
SO_77868111
#https://stackoverflow.com/q/77868111/680068
library(kinship2)
d <- read.table(text="
FAMID,ID,MO,FA,SEX,AGE,BIRTH
F0001,C1,,,2,32,
,C2,,,1,34,
,C3,C1,C2,1,12,
F0002,C4,,,2,44,