aL3xa

#!/bin/bash

FILEBASE=${1%.*}
FILEXT=${1##*.}
FILEPATH=${1%/*}

TEXFILE=$FILEBASE.tex
PDFFILE=$FILEBASE.pdf

# errorexit

aL3xa

;; start the timer
(defvar *emacs-load-start* (current-time))

;; Package repos
(require 'package)
;; MELPA
(add-to-list 'package-archives
	     '("melpa" . "http://melpa.milkbox.net/packages/") t)
(package-initialize)
(global-set-key (kbd "C-c p") 'list-packages)

aL3xa

grade_questionnaire <- function(dtf, n.items, item.ind = NULL, scale.names, scale.labels = NULL, start = 1:length(scale.names), end = n.items, jump, rev.ind = NULL, rev.fn = NULL, total = FALSE, total.name = NULL, allowed.values = NULL, pre.process.fn = NULL, na.rm = FALSE, ...){

  d <- subset(dtf, ...)                 # create subset if any

  nc <- ncol(d)                         # number of columns
  ## number of columns sanity check
  if (nc != n.items)
    stop(sprintf("Incorrect number of items! %d items required, while %d were provided!", n.items, nc))

  ## check scale labels

aL3xa

// homepage = "http://www.google.com";

// set default webjump
read_url_handler_list = [read_url_make_default_webjump_handler("google")];
// possibly valid URL
function possibly_valid_url (str) {
    return (/[\.\/:]/.test(str)) &&
        !(/\S\s+\S/.test(str)) &&
        !(/^\s*$/.test(str));
}

aL3xa

corstar <- function(x, y = NULL, use = "pairwise", method = "pearson", round = 3, row.labels, col.labels, ...) {
  
  require(psych)

  ct <- corr.test(x, y, use, method)    # calculate correlation
  r <- ct$r                             # get correlation coefs
  p <- ct$p                             # get p-values

  stars <- ifelse(p < .001, "***", ifelse(p < .01, "** ", ifelse(p < .05, "*  ", "   "))) # generate significance stars
  

aL3xa

> set.seed(1)
> шушумига <- rnorm(10)
> шушумига
 [1]  0.7996718 -0.9688060 -0.1634763 -1.1242522 -1.5689024 -0.6055469
 [7] -0.3446827 -0.8229724 -0.6148953  2.5545790

> set.seed(1)
> ( blah <- factor(sample(c("један", "два", "три"), 100, replace = TRUE)) )
  [1] један два   два   три   један три   три   два   два   један један један
 [13] три   два   три   два   три   три   два   три   три   један два   један