BroVic

# To run this script on computer with R installed:
# Open the command line in the folder where the script is saved.
# Make sure it is saved as "arise-720-reg.csv" (Overwrite any old version of the file)
# At the prompt, run:
#    
#    Rscript arise-720-reg.csv
#
# If run for the first time, an internet connection may be rerquired to download required packages.
#
tidypack <- "tidyverse"

BroVic

library(readxl)
library(tidyr)

# My Path. Use yours
path <-
  "~/Documents/5-Personal/Data/DATA  DHIS MONTHLY RI  TEMPLATE 5.xlsx"

riData <- read_xlsx(path = path)
riData <- riData[-c(2:3),]
hdr <- unname(unlist(riData[1,]))

BroVic

# install.packages('xlsx')
library(dplyr)

vals <- sapply(ls(pos = "package:dplyr"), function(x) {
  if (is.function(get(x)))
    return(TRUE)
  FALSE
})

funcs <- vals[vals]

BroVic

stopifnot(getRversion() >= 4.1)

dat <- mtcars
levs <-
  structure(
    .Data = list(c("V-shaped", "straight"), c("automatic", "manual")), 
    names = fcols <- c('vs', 'am')
  )
for (i in fcols)  
  dat[[i]] <- (dat[[i]] == 0) |> 

BroVic

if (getRversion() < 4.1)
  stop("R version 4.1 or greater is required", call. = FALSE)
dat <- mtcars
levs <-
  structure(
    .Data = list(c("V-shaped", "straight"), c("automatic", "manual")), 
    names = fcols <- c('vs', 'am')
  )
for (i in fcols)
  dat[[i]] <- (dat[[i]] == 0) |> 

BroVic

#include <vector>
#include <numeric>
#include <unordered_map>
#include <algorithm>
#include <iostream>

std::vector<int> solution(int N, std::vector<int> &A) {
    // write your code in C++14 (g++ 6.2.0)
    // for each element of the list
    // if the element at the position is same as `max` i.e. it doesn't exist in monitor

BroVic

# Intuition of the MA model based on https://www.youtube.com/watch?v=voryLhxiPzE

dat <- data.frame(f.hat = NA, epsilon = c(-2, 1, 0, 2, 1), f = NA)

mu <- 10
phi <- .5

for (i in seq(nrow(dat))) {
  if (i == 1L)
    dat$f.hat[i] <- mu

BroVic

.Rhistory

BroVic

# Source file: rcmd.ps1
#
# A PowerShell script for batch execution of R specifically
# for the naijR project

# TODO: Affirm script execution policy

[CmdletBinding()]

PARAM ( 

BroVic

install.packages("remotes")

remotes::install_github("BroVic/RQDAassist", ref = "apple")

RQDAassist::install()