added

Author: jsdhami

.RData

@@ -0,0 +1,5 @@
+{
+    "debugBreakpointsState": {
+        "breakpoints": []
+    }
+}

.Rhistory

@@ -0,0 +1,9 @@
+{
+    "sortOrder": [
+        {
+            "columnIndex": 2,
+            "ascending": true
+        }
+    ],
+    "path": "D:/R/Code"
+}

.Rproj.user/640EDE58/pcs/debug-breakpoints.pper

@@ -0,0 +1,7 @@
+{
+    "installOptions": {
+        "installFromRepository": true,
+        "libraryPath": "C:/Users/WT/AppData/Local/R/win-library/4.4",
+        "installDependencies": true
+    }
+}

.Rproj.user/640EDE58/pcs/files-pane.pper

@@ -0,0 +1,3 @@
+{
+    "activeTab": -1
+}

.Rproj.user/640EDE58/pcs/packages-pane.pper

@@ -0,0 +1,14 @@
+{
+    "left": {
+        "splitterpos": 389,
+        "topwindowstate": "HIDE",
+        "panelheight": 633,
+        "windowheight": 671
+    },
+    "right": {
+        "splitterpos": 340,
+        "topwindowstate": "NORMAL",
+        "panelheight": 633,
+        "windowheight": 671
+    }
+}

.Rproj.user/640EDE58/pcs/source-pane.pper

@@ -0,0 +1,5 @@
+{
+    "TabSet1": 1,
+    "TabSet2": 0,
+    "TabZoom": {}
+}

.Rproj.user/640EDE58/pcs/windowlayoutstate.pper

@@ -0,0 +1,8 @@
+build-last-errors="[]"
+build-last-errors-base-dir=""
+build-last-outputs="[]"
+compile_pdf_state="{\"tab_visible\":false,\"running\":false,\"target_file\":\"\",\"output\":\"\",\"errors\":[]}"
+files.monitored-path=""
+find-in-files-state="{\"handle\":\"\",\"input\":\"\",\"path\":\"\",\"regex\":false,\"ignoreCase\":false,\"results\":{\"file\":[],\"line\":[],\"lineValue\":[],\"matchOn\":[],\"matchOff\":[],\"replaceMatchOn\":[],\"replaceMatchOff\":[]},\"running\":false,\"replace\":false,\"preview\":false,\"gitFlag\":false,\"replacePattern\":\"\"}"
+imageDirtyState="1"
+saveActionState="-1"

.Rproj.user/640EDE58/pcs/workbench-pane.pper

@@ -0,0 +1,5 @@
+
+
+
+
+

.Rproj.user/640EDE58/persistent-state

@@ -0,0 +1 @@
+{"active_set":"","sets":[]}

.Rproj.user/640EDE58/rmd-outputs

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "24,0",
+    "scrollLine": "10"
+}

.Rproj.user/640EDE58/saved_source_markers

@@ -0,0 +1 @@
+{}

.Rproj.user/640EDE58/sources/prop/0692A80B

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "13,1",
+    "scrollLine": "4"
+}

.Rproj.user/640EDE58/sources/prop/06DEECA7

@@ -0,0 +1,4 @@
+{
+    "source_window_id": "",
+    "Source": "Source"
+}

.Rproj.user/640EDE58/sources/prop/164CAE06

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "24,0",
+    "scrollLine": "11"
+}

.Rproj.user/640EDE58/sources/prop/1A25DCE8

@@ -0,0 +1 @@
+{}

.Rproj.user/640EDE58/sources/prop/20BA4671

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

.Rproj.user/640EDE58/sources/prop/2193434A

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

.Rproj.user/640EDE58/sources/prop/39738C78

@@ -0,0 +1,11 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "3,3",
+    "scrollLine": "0",
+    "rmdVisualMode": "false",
+    "rmdVisualCollapsedChunks": "",
+    "rmdVisualModeLocation": "45:0",
+    "rmdVisualWrapConfigured": "true",
+    "docOutlineVisible": "1"
+}

.Rproj.user/640EDE58/sources/prop/47CB8473

@@ -0,0 +1 @@
+{}

.Rproj.user/640EDE58/sources/prop/4A0C61A8

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

.Rproj.user/640EDE58/sources/prop/613164F1

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "13,1",
+    "scrollLine": "4"
+}

.Rproj.user/640EDE58/sources/prop/7A424F44

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

.Rproj.user/640EDE58/sources/prop/839D1939

@@ -0,0 +1 @@
+{}

.Rproj.user/640EDE58/sources/prop/86F390D5

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

.Rproj.user/640EDE58/sources/prop/93481DE9

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "75,9",
+    "scrollLine": "62"
+}

.Rproj.user/640EDE58/sources/prop/94BD3D00

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

.Rproj.user/640EDE58/sources/prop/B8685F0D

@@ -0,0 +1,4 @@
+{
+    "source_window_id": "",
+    "Source": "Source"
+}

.Rproj.user/640EDE58/sources/prop/BCF1CE5F

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "65,0",
+    "scrollLine": "58"
+}

.Rproj.user/640EDE58/sources/prop/C0EAAA87

@@ -0,0 +1 @@
+{}

.Rproj.user/640EDE58/sources/prop/DC877B83

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

.Rproj.user/640EDE58/sources/prop/EA1C7EB5

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

.Rproj.user/640EDE58/sources/prop/ED67FFE8

