data(blosum50)
##Change the normal distance parameters
default.MetricParams <- new("MetricParams", smatrix=blosum50, gapOpen=-10, gapExtension=-0.2)
##Now calls to dist on sequences will use blosum 50 instead
Run the code above in your browser using DataLab