Test upload Rpubs

Test arrays number

  arr <- sample(1:100,100,replace=T)
  print(arr)

##   [1]  92  32  10   8  66  52  86  18   2  58  81  36  77  92  28  24  55  78
##  [19]  48  23  24   6  21  97  57  93  96  82  22  49  78  13   2  80  22  60
##  [37]   7  52  37  43  20  48   1  86  54  15  67  36  85  54  30  56  84  55
##  [55]  66  23  39  85   9  66  32  25  29  82  77  62  94  28  17  94   8  80
##  [73]  99  24  10   3  27  71  80  31  39  23  24  40  65  46  80  39 100  98
##  [91]  21  41 100  84  74  69  22  97  80  84

  plot(arr)

  plot( sort(arr,decreasing = TRUE))

  ## SORT
  
  summary(arr)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.00   24.00   50.50   50.85   80.00  100.00

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

Test arrays String

arrString <- c("Color","Width","Height","MAx","Absolute","Relative")
print(arrString)

## [1] "Color"    "Width"    "Height"   "MAx"      "Absolute" "Relative"

##plot(arr)
## SORT
sort(arrString,decreasing = TRUE)

## [1] "Width"    "Relative" "MAx"      "Height"   "Color"    "Absolute"

##summary(arr)