CD dispersion sign

nano-optics · May 29, 2014 · 8fdba77 · 8fdba77
1 parent d5d9a1f
commit 8fdba77
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dispersion.r b/R/dispersion.r
@@ -86,7 +86,7 @@ dispersion_spectrum <- function (cluster, material, medium = 1.33,
 
     results$polarisation <- factor(results$polarisation, labels = c("R", "L"))
     results <- rbind(results,  data.frame(wavelength = wavelength, angles = angles, axes=axes,
-                                          value = c(res[, 4, , drop = TRUE]  - res[, 1, , drop = TRUE]),
+                                          value = c(res[, 1, , drop = TRUE]  - res[, 4, , drop = TRUE]),
                                           type = "extinction", polarisation = "CD"))
   }