BroVic

/**
        After becoming famous, the CodeBots decided to move into a new 
        uilding together. Each of the rooms has a different cost, and 
        ome of them are free, but there's a rumour that all the free 
        ooms are haunted! Since the CodeBots are quite superstitious, 
        hey refuse to stay in any of the free rooms, or any of the 
        ooms below any of the free rooms.
        
        Given matrix, a rectangular matrix of integers, where each 
        alue represents the cost of the room, your task is to return 

BroVic

/***
* Given a sequence of integers as an array,
* determine whether it is possible to obtain 
* a strictly increasing sequence by removing 
* no more than one element from the array.
*
* Note: sequence a0, a1, ..., an is considered 
* to be a strictly increasing if 
* a0 < a1 < ... < an. Sequence containing 
* only one element is also considered to be 

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

# 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

install.packages("remotes")

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

RQDAassist::install()

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

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

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

# 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

library(naijR)

# 1. Draw plot of North-East GPZ
# First, get the states of interest
# Then, pass them to the mapping function's `region` parameter
ne <- states(gpz = "ne")
map_ng(
  region = ne,
  title = "North-East Geopolitical Zone",
  fill = TRUE,