Create Orthodont2.R