Install native ARM R: https://cloud.r-project.org/
Install RStudio (probably preview) which is not native as of today: https://www.rstudio.com/products/rstudio/download/preview/
This blog post is helpful for getting Tensorflow working, but it is older, before the ARM version of R and the RStudio version that supports it was available.
This other blog post has specific steps outlined, but some of it has also been superseded.
| library(raster) | |
| library(rayshader) | |
| #Load QGIS georeference image (see https://www.qgistutorials.com/en/docs/3/georeferencing_basics.html) | |
| testindia = raster::stack("1870_southern-india_modified.tif") | |
| #Set bounding box for final map (cut off edges without data, introduced via reprojection) | |
| india_bb = raster::extent(c(68,92,1,20)) | |
| cropped_india = raster::crop(testindia, india_bb) | |
| #Convert to RGB array |
| library(tidyverse) | |
| n <- 150 | |
| sensitivity_threshold <- 5 | |
| data <- tibble( | |
| a = rgamma(n = n, shape = 5, rate = 0.5), | |
| b = rgamma(n = n, shape = a/2, rate = 0.5) | |
| ) | |
| generate_missing_data <- function(i){ |
| #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ | |
| #' Create a CSS ruleset | |
| #' | |
| #' Create a CSS ruleset consisting of a selector and one-or-more property declarations, | |
| #' or, if no \code{.selector} is given, create an inline style string | |
| #' | |
| #' The list of included properties is not a complete list, but rather an | |
| #' abbreviated list from | |
| #' \url{https://developer.mozilla.org/en-US/docs/Web/CSS/CSS_Properties_Reference} |
| f <- function(...) { | |
| function(df) with(df, ...) | |
| } | |
| footate <- function(.data, ...) { | |
| dots <- list(...) | |
| for (column in names(dots)) { | |
| .data[[column]] <- dots[[column]](.data) | |
| } |
| --- | |
| output: | |
| html_document: | |
| theme: cerulean | |
| --- | |
| ### Example html multiple choice question using Rmarkdown | |
| <!-- Render this Rmarkdown doc to html to make an interactive html / js multiple choice question --> |
| download.file("https://ndownloader.figshare.com/articles/5170705/versions/1", "kd.zip") | |
| unzip("kd.zip") | |
| library(readr) | |
| words <- readr::read_csv("KSP-Word.csv") | |
| users <- readr::read_csv("KSP-User.csv") | |
| entries <- readr::read_csv("KSP-Entry.csv") | |
| keypress <- readr::read_csv("KSP-KeyPress.csv") | |
| pressure <- readr::read_csv("KSP-Pressure.csv") |
| dat <- readr::read_csv("municipality\n- Ticino\n>> Distretto di Bellinzona\n......5001 Arbedo-Castione\n......5002 Bellinzona\n......5003 Cadenazzo\n......5004 Camorino\n") | |
| dat %>% mutate(municipality = gsub(pattern = '[\\.\\>]|^-', | |
| replacement = "", | |
| municipality)) %>% | |
| separate(col = municipality, | |
| sep = '(?<=[0-9])\\s', | |
| into = c ("code","municipality"), | |
| fill = "left") |
| # broom tidy method for class "inla" | |
| tidy.inla <- function(x){ | |
| # x = model_inla | |
| term_names <- rownames(x$summary.fixed) | |
| tibble::as_tibble(x$summary.fixed) %>% | |
| dplyr::mutate(terms = term_names) %>% | |
| dplyr::select(terms, |
| matrix_to_df_firstline_header <- function(mat){ | |
| requireNamespace("purrr") | |
| mat %>% | |
| ## cut columns into lists | |
| apply(2, function(s) list(s)) %>% | |
| flatten %>% | |
| map(flatten_chr) %>% | |
| ## set names to the first element of the list | |
| {set_names(x = map(., ~ .x[-1]), |