From c756428e623296c1abddd6e49971ff835de06605 Mon Sep 17 00:00:00 2001
From: Laurent Modolo <laurent.modolo@ens-lyon.fr>
Date: Thu, 10 Oct 2019 11:48:09 +0200
Subject: [PATCH] web: add session1 web material
---
web/1_a | 10 ++++++++++
web/1_b | 6 ++++++
web/1_c | 10 ++++++++++
web/1_d | 10 ++++++++++
web/1_e | 3 +++
5 files changed, 39 insertions(+)
create mode 100644 web/1_a
create mode 100644 web/1_b
create mode 100644 web/1_c
create mode 100644 web/1_d
create mode 100644 web/1_e
diff --git a/web/1_a b/web/1_a
new file mode 100644
index 0000000..d5c3bf3
--- /dev/null
+++ b/web/1_a
@@ -0,0 +1,10 @@
+Which of the following are valid R variable names?
+
+min_height
+max.height
+_age
+.mass
+MaxLength
+min-length
+2widths
+celsius2kelvin
diff --git a/web/1_b b/web/1_b
new file mode 100644
index 0000000..bc31c6a
--- /dev/null
+++ b/web/1_b
@@ -0,0 +1,6 @@
+base_test <- function(x, base){
+ log_result <- logarithm(x, base=base)
+ exp_result <- base^log_result
+ test_result <- x == exp_result
+ return(test_result)
+}
\ No newline at end of file
diff --git a/web/1_c b/web/1_c
new file mode 100644
index 0000000..17e0229
--- /dev/null
+++ b/web/1_c
@@ -0,0 +1,10 @@
+base_test <- function(x, base){
+ print(x)
+ log_result <- logarithm(x, base=base)
+ print(log_result)
+ exp_result <- base^log_result
+ print(exp_result)
+ print(x)
+ test_result <- x == exp_result
+ return(test_result)
+}
\ No newline at end of file
diff --git a/web/1_d b/web/1_d
new file mode 100644
index 0000000..4ef0711
--- /dev/null
+++ b/web/1_d
@@ -0,0 +1,10 @@
+base_test <- function(x, base){
+ print(x)
+ log_result <- logarithm(x, base=base)
+ print(log_result)
+ exp_result <- base^log_result
+ print(exp_result)
+ print(x)
+ test_result <- isTRUE(all.equal(x, exp_result))
+ return(test_result)
+}
\ No newline at end of file
diff --git a/web/1_e b/web/1_e
new file mode 100644
index 0000000..28e54eb
--- /dev/null
+++ b/web/1_e
@@ -0,0 +1,3 @@
+base_test <- function(x, base){
+ return(isTRUE(all.equal(x, base^logarithm(x, base=base))))
+}
\ No newline at end of file
--
GitLab