O
Важнейшие статистические идеи/методы последних 50 лет, от Эндрю гелмана.
Size: a a a
O
O
a
OS
x <- sample(1:100)Длинно зато понятно.
r <- integer(length(x))
m <- mean(x)
r[x == m] <- 0
r[x > m] <- 1
r[x < m] <- -1
AS
O
AA
EP
u <- sprintf("https://web.archive.org/cdx/search/cdx?url=%s&matchType=prefix&from=202001010000&filter=statuscode:200&filter=mimetype:text/html", curl_escape(my_domain))
r <- curl_fetch_memory(u)
x <- fread(
input = rawToChar(r$content),
sep = " ",
header = FALSE,
select = c(3, 2),
col.names = c("url", "timestamp"),
colClasses = c("V2" = "character")
)
setorder(x, url, timestamp)
x[, wa_url := paste("http://web.archive.org/web", timestamp, url, sep = "/")]
ГД
AS
AS
ГД
AS
ГД
A
AS
ГД
AS