Create ex_checkInternet.R