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