Jakub Tomaszewski

Data Scientist w AdPilot

Wypowiedzi

• Wszystko
• Tylko fora

• 
  Wpis na grupie R w temacie R - Sweave

  21.09.2014, 23:26

  Witam.
  
  Wywołanie funkcji Sweave("mein.Snw") wyszukuje plik mein.Snw w lokalizacji wyznaczonej przez bieżący folder roboczy. Aktualny folder roboczy można sprawdzić używając funkcji getwd().
  
  Dwa sposoby rozwiązania tego problemu:
  
  1. Sweave("C:/Uzytkownicy/Monika/Pulpit/mein.Snw")
  
  2. setwd("C:/Uzytkownicy/Monika/Pulpit/")
  Sweave("mein.Snw")
  
  Pozdrawiam.

• 
  Wpis na grupie R w temacie operacje na datach w R

  18.11.2013, 23:24

  Witam,
  zaczynając od końca:
  
  2) Wygodną konwersję dat (np. przechowywanych jako factor) zapewni funkcja as.Date(). Postać wynikową po konwersji można sformatować poprzez argument format.
  
  foo <- c("3-1-2011","5-1-2011")
  foo.ydm <- as.Date(x=foo, format="%d-%m-%Y")
  foo.ydm # [1] "2011-01-03" "2011-01-05"
  class(foo.ydm) # [1] "Date"
  
  Do obliczenia np. różnic w dwóch wektorach zawierających daty wystarczy zamiana ich klasy Date na numeric. Dla pojedynczych dat będzie to, przykładowo, wyglądało tak:
  
  roznica <- as.numeric(foo.ydm[2] - foo.ydm[1])
  roznica # [1] 2
  
  Dla dwóch wektorów:
  
  roznica <- as.numeric(wektor.dat1) - as.numeric(wektor.dat2)
  
  1) Tutaj mogą się przydać funkcje paste() oraz substr() (do wyodrębnienia roku, miesiąca, dnia i "sklejenia" ich w jeden string):
  
  bar <- c(20111116, 20111119, 20120830)
  bar <- paste(substr(bar,1,4),substr(bar,5,6),substr(bar,7,8),sep=" ")
  bar # [1] "2011 11 16" "2011 11 19" "2012 08 30"
  bar.ydm <- as.Date(x=bar, format="%Y%m%d")
  bar.ydm # [1] "2011-11-16" "2011-11-19" "2012-08-30"
  
  Pozdrawiam.Ten post został edytowany przez Autora dnia 18.11.13 o godzinie 23:26