myawesomepkg 0.1.3__py3-none-any.whl → 0.1.5__py3-none-any.whl

myawesomepkg/TSAPY1/10-A_Load_stringr.py

@@ -0,0 +1,77 @@
+✅ Step 1: Load stringr
+r
+Copy
+Edit
+library(stringr)
+🔹 1. String Basics
+r
+Copy
+Edit
+str <- "Hello Boss"
+str_length(str)         # Length of string
+str_to_upper(str)       # Uppercase
+str_to_lower(str)       # Lowercase
+str_trim("  Hello  ")   # Trim spaces
+🔹 2. Combining Strings
+r
+Copy
+Edit
+str1 <- "Hello"
+str2 <- "Boss"
+str_c(str1, str2, sep = " ")  # Combine with space
+🔹 3. Subsetting Strings
+r
+Copy
+Edit
+str_sub("DataScience", 1, 4)   # "Data"
+str_sub("DataScience", -7, -1) # "Science"
+🔹 4. Locales
+r
+Copy
+Edit
+str_to_upper("straße", locale = "de")  # German-specific case
+🔹 5. Basic Matches
+r
+Copy
+Edit
+str_detect("apple", "pp")   # TRUE
+str_detect("apple", "z")    # FALSE
+🔹 6. Anchors (^, $)
+r
+Copy
+Edit
+str_detect("Boss is here", "^Boss")   # TRUE
+str_detect("Boss is here", "here$")   # TRUE
+🔹 7. Repetition
+r
+Copy
+Edit
+str_view("banana", "na{2}")    # Match "n" followed by two "a"s
+str_view("aaa", "a{2,3}")      # Match 2 to 3 a's
+🔹 8. Detect Matches
+r
+Copy
+Edit
+texts <- c("cat", "dog", "cow")
+str_detect(texts, "c")   # TRUE FALSE TRUE
+🔹 9. Extract Matches
+r
+Copy
+Edit
+str_extract("Price: Rs 999", "\\d+")   # "999"
+🔹 10. Grouped Matches
+r
+Copy
+Edit
+str_match("ID: 12345", "ID: (\\d+)")   # Group match returns matrix
+🔹 11. Replacing Matches
+r
+Copy
+Edit
+str_replace("I love cats", "cats", "dogs")  # "I love dogs"
+🔹 12. Splitting
+r
+Copy
+Edit
+str_split("one,two,three", ",")[[1]]   # "one" "two" "three"
+Let me know if you want all these examples as a downloadable .R script or a reference

myawesomepkg/TSAPY1/10-B_Forcats.py

@@ -0,0 +1,70 @@
+✅ Step 1: Load forcats package
+r
+Copy
+Edit
+library(forcats)
+🔹 1. Creating Factors
+r
+Copy
+Edit
+grades <- c("B", "A", "C", "A", "B")
+f_grades <- factor(grades)
+f_grades
+With specified order:
+
+r
+Copy
+Edit
+f_grades <- factor(grades, levels = c("A", "B", "C"), ordered = TRUE)
+🔹 2. Modifying Factor Orders
+r
+Copy
+Edit
+# Reorder by frequency
+fct_infreq(f_grades)
+
+# Reorder manually
+fct_relevel(f_grades, "C", "B", "A")
+🔹 3. Modifying Factor Levels (Renaming)
+r
+Copy
+Edit
+fct_recode(f_grades,
+           "Excellent" = "A",
+           "Good" = "B",
+           "Average" = "C")
+🔹 4. Lump Less Frequent Levels
+r
+Copy
+Edit
+items <- c("apple", "banana", "apple", "cherry", "banana", "fig", "fig", "fig")
+f_items <- factor(items)
+
+# Combine less frequent into "Other"
+fct_lump(f_items, n = 2)
+🔹 5. Drop Unused Levels
+r
+Copy
+Edit
+f <- factor(c("high", "medium", "low"), levels = c("low", "medium", "high", "extreme"))
+f_dropped <- fct_drop(f)
+🔹 6. Reverse Factor Order
+r
+Copy
+Edit
+fct_rev(f_grades)
+🔹 7. Count Factors
+r
+Copy
+Edit
+fct_count(f_grades)
+📌 Summary of Key forcats Functions
+
+Function	Use Case
+fct_relevel()	Change order of levels manually
+fct_infreq()	Order by frequency
+fct_recode()	Rename factor levels
+fct_lump()	Combine low-freq levels
+fct_drop()	Drop unused levels
+fct_rev()	Reverse order
+fct_count()	Count frequencies

