# NOT RUN {
new = sample(-7:6, replace = TRUE, size = 1000)
#MonteCarlo taking random sample from the input sequence itself
# }
# NOT RUN {
karlinMonteCarlo(local_score = 66, sequence_length = 1000,
FUN = function(x, simulated_sequence_length) {return(sample(x = x,
size = simulated_sequence_length, replace = TRUE))},
x=new, simulated_sequence_length = 1000, numSim = 1000)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace