Skip to content

Instantly share code, notes, and snippets.

View simecek's full-sized avatar

Petr Simecek simecek

69 followers · 2 following
View GitHub Profile
@simecek
simecek / IMGC14_twitter_analysis.R
Last active August 29, 2015 14:08
Analysis of #IMGC14 tweets
library(twitteR)
library(tm)
library(wordcloud)
library(RColorBrewer)
library(dplyr)
library(ggplot2)
# load tweets
download.file("ftp://ftp.jax.org/petrs/other/IMGC14.rds", destfile = "IMGC14_tweets.rds", mode="wb")
tweet <- readRDS("IMGC14_tweets.rds")
@simecek
simecek / iplot_example.R
Created February 11, 2015 17:20
Example of iplot usage
library(testjs)
dataset <- readRDS("click_on_ggvis\\DO_liver_variability_sex.rds")
head(dataset)
out <- with(dataset, iplot(x=protein.Sex, y=mrna.Sex, indID=Associated.Gene.Name,
chartOpts=list(width=300, height=300)))
out
htmlwidgets::saveWidget(out, "iplot.html")
@simecek
simecek / start_course_RStudios.R
Last active August 29, 2015 14:21
For each participant, start RStudio with DOQTL preinstalled and send the email
library(analogsea) # to access Digital Oceal
library(sendmailR) # to send emails
library(parallel)
library(doParallel)# foreach parallelization
# Sys.setenv(DO_PAT = "*****")
# Set list of participants' emails
# email_list <- c("first_email@gmail.com", "second_email@gmail.com", ...)
@simecek
simecek / pim.R
Created November 23, 2011 17:29
Prague Half Marathon 2010
library(xlsReadWrite)
library(MASS)
### DATA DOWNLOAD
dir.name <- tempdir()
url2010 <- "http://www.praguemarathon.com/images/stories/articles/files/HM2010/HM2010_eng.xls"
file <- paste(dir.name, "2010.xls", sep="\\")
@simecek
simecek / get.dropbox.folder.r
Created August 8, 2012 14:39
Get Dropbox Folder
get.dropbox.folder <- function() {
if (!require(RCurl)) stop ("You need to install RCurl package.")
if (Sys.info()["sysname"]!="Windows") stop("Currently, 'get.dropbox.folder' works for Windows only. Sorry.")
db.file <- paste(Sys.getenv('APPDATA'), '\\Dropbox\\host.db', sep='')
base64coded <- readLines(db.file, warn=FALSE)[2]
base64(base64coded, encode=FALSE)
}
@simecek
simecek / iplot_bug_example.R
Created November 10, 2015 23:52
Minimal example for iplot axis and title overplotting
library(shiny)
library(qtlcharts)
server <- function(input, output) {
output$interactivePlot <- iplot_render({
x <- rnorm(26) * ifelse(input$graphType == "higher values", 10, 1)
y <- rnorm(26) * ifelse(input$graphType == "higher values", 10, 1)
p1 <- iplot(x=x, y=y, indID = LETTERS,
chartOpts = list(title = input$graphType))
return(p1)
@simecek
simecek / s3.r
Created May 7, 2013 15:39 — forked from hadley/s3.r
library(httr)
library(digest)
library(XML)
s3_request <- function(verb, bucket, path = "/", query = NULL,
content = NULL, date = NULL) {
list(
verb = verb,
bucket = bucket,
path = path,
@simecek
simecek / scatterplot.R
Last active December 31, 2015 16:48
Ggplot2 scatterplot
# load dataset
dataset <- read.csv("http://dl.dropboxusercontent.com/u/232839/DO_liver_variability_sex.csv", as.is=TRUE)
head(dataset)
# make plot
library(ggplot2)
ggplot(aes(y=protein.Sex, x=mrna.Sex), data=dataset) +
geom_point(alpha=0.2, size=I(5)) +
geom_smooth(method=loess) +
ggtitle("Variability Explained by Sex") + theme_bw()
@simecek
simecek / click_on_ggvis.R
Created February 11, 2015 16:48
Interactive scatterplot
# Example of ggvis scatterplot
# on over - display MGI gene symbol
# on click - open browser with Ensembl page
library(ggvis)
# load dataset
dataset <- read.csv("http://dl.dropboxusercontent.com/u/232839/DO_liver_variability_sex.csv", as.is=TRUE)
head(dataset)
@simecek
simecek / Management+of+Twitter+Account.ipynb
Last active March 31, 2017 05:22
Managing Twitter Account With Tweepy
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.