View ma.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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 |
View install-rqda.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
install.packages("remotes") | |
remotes::install_github("BroVic/RQDAassist", ref = "apple") | |
RQDAassist::install() |
View main.cpp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#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 |
View tables-blog-2.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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) |> |
View mod-mtcars.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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) |> |
View list-functions.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# install.packages('xlsx') | |
library(dplyr) | |
vals <- sapply(ls(pos = "package:dplyr"), function(x) { | |
if (is.function(get(x))) | |
return(TRUE) | |
FALSE | |
}) | |
funcs <- vals[vals] |
View geopol.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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, |
View penta.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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,])) |
View example-interview.txt
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Interview Transcript | |
(Source: http://www.u.arizona.edu/~kimmehea/purdue/421/exampleinterview.htm) | |
Interviewer: Student | |
Interviewee: Associate Head of Mechanical Engineering | |
Interview Setting: Interview conducted in office of [professor's] office in the mechanical engineering building. The interview was conducted at 3:30 PM on Wednesday afternoon. | |
Affiliation with interviewee: Professor has been my professor for two classes. I have also spoken with him privately regarding attending graduate school and areas of study. |
View arise-720.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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" |
NewerOlder