This is just a test

Load R functions

1
2

source("zlutil.R")
source("PCAone.R")