R showSmp