powered by
getPCselection(num = 1, xy = "x")
x <- getPCselection()
Run the code above in your browser using DataLab