diff --git a/web/1_a b/web/1_a
new file mode 100644
index 0000000000000000000000000000000000000000..d5c3bf3cbcd174d871e8ef5d47141b93bbd95da4
--- /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 0000000000000000000000000000000000000000..bc31c6ada3eeba15a543875dbab1be21dd52a455
--- /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 0000000000000000000000000000000000000000..17e0229808d2effd30d3c8e102315f115fe59f50
--- /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 0000000000000000000000000000000000000000..4ef0711463f9167f783e2c2cf08a62b67a9cf8e9
--- /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 0000000000000000000000000000000000000000..28e54eb1b40760273c81914babc3ebb7c2940c74
--- /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