diff --git a/R/createES.R b/R/createES.R
index 1a323f86c83ff10040d4011f7a91cc7aae9923e4..a9587dae6118ba2bb65d8e74e4982652c82cc5f2 100644
--- a/R/createES.R
+++ b/R/createES.R
@@ -1,7 +1,7 @@
 createES <- function(data, pData, labelDescription, colNames, rowNames) {
   exprs <- data
   colnames(exprs) <- colNames
-  truePData <- t(pData)
+  truePData <- pData
   pd <- data.frame(truePData, row.names = colNames)
   names(pd) <- labelDescription
   require(Biobase)
diff --git a/R/pcaPlot.R b/R/pcaPlot.R
index 13802f7dcd5b6fb4a3b687f8c534968aafdc277c..ff5c38762baaea6bc93bc3532afa00eb9e5c5d41 100644
--- a/R/pcaPlot.R
+++ b/R/pcaPlot.R
@@ -26,6 +26,7 @@ pcaPlot <- function(es, columns, c1, c2, size="", colour="") {
     aes <- aes(x=eval(parse(text=xs[c1])),
                y=eval(parse(text=xs[c2])), colour=c)
   } else if (size != "" && colour == "") {
+    class(pData[[size]]) <- "numeric"
     s <- pData[[size]];
     aes <- aes(x=eval(parse(text=xs[c1])),
         y=eval(parse(text=xs[c2])), size=s)