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("igraph") | |
library("plyr") | |
library("HiveR") | |
library("RColorBrewer") | |
############################################################################################ | |
rm(list = ls()) | |
dataSet <- read.table("lesmis.txt", header = FALSE, sep = "\t") | |
############################################################################################ |
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
--- | |
title: "Иллюстрация парадокса Симпсона" | |
author: "mz" | |
date: '`r Sys.time()`' | |
output: | |
html_document: default | |
pdf_document: | |
keep_tex: yes | |
header-includes: \usepackage[T1,T2A]{fontenc} | |
--- |
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
--- | |
title: "ДИ медианы" | |
author: "mz" | |
date: '`r Sys.time()`' | |
output: | |
html_document: default | |
pdf_document: | |
keep_tex: yes | |
header-includes: \usepackage[T1,T2A]{fontenc} | |
--- |
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
# -*- coding: utf-8 -*- | |
''' | |
source: http://p.jugregator.org/45e4612a-e851-11e1-b718-001c14011f11 | |
''' | |
import json | |
import random | |
import string | |
from twisted.internet import reactor |
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
# 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 |
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
/* demo.css */ | |
.axis { | |
stroke: #000; | |
stroke-width: 1.5px; | |
} | |
#demo_1 svg, #demo_2 svg { border: solid 1px #ccc; } |
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
;;;; 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 "")) |
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('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", |
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
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')) |
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
<!-- | |
%\VignetteEngine{knitr} | |
%\VignetteIndexEntry{Introduction to dplyr} | |
--> | |
```{r, echo = FALSE, message = FALSE} | |
library(dplyr) | |
library(ggplot2) | |
knitr::opts_chunk$set( | |
comment = "#>", |
NewerOlder