Это относится к пакету fortunes
, который содержит целый набор юмористических цитат и комментариев из списков справки, конференций, форумов и даже StackOverflow.
На самом деле вы можете просматривать базу данных или небольшой фрейм данных.
library(fortunes)
fortune()
Чтобы получить случайный.Или найдите конкретный, например:
> fortune("stackoverflow")
datayoda: Bing is my friend...I found the cumsum() function.
Dirk Eddelbuettel: If bing is your friend, then rseek.org is bound
to be your uncle.
-- datayoda and Dirk Eddelbuettel (after searching for a function that
computes cumulative sums)
stackoverflow.com (October 2010)
Если вы хотите получить все из них в кадре данных, просто наберите
MyFortunes <- read.fortunes()
Числа, которые иногда называют, это строканомера этого кадра данных.Чтобы найти все на стеке потока:
> grep("(?i)stackoverflow",MyFortunes$source)
[1] 273 275
> fortune(275)
I used a heuristic... pulled from my posterior. That makes it Bayesian, right?
-- JD Long (in a not too serious chat about modeling strategies)
Stackoverflow (November 2010)