zx8754

#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,

zx8754

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

# 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