Change Resolution (Retina) Apple Script

tell application "System Preferences"
    activate
    reveal pane id "com.apple.preference.displays"
end tell

tell application "System Events"
    click radio button "Display" of tab group 1 of window 1 of process "System Preferences"
    click radio button "Scaled" of tab group 1 of window 1 of process "System Preferences"

    --Best for Retina
    click button 3 of group 1 of tab group 1 of window 1 of process "System Preferences"

    --More Space
    --click button 5 of group 1 of tab group 1 of window 1 of process "System Preferences"

end tell

tell application "System Preferences"
    quit
end tell