diff --git a/workflow/scripts/calcuateTPM.R b/workflow/scripts/calcuateTPM.R
index 945116510462a1b8777750abb829d537bbccdc47..3643073549a6a9b8de8f1dce1d4a95ead52fa223 100644
--- a/workflow/scripts/calcuateTPM.R
+++ b/workflow/scripts/calcuateTPM.R
@@ -1,6 +1,5 @@
 gc()
 library(optparse)
-library(edgeR)
 
 option_list=list(
   make_option("--count",action="store",type='character',help="Count File")
@@ -29,4 +28,4 @@ tpm <- rpk/scale
 output <- cbind(count,tpm)
 colnames(output)[7] <- "count"
 
-write.table(output,file=paste0(repRID,".countTable.csv"),sep=",",row.names=FALSE,quote=FALSE)
\ No newline at end of file
+write.table(output,file=paste0(repRID,".countTable.csv"),sep=",",row.names=FALSE,quote=FALSE)