fix bug

Russel88 · Feb 5, 2020 · ceedc85 · ceedc85
1 parent 9a92526
commit ceedc85
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/rcurve.R b/R/rcurve.R
@@ -37,6 +37,7 @@ rcurve <- function(physeq, subsamp = 10^c(1:5), trim = TRUE, add_sample_data = T
     # To a data.frame
     df <- as.data.frame.table(mat_new)
     colnames(df) <- c("Sample", "Reads", "Richness")
+    df$Reads <- as.numeric(as.character(df$Reads))
 
     if(trim){
         df <- na.omit(df)