## Daten einlesen + exportieren X <- data.frame(A = c(2, 5, 7), B = c("a", "h", "i")) write.table(X, "c:/X_Daten.txt") Y <- read.table("c:/X_Daten.txt") # jetzt ein Dataframe ################################## ################################## library("RODBC") # das Paket laden channel <- odbcConnect("mineur", case="nochange") sqlTables(channel) sqlColumns(channel, "iristab")$COLUMN_NAME sqlQuery(channel, "select * from iristab") sqlQuery(channel, "select * from iristab where Species = 'setosa'") sqlTables(channel) sqlColumns(channel, "ForestCover")$COLUMN_NAME PappelSt <- sqlQuery(channel, "select Slope from ForestCover where CoverType = 4 and HorDistRoad < 100") EspenSt <- sqlQuery(channel, "select Slope from ForestCover where CoverType = 5 and HorDistRoad < 100") summary(PappelSt) summary(EspenSt) close(channel) # Verbindung wieder schließen channel <- odbcConnectExcel2007("C:/SKursDaten.xls") sqlTables(channel) # Zeigt die Namen der vorhandenen Tabellen an --> iris$ sqlColumns(channel, "iris") sqlQuery(channel, "select PetalLength from \"iris$\"") # Gibt die Spalte "PetalLength" der Tabelle "iris$" vollständig aus. sqlQuery(channel, "select * from \"iris$\" where Species = 'setosa' and SepalLength < 5") # Gibt diejenigen Zeilen der Tabelle "iris$" aus, # bei denen die Variable "Species" den Eintrag "setosa" hat und # der Wert von "SepalLength" kleiner als 5 ist. close(channel) # Verbindung wieder schliessen. ####################### ####################### # Clipboard # S1 S2 S3 # 1 5 "a" # 2 6 "b" read.table(file("clipboard"), header = TRUE) # 1 2 3 4 x <- scan(file("clipboard")) write(x, file = file("clipboard", "w"), ncol = 2) ####################### ####################### # Datum Zeit R_1.0.0 <- "Feb 29, 2000" R_1.0.0Date <- as.Date(R_1.0.0, "%b %d, %Y") R_3.4.2 <- "2017-09-28" R_3.4.2Date <- as.Date(R_3.4.2, "%Y-%m-%d") Vorlesung <- "13.10.17, 10:15 Uhr" VorlesungPOSIXlt <- strptime(Vorlesung, "%d.%m.%y, %H:%M") R_3.4.2Date - R_1.0.0Date Sys.time() difftime(Sys.time(), VorlesungPOSIXlt, unit = "week") format(VorlesungPOSIXlt, "%d.%m.%Y %H:%M") format(VorlesungPOSIXlt, "%d. %b '%y") weekdays(VorlesungPOSIXlt) as.POSIXct(VorlesungPOSIXlt) ## 6 Woche x 7 Tage x 24 Stunden x 60 Minuten x 60 Sekunden ## ab Beginn der 1. Vorlesung: VorlesungPOSIXlt + 6 * 7 * 24 * 60 * 60