From 67d8cf120ba7e8140449379d0153cef93795c813 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Thu, 14 Oct 2010 01:14:29 +0200 Subject: compare_hkl: Add Rinternal(I) --- src/compare_hkl.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'src/compare_hkl.c') diff --git a/src/compare_hkl.c b/src/compare_hkl.c index 959f1fed..ed8636fb 100644 --- a/src/compare_hkl.c +++ b/src/compare_hkl.c @@ -293,6 +293,7 @@ int main(int argc, char *argv[]) char *bfile = NULL; char *sym = NULL; double scale, scale_r2, scale_rdig, R1, R2, R1i, Rdiff, pearson; + double scale_rintint; int i, ncom; ReflItemList *i1, *i2, *icommon; int config_shells = 0; @@ -451,11 +452,16 @@ int main(int argc, char *argv[]) STATUS("R1(I) = %5.4f %% (scale=%5.2e)\n", R1i*100.0, scale); Rdiff = stat_rdiff_ignore(ref1, ref2_transformed, icommon, &scale_rdig); - STATUS("Rdiff(F) = %5.4f %% (scale=%5.2e) (ignoring negative intensities)\n", + STATUS("Rint(F) = %5.4f %% (scale=%5.2e) (ignoring negative intensities)\n", Rdiff*100.0, scale); Rdiff = stat_rdiff_zero(ref1, ref2_transformed, icommon, &scale); - STATUS("Rdiff(F) = %5.4f %% (scale=%5.2e) (zeroing negative intensities)\n", + STATUS("Rint(F) = %5.4f %% (scale=%5.2e) (zeroing negative intensities)\n", + Rdiff*100.0, scale); + + Rdiff = stat_rdiff_intensity(ref1, ref2_transformed, icommon, + &scale_rintint); + STATUS("Rint(I) = %5.4f %% (scale=%5.2e)\n", Rdiff*100.0, scale); pearson = stat_pearson_i(ref1, ref2_transformed, icommon); -- cgit v1.2.3