R/test.R

test <- function(m){
  testfun <- 2*m
  return(testfun)
}

first <- function(m,C,min,max){
  msample <- sample(m,1)
  return(msample)
}
tannerschubert/4800project documentation built on May 29, 2019, 9:52 a.m.