data('mycerIds10', package='INSPEcT')
ratePvals(mycerIds10)
# calculate agin the p-values with Brown with a different threshold
# for considering a model valid for the log likelihood ratio test
ratePvals(mycerIds10, cTsh=.2)
# Set permaenently the chi-squared threshold at .2 for mycerIds10 object
thresholds(mycerIds10)$chisquare <- .2
Run the code above in your browser using DataLab