From b6afea85e18e648e1fbcebc15b5c0f11dc9d9dc1 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Thu, 22 Dec 2022 14:47:56 +0100
Subject: [PATCH] Translated myisvector()

---
 R/myisvector.R | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 R/myisvector.R

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)
+}