MyKo101

#' Reload .Rprofile
#' 
#' Re-run the .Rprofile file
#' 
#' @interactive
#' @shortcut Ctrl + Shift + P
function(){
  source(".Rprofile")
  cat("Reloading .Rprofile\n")
}

MyKo101

# Define a character to act as seperator between the two variables to be used
hb_sep <- function(x=NULL){
  if(is.null(x)){
    getOption("hb_sep")
  } else {
    options(hb_sep = x)
  }
}

# Combines the hue & brightness

MyKo101

# This function will calculate whether a vector is prime. It is not completely efficient, but it's not too bad
isPrime <- function(n){
  # Check inputs are integers, and coerce
  if(any(n %% 1 >0)) stop("Input must be all integers")
  n2 <- as.integer(n)
  
  # Create default output
  out <- rep(NA,length(n2))
  
  # Check for already discovered primes & return early if possible

MyKo101

import itertools
from dataclasses import dataclass
from typing import Tuple

import numpy as np
from diptest import diptest

MEAN = 18.75
STDDEV = 5.647