In [1]:
testdaata<-c(1,2,3,4,5)
In [2]:
summary(testdaata)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
      1       2       3       3       4       5
In [3]:
plot(testdaata,testdaata)
In [ ]: