R Code

Author: L-Salander

.Rproj.user/DED8A758/build_options

@@ -0,0 +1,7 @@
+auto_roxygenize_for_build_and_reload="0"
+auto_roxygenize_for_build_package="1"
+auto_roxygenize_for_check="1"
+live_preview_website="0"
+makefile_args=""
+preview_website="1"
+website_output_format="all"

.Rproj.user/DED8A758/sources/prop/E8A88EF3

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "7,23",
+    "scrollLine": "0"
+}

.Rproj.user/DED8A758/sources/prop/INDEX

@@ -0,0 +1 @@
+C%3A%2FUsers%2FHP%2FDownloads%2FAssignment-AffinityAnswers%2FAssignment-AffinityAnswers.R="E8A88EF3"

.Rproj.user/DED8A758/sources/s-315DC4E1/67AE2135

@@ -0,0 +1,26 @@
+{
+    "id": "67AE2135",
+    "path": "C:/Users/HP/Downloads/Assignment-AffinityAnswers/Assignment-AffinityAnswers.R",
+    "project_path": "Assignment-AffinityAnswers.R",
+    "type": "r_source",
+    "hash": "3772126400",
+    "contents": "",
+    "dirty": false,
+    "created": 1676480702806.0,
+    "source_on_save": false,
+    "relative_order": 2,
+    "properties": {
+        "source_window_id": "",
+        "Source": "Source",
+        "cursorPosition": "7,23",
+        "scrollLine": "0"
+    },
+    "folds": "",
+    "lastKnownWriteTime": 1676481412,
+    "encoding": "UTF-8",
+    "collab_server": "",
+    "source_window": "",
+    "last_content_update": 1676481412087,
+    "read_only": false,
+    "read_only_alternatives": []
+}

.Rproj.user/DED8A758/sources/s-315DC4E1/67AE2135-contents

@@ -0,0 +1,21 @@
+# Read in the file of racial slurs
+slurs <- readLines("slurs.txt")
+
+# Read in the file of tweets
+tweets <- readLines("tweets.txt")
+
+# Loop through each tweet and calculate the degree of profanity
+for (tweet in tweets) {
+  # Split the tweet into individual words
+  words <- strsplit(tweet, "\\s")[[1]]
+  
+  # Count the number of racial slurs in the tweet
+  num_slurs <- sum(words %in% slurs)
+  
+  # Calculate the degree of profanity as a percentage of the total words
+  profanity <- num_slurs / length(words) * 100
+  
+  # Print the result
+  cat("Tweet:", tweet, "\n")
+  cat("Degree of Profanity:", round(profanity, 2), "%\n\n")
+}

.Rproj.user/DED8A758/sources/s-315DC4E1/CA421393-contents

@@ -0,0 +1,21 @@
+# Read in the file of racial slurs
+slurs <- readLines("slurs.txt")
+
+# Read in the file of tweets
+tweets <- readLines("tweets.txt")
+
+# Loop through each tweet and calculate the degree of profanity
+for (tweet in tweets) {
+  # Split the tweet into individual words
+  words <- strsplit(tweet, "\\s")[[1]]
+  
+  # Count the number of racial slurs in the tweet
+  num_slurs <- sum(words %in% slurs)
+  
+  # Calculate the degree of profanity as a percentage of the total words
+  profanity <- num_slurs / length(words) * 100
+  
+  # Print the result
+  cat("Tweet:", tweet, "\n")
+  cat("Degree of Profanity:", round(profanity, 2), "%\n\n")
+}