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(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") |
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(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") |
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(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", ...) |
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(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="\\") |
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
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) | |
} |
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(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) |
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(httr) | |
library(digest) | |
library(XML) | |
s3_request <- function(verb, bucket, path = "/", query = NULL, | |
content = NULL, date = NULL) { | |
list( | |
verb = verb, | |
bucket = bucket, | |
path = path, |
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
# 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() |
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
# 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) |
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
OlderNewer