# NOT RUN {
# Set input file
infile <- system.file("extdata", "Modules", "IGP.csv",
package = "PressPurt")
# Preprocess the matrix
PreProsMatrix <- PreprocessMatrix(input_file = infile,
output_folder = NULL, max_bound = 10, threads = 2)
# Run ComputeEntryWisePerturbationExpectation
Entrywise <- ComputeEntryWisePerturbationExpectation(PreProsMatrix = PreProsMatrix,
distribution_type = "truncnorm",
input_a = 0, input_b = -2, threads = 1)
# }
Run the code above in your browser using DataLab