Nothing
library(sped)
ped <- read.table("ped.txt", header = TRUE, stringsAsFactors = FALSE)
ped <- as.matrix(ped)
ped
ped[5, 2:3] <- rev(ped[5, 2:3])
ped
gen <- c(goofy = 1)
# should give error
try(descent("spot", ped, gen, check.sex = TRUE))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.