diff --git a/.DS_Store b/.DS_Store
new file mode 100644
index 0000000..0c7009f
Binary files /dev/null and b/.DS_Store differ
diff --git a/R/plotDR.R b/R/plotDR.R
index 2e178ea..db0dbaa 100644
--- a/R/plotDR.R
+++ b/R/plotDR.R
@@ -329,8 +329,8 @@ pdataMDS_intl <- function(mdsdata, dims) {
   lambda <- pmax(mdsdata$eigen.values, 0)
   plotdf <- data.frame(
     "RestoolsMtchID" = rownames(mdsdata$distance.matrix.squared),
-    x = mdsdata$eigen.vectors[, dims[1]] * lambda[dims[1]],
-    y = mdsdata$eigen.vectors[, dims[2]] * lambda[dims[2]]
+    x = mdsdata$eigen.vectors[, dims[1]] * sqrt(lambda[dims[1]]),
+    y = mdsdata$eigen.vectors[, dims[2]] * sqrt(lambda[dims[2]])
   )
   pca_labs <- paste0("Leading logFC dim ", seq(ncol(mdsdata$eigen.vectors)))
   pca_labs <- paste0(pca_labs, " (", round(mdsdata$var.explained * 100, digits = 2), "%)")