diff --git a/R/myisvector.R b/R/myisvector.R
new file mode 100644
index 0000000..498e97b
--- /dev/null
+++ b/R/myisvector.R
@@ -0,0 +1,7 @@
+myisvector <- function(V) {
+  # Kuten isvector(V)
+
+  A <- size(V)
+  r <- (length(A) == 2) & (min(A) == 1)
+  return(r)
+}