# \donttest{
library(scPOEM)
dirpath <- "./example_data"
# Download single mode example data
data(example_data_single)
# Construct PGN net via random forest (RF).
net_RF <- PGN_RF(example_data_single$X,
example_data_single$Y,
example_data_single$gene_data,
example_data_single$neibor_peak,
file.path(dirpath, "single"),
save_file=FALSE)
# }
Run the code above in your browser using DataLab