.First <- function() {
  set.seed(100)
}
