Create environ_count.R