diff --git a/hardwareTesting/consumeResources.R b/hardwareTesting/consumeResources.R
new file mode 100644
index 0000000..9c378be
--- /dev/null
+++ b/hardwareTesting/consumeResources.R
@@ -0,0 +1,10 @@
+#Create dataframe
+df <- data.frame(
+    x = c(1:1000000),
+    y = c(1:1000000)
+)
+
+for (i in c(1:500)) {
+    print(i)
+    fit <- lm(x ~ y, df)
+}