From a7e2049007bf419c7d89ef6d16b10b064e3f025e Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Mon, 13 Jul 2020 15:05:18 +0200
Subject: [PATCH] Translated palautaYks

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

diff --git a/R/palautaYks.R b/R/palautaYks.R
new file mode 100644
index 0000000..e64cde7
--- /dev/null
+++ b/R/palautaYks.R
@@ -0,0 +1,17 @@
+palautaYks <- function(num, yks) {
+	# palauttaa luvun num 10^yks termin kertoimen
+	# string:in?
+	# yks t�ytyy olla kokonaisluku, joka on
+	# v�hint��n -1:n suuruinen. Pienemmill?
+	# luvuilla tapahtuu jokin py�ristysvirhe.
+
+	if (yks >= 0) {
+		digit <- num %% 10 ^ (yks + 1)
+		digit <- floor(digit / (10 ^ yks))
+	} else {
+		digit <- num * 10
+		digit <- floor(digit %% 10)
+	}
+	digit <- as.character(digit)
+	return(digit)
+}
\ No newline at end of file