diff --git a/R/second.R b/R/second.R
deleted file mode 100644
index 5e6db4b..0000000
--- a/R/second.R
+++ /dev/null
@@ -1,6 +0,0 @@
-second <-
-function(x){
-    x=x$mat
-    res=x[x$rank==2,]
-    res[,-which(colnames(res)=="rank")]
-  }