aa989190f363e46d

library("igraph")
library("plyr")
library("HiveR")
library("RColorBrewer")
############################################################################################
rm(list = ls())

dataSet <- read.table("lesmis.txt", header = FALSE, sep = "\t")

############################################################################################

aa989190f363e46d

---
title: "Иллюстрация парадокса Симпсона"
author: "mz"
date: '`r Sys.time()`'
output:
  html_document: default
  pdf_document:
    keep_tex: yes
header-includes: \usepackage[T1,T2A]{fontenc}
---

aa989190f363e46d

---
title: "ДИ медианы"
author: "mz"
date: '`r Sys.time()`'
output:
  html_document: default
  pdf_document:
    keep_tex: yes
header-includes: \usepackage[T1,T2A]{fontenc}
---

aa989190f363e46d

# -*- coding: utf-8 -*-

'''
source: http://p.jugregator.org/45e4612a-e851-11e1-b718-001c14011f11
'''

import json
import random
import string
from twisted.internet import reactor

aa989190f363e46d

# Usage: find Harry.Potter.* -name *.mkv -exec convert_dlna_ready_mkv {} ";"

echo "Processing file: $1"

FFMPEG_INFO_FILE='ffmpeg-info'

OUTPUT_FILE=`echo "$1" | sed 's/\(.*\)\.mkv$/\1-lo.mkv/'`

ffmpeg -i "$1" 2>$FFMPEG_INFO_FILE

aa989190f363e46d

/* demo.css */

.axis {
  stroke:               #000;
  stroke-width:         1.5px;
}


#demo_1 svg, #demo_2 svg          { border:         solid 1px #ccc; }

aa989190f363e46d

;;;; regenerate.lisp - script for regenerating [redacted] static HTML from template files.

(ql:quickload "cl-emb")
(ql:quickload "cl-fad")
(ql:quickload "cl-ppcre")

(defparameter *configuration* '() "plist containing config parameters passed to EMB templates.")
(defparameter *essays* '() "plist containing essay descriptors generated by `defessay'.")
(defconstant +default-properties+ '(:title nil :url nil :orig-title nil :orig-url nil :date nil :orig-date nil :alt-translations nil :translators nil :editors nil :disabled nil :additional-html nil :part-of-hnp nil :description ""))

aa989190f363e46d

library('dplyr')
library('corrplot')

d = read.csv("data.csv", sep = ";", skip = 1) # загружаем данные

# присваиваем удобочитаемые имена
names(d) <- c("time"  , "oil"     , "gold"     , "iron"   , "logs",
             "maize"  , "beef"    , "chicken"  , "gas"    , "liquid_gas",
             "tea"    , "tobacco" , "wheat"    , "sugar"  , "soy", 
             "silver" , "rice"    , "platinum" , "cotton" , "copper", 

aa989190f363e46d

DATA_ROOT < 'UCI HAR Dataset'
curr.sep <- .Platform[['file.sep']]

read.commons <- function(){

  act.labels <<- read.table(paste(DATA_ROOT
                                ,'activity_labels.txt'
                                , sep=curr.sep)
    ,sep=' '
    ,col.names=c('index','name'))

aa989190f363e46d

<!--
%\VignetteEngine{knitr}
%\VignetteIndexEntry{Introduction to dplyr}
-->

```{r, echo = FALSE, message = FALSE}
library(dplyr)
library(ggplot2)
knitr::opts_chunk$set(
  comment = "#>",