Richard Careaga technocrat

I hereby claim:

To claim this, I am signing this object:

The platform should not be banned on the basis of content because

it not a forum owned by the US government
it is not a forum broadcast over "the public airways" like television and radio that are "affected with the public interest" under the existing scheme of licencing
it is not a forum delivered via a common carrier licensed and regulated under the Commerce Power The platform type may be subject to reasonable time, place and manner regulation as to content and to consumer protection regulation as to terms of service in a manner applicable to similar business

The platform should not be banned up

On the basis of foreign ownership or control without a rationale to distinguish other enterprises operating in the United States also under foreign ownership or control
On the basis of the specific foreign ownership or control that involves no authorization for the imposition of sanctions based on some statutory authority of general applicability that involves specific enumerated conduct such as, for

Didn't find much on offer at community.rstudio.com

There were a couple of reports of success installing RStudio

Ubuntu can be installed as a side-by-side OS

	---
	title: "Untitled"
	author: "Richard Careaga"
	date: "2023-05-13"
	output: pdf_document
	---

	```{r setup, include=FALSE}
	knitr::opts_chunk$set(echo = TRUE)
	library(ggplot2)

	% Options for packages loaded elsewhere
	\PassOptionsToPackage{unicode}{hyperref}
	\PassOptionsToPackage{hyphens}{url}
	%
	\documentclass[
	ignorenonframetext,
	]{beamer}
	\usepackage{pgfpages}
	\setbeamertemplate{caption}[numbered]
	\setbeamertemplate{caption label separator}{: }

	ID,,CNI1,,CNI2,,CNI3,,CNI4,,CNI5,,CNI6,,CNI7,,CNI8,,CNI9,,CNI10,,CNI11,,CNI12,,CNI13,,CNI14,,CNI15,,CNI16,,ICU1,,ICU2,,ICU3,,ICU4,,ICU5,,ICU6,,ICU7,,ICU8,,ICU9,,ICU10,,ICU11,,ICU12,,ICU13,,ICU14,,ICU15,,ICU16,,ICU17,,ICU18,,ICU19,,ICU20,,ICU21,,ICU22,,ICU23,,ICU24,,BES1,,BES2,,BES3,,BES4,,BES5,,BES6,,BES7,,BES8,,BES9,,BES10,,BES11,,BES12,,BES13,,BES14,,BES15,,BES16,,BES17,,BES18,,BES19,,BES20,,
	117099,,1,,4,,2,,4,,7,,2,,5,,5,,4,,7,,2,,2,,3,,6,,4,,4,,2,,2,,2,,1,,2,,1,,1,,4,,1,,2,,1,,3,,2,,1,,2,,3,,4,,2,,1,,1,,1,,2,,3,,3,,5,,3,,1,,5,,5,,4,,4,,3,,1,,1,,1,,2,,1,,1,,5,,1,,4,,5,,5,,5,,
	ID117088,,2,,5,,7,,1,,4,,4,,2,,4,,5,,2,,4,,3,,2,,2,,4,,3,,1,,3,,2,,1,,3,,4,,1,,3,,2,,1,,1,,3,,2,,1,,2,,2,,3,,1,,1,,1,,1,,4,,2,,3,,3,,3,,1,,5,,2,,5,,3,,5,,1,,1,,5,,1,,4,,1,,5,,2,,1,,3,,5,,5,,
	ID117080,,5,,1,,6,,5,,6,,2,,1,,3,,1,,6,,1,,2,,5,,1,,6,,1,,1,,2,,3,,1,,2,,4,,1,,3,,1,,2,,1,,2,,2,,1,,3,,2,,3,,2,,1,,1,,1,,4,,3,,3,,5,,1,,2,,5,,2,,3,,1,,3,,3,,3,,4,,4,,2,,1,,4,,2,,4,,5,,3,,3,,
	I0117098,,4,,4,,3,,6,,7,,4,,3,,6,,6,,7,,1,,5,,5,,5,,7,,

	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% This document is based on a template available at
	% http://www.LaTeXTemplates.com
	%
	% Original author:
	% Trey Hunner (http://www.treyhunner.com/)
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

	\documentclass{resume}

	``` r
	input <- c("1","3.14","1,000","1K","1k","1,000K","1m","1mm","1.2M","1MM","1b","1.2B")

	make_numeric <- function(x){
	# check that no other punctuation or suffixes than kKmMbB exist in argument
	if(all(grep("[^kKmMbB0-9.,]",x,value = TRUE) == TRUE) == FALSE) stop("Argument contains characters other than numerals, commas, periods and kKmMbB")
	# create a receiver object
	output = rep(NA,length(x))
	# strip commas
	x = gsub(",","",x)

	``` r
	suppressPackageStartupMessages({
	library(dplyr)
	})

	# create synthetic data
	set.seed(42)
	year_basket <- sample(2000:2020,100, replace = TRUE)
	set.seed(137)
	fee_basket <- sample(6000:9000,100)