-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy path.Rhistory
71 lines (71 loc) · 2.77 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
library(tidyverse)
rawdata <- read_tsv("pdk_web-historiancombined.txt", col_names = TRUE)
setwd("D:/Users/Kurt/Documents/Programming/Cleaning")
rawdata <- read_tsv("pdk_web-historiancombined.txt", col_names = TRUE)
UTID <- rawdataURLTitle %>% select(URLTitle) %>% distinct(URLTitle) %>% rowid_to_column("UTID")
rawdataURLTitle <- rawdata %>%
mutate(URLTitle = paste(rawdata$URL, " ", rawdata$Title))
UTID <- rawdataURLTitle %>% select(URLTitle) %>% distinct(URLTitle) %>% rowid_to_column("UTID")
sourcedate <- rawdataURLTitle %>% select(Source, Date, URLTitle)
Visits <- left_join(sourcedate, UTID, "URLTitle") %>% select(Source, Date, UTID)
names(Visits) <- "VID"
View(Visits)
View(Visits)
Visits
View(Visits)
Visits <- left_join(sourcedate, UTID, "URLTitle") %>% select(Source, Date, UTID)
View(Visits)
rownames(Visits)
Visits <- cbind(VID = rownames(Visits), Visits)
View(Visits)
rownames(Visits) <- NULL
View(Visits)
Visits
View(rawdataURLTitle)
View(rawdata)
?options
options(digits = 10)
rawdata <- read_tsv("pdk_web-historiancombined.txt", col_names = TRUE)
rawdataURLTitle <- rawdata %>%
mutate(URLTitle = paste(rawdata$URL, " ", rawdata$Title))
UTID <- rawdataURLTitle %>% select(URLTitle) %>% distinct(URLTitle) %>% rowid_to_column("UTID")
sourcedate <- rawdataURLTitle %>% select(Source, Date, URLTitle)
Visits <- left_join(sourcedate, UTID, "URLTitle") %>% select(Source, Date, UTID)
Visits <- cbind(VID = rownames(Visits), Visits)
rownames(Visits) <- NULL
write.csv(UTID, "UTID.csv", col.names = TRUE)
View(rawdata)
rawdataURLTitle <- options(digits = 10) %>% rawdata %>%
mutate(URLTitle = paste(rawdata$URL, " ", rawdata$Title))
rawdataURLTitle <- rawdata %>%
mutate(URLTitle = paste(rawdata$URL, " ", rawdata$Title))
rawdata <- read_tsv("pdk_web-historiancombined.txt", col_names = TRUE, digits = 10)
rawdata <- options(digits = 10) %>% read_tsv("pdk_web-historiancombined.txt", col_names = TRUE)
rawdata <- %>% read_tsv("pdk_web-historiancombined.txt", col_names = TRUE)
rawdata <- read_tsv("pdk_web-historiancombined.txt", col_names = TRUE)
View(rawdata)
options(digits = 10)
options()
format(rawdata, digits = 10)
View(rawdata)
rawdata <- format(rawdata$Date, digits = 10)
View(rawdata)
rawdata <- read_tsv("pdk_web-historiancombined.txt", col_names = TRUE)
View(rawdata)
print(rawdata$Date, digits = 10)
?read_tsv
View(UTID)
rownames(UTID) <- NULL
View(UTID)
write.csv(UTID, "UTID.csv", col.names = TRUE)
write.csv(Visits, "visits.csv", col.names = TRUE)
?write.csv
write.csv(UTID, "UTID.csv", row.names = FALSE, col.names = TRUE)
write.csv(Visits, "visits.csv", row.names = FALSE col.names = TRUE)
write.csv(Visits, "visits.csv", row.names = FALSE, col.names = TRUE)
library(botscan)
botscan("#rstats")
devtools::document()
devtools::document()
setwd("D:/Users/Kurt/Documents/Programming/botscan")
devtools::document()