1. tell application "System Preferences"
  2.     activate
  3.     reveal pane id "com.apple.preference.displays"
  4. end tell
  5.  
  6. tell application "System Events"
  7.     click radio button "Display" of tab group 1 of window 1 of process "System Preferences"
  8.     click radio button "Scaled" of tab group 1 of window 1 of process "System Preferences"
  9.    
  10.     --Best for Retina
  11.     click button 3 of group 1 of tab group 1 of window 1 of process "System Preferences"
  12.    
  13.     --More Space
  14.     --click button 5 of group 1 of tab group 1 of window 1 of process "System Preferences"
  15.    
  16. end tell
  17.  
  18. tell application "System Preferences"
  19.     quit
  20. end tell