想将一段R语言代码改成stata代码
其中先定义一个程序   tmmod1<-function(dat, n) {
    .....程序代码
}
boot.tmmod1=tmmod1.Boot(jobs,100)  调用程序100次

请问各位大神在stata中如何实现？