Update quickPCR.R

On lines 60 and 66, "length(temp)" was returning number of columns, when it should have been pulling the number of rows in "temp". Code has been updated to "length(temp[,CT_num])" in both places. The bug would not have an effect on any resulting output files.

R/quickPCR.R

@@ -57,13 +57,13 @@ quickProcess<-function(data_df,normalizer_char, sampleName_num, targetGene_num,
     #store individual CTs based off of how many technical replicates the user ran - assumes the same CTs run for all samples
     CT1_vec<-c(CT1_vec, temp[1,CT_num])
 
-    if(length(temp)>1){
+    if(length(temp[,CT_num])>1){
       CT2_vec<-c(CT2_vec, temp[2,CT_num])
     } else{
       CT2_vec<-c(CT2_vec, NA)
     }
 
-    if(length(temp)>2){
+    if(length(temp[,CT_num])>2){
       CT3_vec<-c(CT3_vec, temp[3,CT_num])
     } else{
       CT3_vec<-c(CT3_vec, NA)