myawesomepkg/TSAPY1/9A_Dplyr.py

@@ -0,0 +1,85 @@
+✅ Step 1: Load dplyr
+r
+Copy
+Edit
+library(dplyr)
+🔹 Sample Data
+r
+Copy
+Edit
+employees <- data.frame(
+  emp_id = c(1, 2, 3, 4, 5),
+  name = c("John", "Emma", "Raj", "Sara", "Mike"),
+  dept_id = c(10, 20, 10, 30, 20)
+)
+
+departments <- data.frame(
+  dept_id = c(10, 20, 30),
+  dept_name = c("HR", "Finance", "IT")
+)
+🔹 1. Filtering Rows
+r
+Copy
+Edit
+# Filter employees from dept 10
+employees %>% 
+  filter(dept_id == 10)
+🔹 2. Mutating Joins (left_join)
+r
+Copy
+Edit
+# Add department name to employees
+employees %>%
+  left_join(departments, by = "dept_id")
+🔹 3. Inner Join
+r
+Copy
+Edit
+# Only matching employees with department info
+employees %>%
+  inner_join(departments, by = "dept_id")
+🔹 4. Handling Duplicate Keys
+r
+Copy
+Edit
+# Add a duplicate dept row
+departments2 <- rbind(departments, data.frame(dept_id = 10, dept_name = "HR-Duplicate"))
+
+# Join - will create multiple rows for duplicate keys
+employees %>%
+  left_join(departments2, by = "dept_id")
+🔹 5. Defining Key Column (custom join keys)
+r
+Copy
+Edit
+emp <- data.frame(id = c(1, 2), val = c("A", "B"))
+ref <- data.frame(key = c(1, 2), desc = c("X", "Y"))
+
+emp %>% 
+  left_join(ref, by = c("id" = "key"))
+🔹 6. Filtering Joins
+r
+Copy
+Edit
+# Semi Join: Keep rows in employees that match departments
+employees %>% 
+  semi_join(departments, by = "dept_id")
+
+# Anti Join: Keep rows in employees that don't match departments
+employees %>% 
+  anti_join(departments, by = "dept_id")
+🔹 7. Set Operations
+r
+Copy
+Edit
+a <- data.frame(x = c(1, 2, 3))
+b <- data.frame(x = c(2, 3, 4))
+
+# Union (unique values)
+union(a, b)
+
+# Intersect (common values)
+intersect(a, b)
+
+# Set difference (in a but not in b)
+setdiff(a, b)

myawesomepkg/TSAPY1/9B_Tidyr.py

@@ -0,0 +1,71 @@
+✅ Step 1: Load tidyr and dplyr
+r
+Copy
+Edit
+library(tidyr)
+library(dplyr)
+🔹 Sample Data
+r
+Copy
+Edit
+data <- data.frame(
+  name = c("Alice", "Bob"),
+  math = c(90, 85),
+  science = c(95, 80)
+)
+🔹 1. Gathering → pivot_longer()
+r
+Copy
+Edit
+data_long <- data %>%
+  pivot_longer(cols = c(math, science), names_to = "subject", values_to = "score")
+
+print(data_long)
+🔹 2. Spreading → pivot_wider()
+r
+Copy
+Edit
+data_wide <- data_long %>%
+  pivot_wider(names_from = subject, values_from = score)
+
+print(data_wide)
+🔹 3. Separate Columns
+r
+Copy
+Edit
+full_name <- data.frame(name = c("Alice_Smith", "Bob_Jones"))
+
+# Separate name into first and last
+full_name_sep <- full_name %>%
+  separate(name, into = c("first_name", "last_name"), sep = "_")
+
+print(full_name_sep)
+🔹 4. Unite Columns
+r
+Copy
+Edit
+# Combine first_name and last_name
+full_name_united <- full_name_sep %>%
+  unite("full_name", first_name, last_name, sep = " ")
+
+print(full_name_united)
+🔹 5. Handling Missing Values
+r
+Copy
+Edit
+missing_data <- data.frame(
+  name = c("A", "B", "C"),
+  score = c(85, NA, 90)
+)
+
+# Remove rows with NA
+missing_data_clean <- missing_data %>%
+  drop_na()
+
+# Replace NA with value
+missing_data_filled <- missing_data %>%
+  replace_na(list(score = 0))
+
+print(missing_data_clean)
+print(missing_data_filled)
+Let m

myawesomepkg/TSAPY1/Print_R.py

