Kemal Koçaklı Assesment R Notebook

getwd()

[1] "C:/Users/Asus/Desktop"

list.files()

 [1] "~$toğraf Analizleri.docx"                                    
 [2] "~$yet-mektubu-ornegi-tr.docx"                                
 [3] "~$ynakçaa.docx"                                              
 [4] "~$YZAK KARAKTER TİPLERİ.docx"                                
 [5] "18397_Cekmekoy_Omerli_15dk.txt"                              
 [6] "28.nb.html"                                                  
 [7] "28.Rmd"                                                      
 [8] "ALL CBS"                                                     
 [9] "ARKEOLOJİK TEORİ"                                            
[10] "Assesment_test.R"                                            
[11] "AYBE 2019 Bahar"                                             
[12] "AYBE 2019 Güz"                                               
[13] "Bildiriler"                                                  
[14] "Delice Vadisi Kaynak"                                        
[15] "Delice_CBS_Data"                                             
[16] "delice_GIS"                                                  
[17] "desktop.ini"                                                 
[18] "Evraklar"                                                    
[19] "Google Chrome.lnk"                                           
[20] "Homework_2.Rmd"                                              
[21] "İLHAN KAYAN"                                                 
[22] "Istanbul_Goztepe_Mean_Temperature_1839-2013_Monthly_data.txt"
[23] "Java Web Start.lnk"                                          
[24] "Software_Tools_R_Homework2.pdf"                              
[25] "Software_Tools_R_Homework3.pdf"                              
[26] "TAY_Project"                                                 
[27] "YÖK BURSU"                                                   
[28] "YÜKSEK LİSANS"                                               

seq(1:4)

[1] 1 2 3 4

kemalvec <- seq((1:4))
length(kemalvec)

[1] 4

mean(kemalvec)

[1] 2.5

as.character(kemalvec)

[1] "1" "2" "3" "4"

class(kemalvec)

[1] "integer"

print(kemalvec[2])

[1] 2

kemalvec[2]

[1] 2

print(kemalvec)

[1] 1 2 3 4

myvec <- seq(10,25,4)
myvec

[1] 10 14 18 22

vec1 <- myvec
vec1

[1] 10 14 18 22

length(vec1)

[1] 4

mean(vec1)

[1] 16

class(vec1)

[1] "numeric"

as.character(vec1)

[1] "10" "14" "18" "22"

print(vec1[2])

[1] 14

vec1[2] <- "TRUE"
runif(12, min = 1, max = 20)

 [1] 17.416785 10.327962 17.973474 14.424279  1.258230 14.866929 15.922363
 [8]  5.550295 11.377838 14.635138  8.335801 18.422896

vec2 <- runif(12, min = 1, max = 20)
vec2

 [1]  7.690037 16.186437  3.062003  2.900495 13.634905  3.725810 12.981197
 [8]  4.712760  7.183450  7.127040 15.289092 19.855700

matrix_1 <- matrix(vec2, nrow = 3, ncol=4)
dim(matrix_1)

[1] 3 4

matrix_2 <- matrix (c(vec1, vec2), nrow = 4, ncol=4 ) #byrow = FALSE
matrix_2

     [,1]   [,2]               [,3]               [,4]              
[1,] "10"   "4.42064064648002" "17.3547158152796" "1.14531807880849"
[2,] "TRUE" "9.28677253448404" "6.71922926208936" "16.5598692616913"
[3,] "18"   "2.65762194665149" "17.7732666668016" "10.0110261319205"
[4,] "22"   "1.00420508813113" "14.0911612426862" "9.61959825456142"

matrix_3 <- matrix (c(vec1, vec2), nrow = 4, ncol=4 ) #byrow = TRUE
matrix_3

     [,1]   [,2]               [,3]               [,4]              
[1,] "10"   "4.42064064648002" "17.3547158152796" "1.14531807880849"
[2,] "TRUE" "9.28677253448404" "6.71922926208936" "16.5598692616913"
[3,] "18"   "2.65762194665149" "17.7732666668016" "10.0110261319205"
[4,] "22"   "1.00420508813113" "14.0911612426862" "9.61959825456142"

matrix_1 <- matrix_3
matrix_1

     [,1]   [,2]               [,3]               [,4]              
[1,] "10"   "4.42064064648002" "17.3547158152796" "1.14531807880849"
[2,] "TRUE" "9.28677253448404" "6.71922926208936" "16.5598692616913"
[3,] "18"   "2.65762194665149" "17.7732666668016" "10.0110261319205"
[4,] "22"   "1.00420508813113" "14.0911612426862" "9.61959825456142"

arr1 <- array(matrix_1, dim = c(4, 4, 2))
arr1

, , 1

     [,1]   [,2]               [,3]               [,4]              
[1,] "10"   "4.42064064648002" "17.3547158152796" "1.14531807880849"
[2,] "TRUE" "9.28677253448404" "6.71922926208936" "16.5598692616913"
[3,] "18"   "2.65762194665149" "17.7732666668016" "10.0110261319205"
[4,] "22"   "1.00420508813113" "14.0911612426862" "9.61959825456142"

, , 2

     [,1]   [,2]               [,3]               [,4]              
[1,] "10"   "4.42064064648002" "17.3547158152796" "1.14531807880849"
[2,] "TRUE" "9.28677253448404" "6.71922926208936" "16.5598692616913"
[3,] "18"   "2.65762194665149" "17.7732666668016" "10.0110261319205"
[4,] "22"   "1.00420508813113" "14.0911612426862" "9.61959825456142"

read.table("18397_Cekmekoy_Omerli_15dk.txt",sep = ";",header = T)

sta_data <-read.table("18397_Cekmekoy_Omerli_15dk.txt",sep = ";",header = T) 
str(sta_data)

'data.frame':   121 obs. of  10 variables:
 $ sta_no           : int  18397 18397 18397 18397 18397 18397 18397 18397 18397 18397 ...
 $ year             : int  2017 2017 2017 2017 2017 2017 2017 2017 2017 2017 ...
 $ month            : int  7 7 7 7 7 7 7 7 7 7 ...
 $ day              : int  26 26 26 26 26 26 26 26 26 26 ...
 $ hour             : int  18 18 18 18 19 19 19 19 20 20 ...
 $ minutes          : int  0 15 30 45 0 15 30 45 0 15 ...
 $ temp             : num  23.9 23.9 23.8 23.8 23.6 23.2 23.2 23.1 23 22.8 ...
 $ precipitation    : num  0 0 0 0 0 0 0 0 0 0 ...
 $ pressure         : num  1003 1003 1003 1003 1003 ...
 $ relative_humidity: int  94 95 96 96 96 97 97 98 98 98 ...

attributes(sta_data)

$names
 [1] "sta_no"            "year"              "month"            
 [4] "day"               "hour"              "minutes"          
 [7] "temp"              "precipitation"     "pressure"         
[10] "relative_humidity"

$class
[1] "data.frame"

$row.names
  [1]   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18
 [19]  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36
 [37]  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54
 [55]  55  56  57  58  59  60  61  62  63  64  65  66  67  68  69  70  71  72
 [73]  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90
 [91]  91  92  93  94  95  96  97  98  99 100 101 102 103 104 105 106 107 108
[109] 109 110 111 112 113 114 115 116 117 118 119 120 121

print(sta_data)

plot(sta_data$precipitation)
total <- sum(sta_data$precipitation)
total

[1] 671.01

if (total >0) {
  print("weather was rainy")
  }

[1] "weather was rainy"

  install.packages("ncdf4")

WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:

https://cran.rstudio.com/bin/windows/Rtools/
Installing package into 㤼㸱C:/Users/Asus/Documents/R/win-library/3.6㤼㸲
(as 㤼㸱lib㤼㸲 is unspecified)
trying URL 'https://cran.rstudio.com/bin/windows/contrib/3.6/ncdf4_1.17.zip'
Content type 'application/zip' length 3270524 bytes (3.1 MB)
downloaded 3.1 MB

package ‘ncdf4’ successfully unpacked and MD5 sums checked

The downloaded binary packages are in
    C:\Users\Asus\AppData\Local\Temp\RtmpWCFDCc\downloaded_packages

  install.packages("RNetCDF")

WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:

https://cran.rstudio.com/bin/windows/Rtools/
Installing package into 㤼㸱C:/Users/Asus/Documents/R/win-library/3.6㤼㸲
(as 㤼㸱lib㤼㸲 is unspecified)
trying URL 'https://cran.rstudio.com/bin/windows/contrib/3.6/RNetCDF_2.1-1.zip'
Content type 'application/zip' length 3460435 bytes (3.3 MB)
downloaded 3.3 MB

package ‘RNetCDF’ successfully unpacked and MD5 sums checked

The downloaded binary packages are in
    C:\Users\Asus\AppData\Local\Temp\RtmpWCFDCc\downloaded_packages

  install.packages("ggplot2")

WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:

https://cran.rstudio.com/bin/windows/Rtools/
Installing package into 㤼㸱C:/Users/Asus/Documents/R/win-library/3.6㤼㸲
(as 㤼㸱lib㤼㸲 is unspecified)
trying URL 'https://cran.rstudio.com/bin/windows/contrib/3.6/ggplot2_3.2.1.zip'
Content type 'application/zip' length 3975739 bytes (3.8 MB)
downloaded 3.8 MB

package ‘ggplot2’ successfully unpacked and MD5 sums checked

The downloaded binary packages are in
    C:\Users\Asus\AppData\Local\Temp\RtmpWCFDCc\downloaded_packages

  library("ncdf4")
  library("RNetCDF")
  library("ggplot2")