main.R

main functions rep