@@ -0,0 +1,123 @@
+ 1. Print in R
+r
+Copy
+Edit
+print("Hello Boss!")
+🔹 2. Comments in R
+r
+Copy
+Edit
+# This is a single-line comment
+🔹 3. Variables in R
+r
+Copy
+Edit
+x <- 10
+y <- "Data"
+🔹 4. Concatenate Elements
+r
+Copy
+Edit
+v <- c(1, 2, 3, 4)
+print(v)
+🔹 5. Multiple Variables
+r
+Copy
+Edit
+a <- 5
+b <- 10
+c <- a + b
+print(c)
+🔹 6. Variable Names
+r
+Copy
+Edit
+user_name <- "Boss"
+user_age <- 25
+🔹 7. Data Types
+r
+Copy
+Edit
+num <- 10.5        # Numeric
+str <- "Hello"     # Character
+bool <- TRUE       # Logical
+vec <- c(1, 2, 3)  # Vector
+🔹 8. Strings
+r
+Copy
+Edit
+name <- "R Programming"
+paste("Welcome to", name)
+🔹 9. Boolean
+r
+Copy
+Edit
+is_true <- TRUE
+is_false <- FALSE
+🔹 10. Operators
+r
+Copy
+Edit
+a <- 10
+b <- 3
+a + b   # Addition
+a > b   # Comparison
+a == b  # Equal
+a %% b  # Modulus
+🔹 11. If Else
+r
+Copy
+Edit
+x <- 10
+if (x > 5) {
+  print("Greater than 5")
+} else {
+  print("5 or less")
+}
+🔹 12. List
+r
+Copy
+Edit
+my_list <- list(name="Boss", age=25, scores=c(90, 85))
+print(my_list)
+🔹 13. Matrices
+r
+Copy
+Edit
+matrix_data <- matrix(1:6, nrow=2, ncol=3)
+print(matrix_data)
+🔹 14. Data Frames
+r
+Copy
+Edit
+df <- data.frame(Name=c("A", "B"), Age=c(20, 25))
+print(df)
+🔹 15. Functions
+r
+Copy
+Edit
+add_numbers <- function(x, y) {
+  return(x + y)
+}
+🔹 16. Call a Function
+r
+Copy
+Edit
+result <- add_numbers(5, 3)
+print(result)
+🔹 17. Global Variable
+r
+Copy
+Edit
+x <- 5
+my_func <- function() {
+  x <<- 10  # Modify global x
+}
+my_func()
+print(x)
+🔹 18. Vectors
+r
+Copy
+Edit
+my_vector <- c(1, 2, 3, 4, 5)
+print(my_vector)

myawesomepkg/TSAPY1/R_Graph.py

@@ -0,0 +1,32 @@
+ 1. Line Plot
+r
+Copy
+Edit
+x <- c(1, 2, 3, 4, 5)
+y <- c(2, 4, 6, 8, 10)
+
+plot(x, y, type="l", col="blue", main="Line Plot", xlab="X-axis", ylab="Y-axis")
+🔹 2. Scatter Plot
+r
+Copy
+Edit
+x <- c(1, 2, 3, 4, 5)
+y <- c(5, 3, 6, 2, 7)
+
+plot(x, y, main="Scatter Plot", xlab="X", ylab="Y", col="red", pch=19)
+🔹 3. Pie Chart
+r
+Copy
+Edit
+slices <- c(10, 20, 30, 40)
+labels <- c("A", "B", "C", "D")
+
+pie(slices, labels=labels, main="Pie Chart")
+🔹 4. Bar Chart
+r
+Copy
+Edit
+values <- c(5, 10, 15, 20)
+names <- c("A", "B", "C", "D")
+
+barplot(values, names.arg=names, col="green", main="Bar Chart", ylab="Values")

myawesomepkg/TSAPY1/Working_Ggplot.py

