Create bestchar.R

Source code in R