peterdalle

# Code by Ashe: https://stats.stackexchange.com/questions/184767/how-do-i-calculate-the-confidence-interval-of-an-icc

#Make some mocked data
library(lme4)
library(reshape2)
set.seed(2024)  #For the Bell Riots
id <- factor(seq(1, 15))
id.mu <- rnorm(15, 10, 5)
mydat <- NULL
for (a in 1:length(id)){

peterdalle

library(FRACTION)
fra(0.001, j = 20)
fra(0.5^10., j = 20)
gcd(14, 32)

peterdalle

library(ggplot2)
library(magick)

# --- Extrapolera ---

setwd("~/GU/code/rcode")

df <- na.exclude(polls.sd) # polls.sd kommer från Polls.r

# Skapa modell.

peterdalle

@echo off
REM Resize to 30 % and compress to 65 all JPG files in current directory into new names.

for %%f in (*.jpg) do (
 	echo %%f - %%~nf-new.jpg
 	magick "%%f" -quality 65 -resize 30%% "%%~nf-new.jpg"
)

peterdalle

# Calculate margin of error from proportion, and return confidence interval.
# p      = proportion (0-1)
# n      = total sample size
# z      = z score (defaults to 1.96 = 95 % confidence interval)
# digits = number of decimal places to be used (defaults to 2) 

moe <- function(p, n, z=1.96, digits=2) {
  if(p > 1) { stop("p must be a proportion. For example, for 30 % use p = 0.30") }
  error <- z * (sqrt(p * (1 - p) / n)) * 100                                    # Calculate margin of error.
  conf.level <- round(100 - (pnorm(z, lower.tail=FALSE) * 2) * 100, 0)          # Convert z to confidence level (two-tailed).

peterdalle

# r till d
rlist <- seq(0, 1, by=0.01)
dlist <- list()
i <- 0

for (r in rlist) {
  i <- i + 1
  dlist[i] <- sqrt(4 * r ^ 2) / (1 - r ^ 2)
}
dlist <- unlist(dlist)

peterdalle

GRANT ALL PRIVILEGES ON *.* TO 'root'@'%';
UPDATE mysql.user
    SET authentication_string = PASSWORD('root'), password_expired = 'N'
    WHERE User = 'root' AND Host = '%';
FLUSH PRIVILEGES;

peterdalle

å - \aa
ä - \"{a}
ö - \"{o}
Å - \AA
Ä - \"{A}
Ö - \"{O}

peterdalle

#!/usr/bin/bash
find . -name 'Kommentarer.txt' -print0 | xargs -0 grep "Betyg: VG" | wc -l

peterdalle

# Install R kernel for Jupyter Notebooks, run this via R/RStudio

install.packages(c('repr', 'IRdisplay', 'evaluate', 'crayon', 'pbdZMQ', 'devtools', 'uuid', 'digest'))
devtools::install_github('IRkernel/IRkernel')
IRkernel::installspec()