welcome <- "Welcome to SIMER"
title <- "Data Simulation for Life Science and Breeding"
authors <- c("Designed and Maintained by Dong Yin, Xuanning Zhang,
Lilin Yin, Haohao Zhang, and Xiaolei Liu",
"Contributors: Zhenshuang Tang, Jingya Xu, Xinyun Li,
Mengjin Zhu, Xiaohui Yuan, Shuhong Zhao")
contact <- "Contact: xiaoleiliu@mail.hzau.edu.cn"
logo_s <- c(" ____ ___ __ __ _____ ____ ",
"/ ___|_ _| \\/ | ____| _ \\ ",
"\\___ \\| || |\\/| | _| | |_) |",
" ___) | || | | | |___| _ < ",
"|____/___|_| |_|_____|_| \\_\\")
print_info(welcome = welcome, title = title, logo = logo_s, authors = authors,
contact = contact, linechar = '=', width = 70)
Run the code above in your browser using DataLab