| library(tidyverse) | |
| library(gganimate) | |
| set.seed(777) | |
| points <- 2* 1e3 | |
| x <- runif(points, min = -1, max=1) | |
| y <- runif(points, min=-1, max=1) | |
| inside <- x^2 + y^2 < 1 |
other databases: https://twitter.com/tangming2005/status/1470513427080699905
GSEA has a geneset https://www.gsea-msigdb.org/gsea/msigdb/cards/GOCC_CELL_SURFACE.html use https://cran.r-project.org/web/packages/msigdbr/vignettes/msigdbr-intro.html to get it
library(msigdbr)
cell_surface_proteins<- msigdbr(species = "Homo sapiens", category = "C5") %>%
filter(gs_name == "GOCC_CELL_SURFACE") %>%
pull(human_gene_symbol)
| setHook("rstudio.sessionInit", function(newSession) { | |
| cat('\f') | |
| hour <- format(Sys.time(), format = '%H') |> as.numeric() |> as.character() | |
| morning <- 0:11 | |
| afternoon <- 12:16 | |
| evening <- c(17:23) | |
| day_hrs <- rep( |
| bowling_animation_urls <- c( | |
| "0.01" = "https://i.imgur.com/Kn8CQbj.gif", | |
| "0.05" = "https://i.imgur.com/HFTKdDL.gif", | |
| "0.1" = "https://i.imgur.com/8Sw54Mz.gif", | |
| "1" = "https://i.imgur.com/kjROdhj.gif" | |
| ) | |
| # We need to download the animations to the session temp dirercorty to display | |
| # them in the Rstudio Viever pane | |
| bowling_animation_html <- sapply(bowling_animation_urls, function(url) { |
| # How to call the new (as of 2023-03-01) ChatGTP API from R | |
| # Get your API key over here: https://platform.openai.com/ | |
| api_key <- "sk-5-your-actual-api-key-Fvau6" # Don't share this! 😅 | |
| library(httr) | |
| library(stringr) | |
| # Calls the ChatGTP API with the given promps and returns the answer | |
| ask_chatgtp <- function(prompt) { | |
| response <- POST( |