@@ -0,0 +1,53 @@
+✅ Step 1: Install & Load ggplot2
+r
+Copy
+Edit
+install.packages("ggplot2")  # Run once
+library(ggplot2)
+✅ Step 2: Sample Data
+r
+Copy
+Edit
+data <- data.frame(
+  category = rep(c("A", "B", "C"), each=4),
+  subcat = rep(c("X", "Y"), times=6),
+  value = c(4, 7, 6, 9, 5, 3, 8, 4, 7, 5, 6, 2)
+)
+✅ Step 3: Basic ggplot
+r
+Copy
+Edit
+ggplot(data, aes(x=subcat, y=value)) +
+  geom_bar(stat="identity", fill="steelblue") +
+  ggtitle("Basic Bar Chart")
+✅ Step 4: Facets
+r
+Copy
+Edit
+ggplot(data, aes(x=subcat, y=value)) +
+  geom_bar(stat="identity", fill="tomato") +
+  facet_wrap(~ category) +
+  ggtitle("Faceted by Category")
+✅ Step 5: Geometric Objects
+r
+Copy
+Edit
+ggplot(data, aes(x=subcat, y=value, fill=category)) +
+  geom_bar(stat="identity", position="dodge") +   # Bar chart
+  geom_point(aes(color=category), size=3, shape=21) +  # Add points
+  ggtitle("Geometric Objects: Bars + Points")
+✅ Step 6: Position Adjustment
+r
+Copy
+Edit
+ggplot(data, aes(x=subcat, y=value, fill=category)) +
+  geom_bar(stat="identity", position=position_dodge(width=0.7)) +
+  ggtitle("Position: Dodge for Side-by-Side Bars")
+✅ Step 7: Coordinate System (Flip Axis)
+r
+Copy
+Edit
+ggplot(data, aes(x=subcat, y=value, fill=category)) +
+  geom_bar(stat="identity") +
+  coord_flip() +
+  ggtitle("Flipped Coordinates")

myawesomepkg/TSAPY1/practical_no_3.py

