Untitled

R version 4.3.3 (2024-02-29 ucrt) -- "Angel Food Cake"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)

R jest oprogramowaniem darmowym i dostarczany jest BEZ JAKIEJKOLWIEK GWARANCJI.
Możesz go rozpowszechniać pod pewnymi warunkami.
Wpisz 'license()' lub 'licence()' aby uzyskać szczegóły dystrybucji.

R jest projektem kolaboracyjnym z wieloma uczestnikami.
Wpisz 'contributors()' aby uzyskać więcej informacji oraz
'citation()' aby dowiedzieć się jak cytować R lub pakiety R w publikacjach.

Wpisz 'demo()' aby zobaczyć demo, 'help()' aby uzyskać pomoc on-line, lub
'help.start()' aby uzyskać pomoc w przeglądarce HTML.
Wpisz 'q()' aby wyjść z R.

> Sys.setenv(LANG="en")
> d
Error: object 'd' not found
> getwd()
[1] "C:/Users/Student/Documents"
> setwd('./DAS')
> getwd()
[1] "C:/Users/Student/Documents/DAS"
> library(readxl)
> prss <- read_excel("prss.xlsx")
> View(prss)
> library(readxl)
> water2015 <- read_excel("water2015.xls", 
+     na = "-")
> View(water2015)
> read_excel('sediments.xls')
# A tibble: 26 × 9
   Points    Met1  Met2  Met3 Fract1 Fract2 Fract3 Transects Riverbed
   <chr>    <dbl> <dbl> <dbl>  <dbl>  <dbl>  <dbl> <chr>     <chr>   
 1 Point 02 110.  42.8  1.36   31.1    65.8  3.04  left      out     
 2 Point 04 110.  41.1  1.28   40.6    56.9  2.5   central   out     
 3 Point 07 111.  41.8  1.25   13.3    59.2 27.5   right     in      
 4 Point 17  74.0 24.9  0.822  26.2    70.3  3.53  central   out     
 5 Point 18  24.0 10.2  0.256  14.7    59.0 26.3   left      out     
 6 Point 19 105.  37.0  1.34   23.2    73.2  3.6   right     in      
 7 Point 28  24.4  8.60 0.5     7.3    65.6 27.1   left      out     
 8 Point 30 106.  37.8  1.39   23.6    75.0  1.39  central   in      
 9 Point 33 100.  36.1  1.28   23.9    75.7  0.360 right     out     
10 Point 36  42.3  8.80 0.542   3.35   52.1 44.6   left      out     
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows
> read_excel('sediments.xls')->sed
> read_excel('meteo_2015.xls')->met
There were 50 or more warnings (use warnings() to see the first 50)
> water2015->wtr
> rm(water2015)
> save(met,file='met.RData')
> save(prss,file='prss.RData')
> save(sed,file='sed.RData')
> save(wtr,file='wtr.RData')
> rm(wtr)
> load(wtr.RData)
Error: object 'wtr.RData' not found
> load('wtr.RData')
> ls()
[1] "met"  "prss" "sed"  "wtr" 
> rm(list=ls())
> load('wtr.RData')
> load("~/DAS/sed.RData")
> load("~/DAS/prss.RData")
> load("~/DAS/met.RData")
> View(wtr)
> View(sed)
> View(met)
> sed
# A tibble: 26 × 9
   Points    Met1  Met2  Met3 Fract1 Fract2 Fract3 Transects Riverbed
   <chr>    <dbl> <dbl> <dbl>  <dbl>  <dbl>  <dbl> <chr>     <chr>   
 1 Point 02 110.  42.8  1.36   31.1    65.8  3.04  left      out     
 2 Point 04 110.  41.1  1.28   40.6    56.9  2.5   central   out     
 3 Point 07 111.  41.8  1.25   13.3    59.2 27.5   right     in      
 4 Point 17  74.0 24.9  0.822  26.2    70.3  3.53  central   out     
 5 Point 18  24.0 10.2  0.256  14.7    59.0 26.3   left      out     
 6 Point 19 105.  37.0  1.34   23.2    73.2  3.6   right     in      
 7 Point 28  24.4  8.60 0.5     7.3    65.6 27.1   left      out     
 8 Point 30 106.  37.8  1.39   23.6    75.0  1.39  central   in      
 9 Point 33 100.  36.1  1.28   23.9    75.7  0.360 right     out     
10 Point 36  42.3  8.80 0.542   3.35   52.1 44.6   left      out     
# ℹ 16 more rows
# ℹ Use `print(n = ...)` to see more rows
> str(sed)
tibble [26 × 9] (S3: tbl_df/tbl/data.frame)
 $ Points   : chr [1:26] "Point 02" "Point 04" "Point 07" "Point 17" ...
 $ Met1     : num [1:26] 110 110 111 74 24 ...
 $ Met2     : num [1:26] 42.8 41.1 41.8 24.9 10.2 ...
 $ Met3     : num [1:26] 1.358 1.279 1.252 0.822 0.256 ...
 $ Fract1   : num [1:26] 31.1 40.6 13.3 26.2 14.7 ...
 $ Fract2   : num [1:26] 65.8 56.9 59.2 70.3 59 ...
 $ Fract3   : num [1:26] 3.04 2.5 27.46 3.53 26.32 ...
 $ Transects: chr [1:26] "left" "central" "right" "central" ...
 $ Riverbed : chr [1:26] "out" "out" "in" "out" ...