@@ -0,0 +1,22 @@
+D%3A%2F%2FR%2F1Day%2Fhello.r="39738C78"
+D%3A%2F%2FR%2FCode%2FUntitled.Rmd="613164F1"
+D%3A%2F%2FR%2FCode%2Fcalculator.R="839D1939"
+D%3A%2F%2FR%2FCode%2Fdata_import.R="DC877B83"
+D%3A%2F%2FR%2FCode%2Fggplot2.R="86F390D5"
+D%3A%2F%2FR%2FCode%2Flibrary_install.R="20BA4671"
+D%3A%2F%2FR%2FData%2Ftest.csv="93481DE9"
+D%3A%2F%2FR%2Felec_data.csv="2193434A"
+D%3A%2F%2FR%2Fmain.R="94BD3D00"
+D%3A%2F%2FR%2Fp_df2.csv="EA1C7EB5"
+D%3A%2F%2FR%2Fp_table.csv="06DEECA7"
+D%3A%2FR%2F1Day%2Fhello.r="EE035FAB"
+D%3A%2FR%2FCode%2FUntitled.Rmd="4A0C61A8"
+D%3A%2FR%2FCode%2Fcalculator.R="164CAE06"
+D%3A%2FR%2FCode%2Fdata_import.R="B8685F0D"
+D%3A%2FR%2FCode%2Fggplot2.R="ED67FFE8"
+D%3A%2FR%2FCode%2Flibrary_install.R="0692A80B"
+D%3A%2FR%2FData%2Ftest.csv="47CB8473"
+D%3A%2FR%2Felec_data.csv="7A424F44"
+D%3A%2FR%2Fmain.R="BCF1CE5F"
+D%3A%2FR%2Fp_df2.csv="1A25DCE8"
+D%3A%2FR%2Fp_table.csv="C0EAAA87"

.Rproj.user/640EDE58/sources/prop/EE035FAB

@@ -0,0 +1,15 @@
+D://R/Code/calculator.R="A1CE5347"
+D://R/Code/data_import.R="EC957BDE"
+D://R/Code/ggplot2.R="3899E611"
+D://R/Code/library_install.R="2B2938A8"
+D://R/Data/test.csv="8E6E3D06"
+D://R/main.R="12742FCF"
+D://R/p_table.csv="2FE7C9C1"
+D:/R/Code/calculator.R="AD8EC9D8"
+D:/R/Code/data_import.R="FF399313"
+D:/R/Code/ggplot2.R="CCBD1586"
+D:/R/Code/library_install.R="B00CD5C7"
+D:/R/Data/test.csv="5792D8FD"
+D:/R/elec_data.csv="3D682595"
+D:/R/main.R="F868DBDD"
+D:/R/p_table.csv="D0FC05AD"

.Rproj.user/640EDE58/sources/prop/INDEX

@@ -0,0 +1,20 @@
+a <- as.numeric(readline(prompt = "Enter First Number: "))
+b <- as.numeric(readline(prompt = "Enter Second Number: "))
+cat("What do you want?\n")
+cat("1. Sum\n")
+cat("2. Subtract\n")
+cat("3. Divide\n")
+p <- as.numeric(readline(prompt = "Choose one (1, 2, 3): "))
+
+result <- switch(p,
+                 `1` = a + b,
+                 `2` = a - b,
+                 `3` = ifelse(b != 0, a / b, "Error: Division by zero"),
+                 "Invalid choice"
+)
+
+if (is.numeric(result)) {
+  cat("The result is:", result, "\n")
+} else {
+  cat(result, "\n")
+}

.Rproj.user/640EDE58/sources/session-8dff567f/3C093566-contents

@@ -0,0 +1,78 @@
+#to check current working directory
+getwd()
+
+#Set working directory for path setup
+
+setwd("D:/R/Data")
+
+#check again
+getwd()
+
+
+#read csv file
+p_data <- read.csv('p_table.csv')
+
+# create data frame
+p_df <- data.frame(p_data)
+
+
+# view Data frame
+View(p_df)
+
+# print top 6 data
+head(p_df)
+
+# print bottom 6 data
+tail(p_df)
+
+
+#just use in rstudio for changing value
+fix(p_df)
+
+# summarize data
+summary(p_df)
+
+# headers
+names(p_df)
+
+str(p_df)
+
+
+nrow(p_df)
+
+ncol(p_df)
+
+length(p_df)
+
+dim(p_df) #shows the dimensions of the data frame
+
+colnames(p_df) #shows the name of each column in the data
+
+p_df2<- p_df [c(1:4,15,5:14)] #filter data
+
+names(p_df2)
+
+p_df2<- p_df [c(1:10),c(1:4)]  #10 rows 4 cols
+
+names(p_df2)
+
+# to filter data
+test <- subset(p_df, p_df$Symbol=='B' )
+View(test)
+
+
+# to save
+write.csv(test, "test.csv", row.names = TRUE)
+
+
+
+library("dplyr") #for manipulate data
+
+
+# Using the mtcars data set
+mtcars %>%
+  filter(mpg > 20) %>%  # Filter rows where mpg is greater than 20
+  select(mpg, hp) %>%   # Select only mpg and hp columns
+  arrange(desc(mpg))    # Arrange the rows in descending order of mpg
+
+# in R, %>% is the "pipe" operator, it helps to create pipe structure of function

.Rproj.user/640EDE58/sources/session-8dff567f/lock_file

@@ -0,0 +1,12 @@
+# install.packages("ggplot2")
+
+#import
+library(ggplot2)
+
+# Create a simple scatter plot
+ggplot(mtcars, aes(x=mpg, y=hp)) +
+  geom_point() +
+  labs(title="Scatter Plot of mpg vs hp", x="Miles per Gallon", y="Horsepower") +
+  geom_line()+
+  geom_smooth(method = 'loess')
+