Bootstrap knowledge of LLMs ASAP. With a bias/focus to GPT.
Avoid being a link dump. Try to provide only valuable well tuned information.
Neural network links before starting with transformers.
library(tmap) | |
library(tidycensus) | |
options(tigris_use_cache = TRUE) | |
sf::sf_use_s2(FALSE) | |
tarrant_housing <- get_acs( | |
geography = "tract", | |
state = "TX", | |
county = "Tarrant", | |
variables = c( |
# Bivariate Choropleth Map | |
## this is based on Timo Grossenbacher and Angelo Zehr's tutorial - | |
## https://timogrossenbacher.ch/2019/04/bivariate-maps-with-ggplot2-and-sf/ | |
# dependencies | |
library(dplyr) # data wrangling | |
library(ggplot2) # plotting | |
library(purrr) # iteration | |
library(tidyr) # data wrangling |
library(dplyr) | |
library(tidyr) | |
library(magrittr) | |
library(ggplot2) | |
"http://academic.udayton.edu/kissock/http/Weather/gsod95-current/NYNEWYOR.txt" %>% | |
read.table() %>% data.frame %>% tbl_df -> data | |
names(data) <- c("month", "day", "year", "temp") | |
data %>% | |
group_by(year, month) %>% |
suppressPackageStartupMessages(require(RTextTools)) | |
suppressPackageStartupMessages(require(tm)) | |
source("C:/Users/denbrige/100 FxOption/103 FxOptionVerBack/080 Fx Git/R-source/PlusReg.R", echo=FALSE) | |
spam.dir <- paste0(RegGetRNonSourceDir(), "spamassassin/") | |
get.msg <- function(path.dir) | |
{ | |
con <- file(path.dir, open="rt", encoding="latin1") | |
text <- readLines(con) | |
msg <- text[seq(which(text=="")[1]+1,length(text),1)] | |
close(con) |
The count of contributions (summary of Pull Requests, opened issues and commits) to public repos at GitHub.com from Wed, 21 Sep 2022 till Thu, 21 Sep 2023.
If you are not in the list you don't have enough followers. Only first 1000 GitHub users according to the count of followers are taken. This is because of limitations of GitHub search. Sorting algo in pseudocode:
githubUsers
.filter(user => user.followers > 1000)
# go to 'https://developers.facebook.com/tools/explorer' to get your access token | |
access_token <- "******************* INPUT YOUR ACCESS TOKEN ******************************" | |
require(RCurl) | |
require(rjson) | |
# Facebook json function copied from original (Romain Francois) post | |
facebook <- function( path = "me", access_token, options){ | |
if( !missing(options) ){ | |
options <- sprintf( "?%s", paste( names(options), "=", unlist(options), collapse = "&", sep = "" ) ) |