R script to simulate one generation of inbreeding

Script simulates selfing, and creation of full-sibling, half-sibling, and first cousins in proportions ranging from 0 to 100%. Input files are microsatellite data only, with alleles separated into separate columns (i.e. 10 loci are presented in 20 columns, with no headers or other columns)