R/h.R

Defines functions h

h <- function(s,n,filename) {
  hn=list('#','##','###','####','#####','######')
  writeRmd(paste(hn[[n]],s),filename)
}
GaoLabXDU/CEPICS documentation built on June 9, 2020, 2:31 a.m.