Josef Šlerka josefslerka
This file contains hidden or 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
| https://gdata.youtube.com/feeds/api/videos/zpe4T0lXZcE?v=2&alt=json | |
| value.parseJson()["entry"]["yt$statistics"]["viewCount"] | |
| value.parseJson()["entry"]["yt$rating"]["numLikes"] | |
| value.parseJson()["entry"]["yt$rating"]["numDislikes"] | |
| value.parseJson()["entry"]["author"][0]["name"]["$t"] | |
| value.parseJson()["entry"]["author"][0]["uri"]["$t"] | |
| value.parseJson()["entry"]["author"][0]["yt$userId"]["$t"] |
josefslerka
/ gist:2837367
Created
May 30, 2012 16:20
Google Refine Template for Scrapping Facebook Fan Pages
This file contains hidden or 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
| [ | |
| { | |
| "op": "core/column-addition-by-fetching-urls", | |
| "description": "Create column Facebook at index 2 by fetching URLs based on column URL using expression grel:value", | |
| "engineConfig": { | |
| "facets": [], | |
| "mode": "row-based" | |
| }, | |
| "newColumnName": "Facebook", | |
| "columnInsertIndex": 2, |
This file contains hidden or 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
| [ | |
| { | |
| "op": "core/column-removal", | |
| "description": "Remove column Visual Properties", | |
| "columnName": "Visual Properties" | |
| }, | |
| { | |
| "op": "core/column-removal", | |
| "description": "Remove column Column2", | |
| "columnName": "Column2" |
This file contains hidden or 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
| if(substring(value,0,3)=="RT ", substring(value,3), value) | |
| value.replace(/^RT @\w+:/,' ') |
josefslerka
/ gist:3482942
Created
August 26, 2012 19:35
This file contains hidden or 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
| Pocet shares na Twitteru | |
| http://urls.api.twitter.com/1/urls/count.json?url= | |
| Pocet shares na LinkedInu | |
| http://www.linkedin.com/countserv/count/share?url=http://www.klaboseni.cz&format=json | |
| Pocet shares na Facebooku | |
| http://graph.facebook.com/?id=http://www.klaboseni.cz | |
This file contains hidden or 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
| require 'tweetstream' | |
| require "serialport" | |
| TweetStream.configure do |config| | |
| config.consumer_key = 'xxxx' | |
| config.consumer_secret = 'xxxx' | |
| config.oauth_token = 'xxxx' | |
| config.oauth_token_secret = 'xxxx' | |
| config.auth_method = :oauth | |
| end |
This file contains hidden or 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(tm) | |
| library(textcat) | |
| library(tm) | |
| library(tau) | |
| library(openNLP) | |
| inspect(havel[1:2]) | |
| havel[[1]] #pristup ke konkretnimu dokumentu |
This file contains hidden or 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
| # Normalized Compression Distance | |
| # http://en.wikipedia.org/wiki/Normalized_Compression_Distance | |
| # Quick and dirty implementation | |
| ncd <- function(file1, file2) { | |
| both <- "" | |
| file1 <- toString(file1) | |
| file2 <- toString(file2) | |
| comp1 <- memCompress(file1, type=c(c("bzip2"))) |
This file contains hidden or 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
| # | |
| # | |
| # https://sites.google.com/site/genbiovis/code/network | |
| # | |
| # natazeni knihovny | |
| library(tm) | |
| # nacteni korpusu |
josefslerka
/ Simple MDS
Created
December 12, 2012 13:05
This file contains hidden or 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
| tbl <- read.csv("kv.csv", header=TRUE) | |
| tbl <- subset(tbl, select = -X ) | |
| d <- dist(tbl) | |
| fit <- cmdscale(d,eig=TRUE, k=2) | |
| nazev <- c("Fischer", "Sobotka", "Franz", "Roithová", "Fischerová", "Dientsbier", "Schwarzenberg","Zeman") | |
| x <- fit$points[,1]*(-1) | |
| y <- fit$points[,2] | |
| plot(x, y, xlab="levice - pravice", ylab="konzervativni - liberalni", | |
| main="Podobnost kandidátů podle postojů", type="n", ylim=c(-6,6), xlim=c(-6,6)) | |
| text(x, y, labels = nazev) |