# \donttest{
# Simulate data for 500 genes and 2 replicates
sim <- Simulate_bakRData(500, nreps = 2)
# Fit data with fast implementation
Fit <- bakRFit(sim$bakRData)
# Fn PCA
FnPCA2(Fit, Model = "MLE")
# log(kdeg) PCA
FnPCA2(Fit, Model = "MLE", log_kdeg = TRUE)
# }
Run the code above in your browser using DataLab