R version 4.5.0 RC (2025-04-04 r88112 ucrt) -- "How About a Twenty-Six"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # utility-test.ssc
> library(PreProcess)
Loading required package: oompaBase
> 
> # matrix reorganization
> mat <- matrix(1:15, 5, 3)
> mat
     [,1] [,2] [,3]
[1,]    1    6   11
[2,]    2    7   12
[3,]    3    8   13
[4,]    4    9   14
[5,]    5   10   15
> flipud(mat)
     [,1] [,2] [,3]
[1,]    5   10   15
[2,]    4    9   14
[3,]    3    8   13
[4,]    2    7   12
[5,]    1    6   11
> fliplr(mat)
     [,1] [,2] [,3]
[1,]   11    6    1
[2,]   12    7    2
[3,]   13    8    3
[4,]   14    9    4
[5,]   15   10    5
> 
> suppressWarnings( RNGversion("3.5.3") )
> set.seed(473824)
> # concordance
> x <- rnorm(1000, 1, 2)
> y <- rnorm(1000, 1, 2)
> f.above.thresh(x, 0)
[1] 0.721
> f.above.thresh(y, 0)
[1] 0.693
> f.cord(x, y)
[1] -0.007403479
> z <- scale(x)
> f.cord(x, z)
          [,1]
[1,] 0.6401066
> 
> #plotting ellipses
> plot(x,y)
> ellipse(1, 1, type='l', lwd=2)
> ellipse(3, 2, type='l', lwd=2, col='blue')
> 
> # other weird stuff
> f.qq(x, main='Demo', col='blue')
> f.qq(x, cut=3)
> f.qt(x, df = 3)
> f.qt(x, df = 40)
> 
> # cleanup utility test
> rm(x, y, mat, z)
> 
> 
> proc.time()
   user  system elapsed 
   0.35    0.06    0.42