# data(CellCycleY) # Y
# data(CellCycleX) # X
# n <- nrow(CellCycleY); p <- ncol(CellCycleX); q <- ncol(CellCycleY)
# control <- secure.control(spU=160/p,spV=1)
# fit.cycle <- secure.path(CellCycleY, CellCycleX, nrank = 10, nlambda = 100,
# control = control)
Run the code above in your browser using DataLab