@@ -0,0 +1,167 @@
+# -*- coding: utf-8 -*-
+"""Practical No 3.ipynb
+
+Automatically generated by Colab.
+
+Original file is located at
+    https://colab.research.google.com/drive/1aCeoKiFV3QbdraoAWb562bOjZDdBw0be
+
+## **Practical No 3:**
+# Aim: Detrending, deseasonalizing timeseries, detecting Cyclic variations and decomposing Time Series.
+
+## Trend
+"""
+
+# Commented out IPython magic to ensure Python compatibility.
+import pandas as pd
+# %matplotlib inline
+from statsmodels.tsa.filters.hp_filter import hpfilter
+df = pd.read_excel(r'/content/drive/MyDrive/MScDS TSA/India_Exchange_Rate_Dataset.xls',index_col=0,parse_dates=True)
+EXINUS_cycle,EXINUS_trend = hpfilter(df['EXINUS'], lamb=1600)
+EXINUS_trend.plot(figsize=(15,6)).autoscale(axis='x',tight=True)
+
+"""**Detrending using Differencing**"""
+
+# Commented out IPython magic to ensure Python compatibility.
+import pandas as pd
+import matplotlib.pyplot as plt
+import warnings
+warnings.filterwarnings("ignore")
+# %matplotlib inline
+df = pd.read_excel(r'/content/drive/MyDrive/MScDS TSA/India_Exchange_Rate_Dataset.xls',index_col=0,parse_dates=True)
+diff = df.EXINUS.diff()
+plt.figure(figsize=(15,6))
+plt.plot(diff)
+plt.title('Detrending using Differencing', fontsize=16)
+plt.xlabel('Year')
+plt.ylabel('EXINUS exchange rate')
+plt.show()
+
+"""** **bold text**Detrending using Scipy Signal**"""
+
+# Commented out IPython magic to ensure Python compatibility.
+import pandas as pd
+import matplotlib.pyplot as plt
+from scipy import signal
+import warnings
+warnings.filterwarnings("ignore")
+# %matplotlib inline
+df = pd.read_excel(r'/content/drive/MyDrive/MScDS TSA/India_Exchange_Rate_Dataset.xls',index_col=0,parse_dates=True)
+detrended = signal.detrend(df.EXINUS.values)
+plt.figure(figsize=(15,6))
+plt.plot(detrended)
+plt.xlabel('EXINUS')
+plt.ylabel('Frequency')
+plt.title('Detrending using Scipy Signal', fontsize=16)
+plt.show()
+
+"""**Detrending using HP Filter**"""
+
+# Commented out IPython magic to ensure Python compatibility.
+import pandas as pd
+import matplotlib.pyplot as plt
+from statsmodels.tsa.filters.hp_filter import hpfilter
+import warnings
+warnings.filterwarnings("ignore")
+# %matplotlib inline
+df = pd.read_excel(r'/content/drive/MyDrive/MScDS TSA/India_Exchange_Rate_Dataset.xls',index_col=0,parse_dates=True)
+EXINUS_cycle,EXINUS_trend = hpfilter(df['EXINUS'], lamb=1600)
+df['trend'] = EXINUS_trend
+detrended = df.EXINUS - df['trend']
+plt.figure(figsize=(15,6))
+plt.plot(detrended)
+plt.title('Detrending using HP Filter', fontsize=16)
+plt.xlabel('Year')
+plt.ylabel('EXINUS exchange rate')
+plt.show()
+
+"""## Seasonality
+
+Methods can be used to detect seasonality:
+a. Multiple box plots
+b. Autocorrelation plots
+
+A. **Multi Month-wise Box Plot**
+"""
+
+# Commented out IPython magic to ensure Python compatibility.
+import pandas as pd
+import seaborn as sns
+import matplotlib.pyplot as plt
+from statsmodels.tsa.filters.hp_filter import hpfilter
+import warnings
+warnings.filterwarnings("ignore")
+# %matplotlib inline
+df = pd.read_excel(r'/content/drive/MyDrive/MScDS TSA/India_Exchange_Rate_Dataset.xls',parse_dates=True)
+df['month'] = df['observation_date'].dt.strftime('%b')
+df['year'] = [d.year for d in df.observation_date]
+df['month'] = [d.strftime('%b') for d in df.observation_date]
+years = df['year'].unique()
+plt.figure(figsize=(15,6))
+sns.boxplot(x='month', y='EXINUS', data=df).set_title("Multi Month-wise Box Plot")
+plt.show()
+
+"""B. **Autocorrelation plot for seasonality**"""
+
+# Commented out IPython magic to ensure Python compatibility.
+from pandas.plotting import autocorrelation_plot
+import pandas as pd
+import matplotlib.pyplot as plt
+# %matplotlib inline
+df = pd.read_excel(r'/content/drive/MyDrive/MScDS TSA/India_Exchange_Rate_Dataset.xls',index_col=0,parse_dates=True)
+#plt.rcParams.update({'figure.figsize':(15,6), 'figure.dpi':220})
+autocorrelation_plot(df.EXINUS.tolist())
+
+"""**Deseasoning Time series**"""
+
+# Commented out IPython magic to ensure Python compatibility.
+import pandas as pd
+import matplotlib.pyplot as plt
+from statsmodels.tsa.seasonal import seasonal_decompose
+import warnings
+warnings.filterwarnings("ignore")
+# %matplotlib inline
+df = pd.read_excel(r'/content/drive/MyDrive/MScDS TSA/India_Exchange_Rate_Dataset.xls',index_col=0,parse_dates=True)
+result_mul = seasonal_decompose(df['EXINUS'], model='multiplicative', extrapolate_trend='freq')
+deseason = df['EXINUS'] - result_mul.seasonal
+plt.figure(figsize=(15,6))
+plt.plot(deseason)
+plt.title('Deseasoning using seasonal_decompose', fontsize=16)
+plt.xlabel('Year')
+plt.ylabel('EXINUS exchange rate')
+plt.show()
+
+"""**Detecting cyclical variation**"""
+
+# Commented out IPython magic to ensure Python compatibility.
+from statsmodels.tsa.filters.hp_filter import hpfilter
+import pandas as pd
+import matplotlib.pyplot as plt
+import warnings
+warnings.filterwarnings("ignore")
+# %matplotlib inline
+df = pd.read_excel(r'/content/drive/MyDrive/MScDS TSA/India_Exchange_Rate_Dataset.xls',index_col=0,parse_dates=True)
+EXINUS_cycle,EXINUS_trend = hpfilter(df['EXINUS'], lamb=1600)
+df['cycle'] =EXINUS_cycle
+df['trend'] =EXINUS_trend
+df[['cycle']].plot(figsize=(15,6)).autoscale(axis='x',tight=True)
+plt.title('Extracting Cyclic Variations', fontsize=16)
+plt.xlabel('Year')
+plt.ylabel('EXINUS exchange rate')
+plt.show()
+
+"""**Decompose Time series**"""
+
+# Commented out IPython magic to ensure Python compatibility.
+from statsmodels.tsa.seasonal import seasonal_decompose
+import pandas as pd
+import matplotlib.pyplot as plt
+import warnings
+warnings.filterwarnings("ignore")
+# %matplotlib inline
+df = pd.read_excel(r'/content/drive/MyDrive/MScDS TSA/India_Exchange_Rate_Dataset.xls',
+index_col=0,parse_dates=True)
+result = seasonal_decompose(df['EXINUS'], model='add')
+result.plot();
+result = seasonal_decompose(df['EXINUS'], model='mul')
+result.plot();