Rafik Margaryan raffdoc
timelyportfolio
/ server.r
Created
November 9, 2012 15:30
Example to Test Parameters on Moving Average System
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
| #almost entirely based on the 02_text and 03_mpg examples provided by RStudio Shiny | |
| #all credit belongs to them | |
| if (!require(PerformanceAnalytics)) { | |
| stop("This app requires the PerformanceAnalytics package. To install it, run 'install.packages(\"PerformanceAnalytics\")'.\n") | |
| } | |
| if (!require(quantmod)) { | |
| stop("This app requires the quantmod package. To install it, run 'install.packages(\"quantmod\")'.\n") |
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
| sex | ageYear | ageMonth | heightIn | weightLb | |
|---|---|---|---|---|---|
| f | 11.91667 | 143 | 56.3 | 85 | |
| f | 12.91667 | 155 | 62.3 | 105 | |
| f | 12.75 | 153 | 63.3 | 108 | |
| f | 13.41667 | 161 | 59 | 92 | |
| f | 15.91667 | 191 | 62.5 | 112.5 | |
| f | 14.25 | 171 | 62.5 | 112 | |
| f | 15.41667 | 185 | 59 | 104 | |
| f | 11.83333 | 142 | 56.5 | 69 | |
| f | 13.33333 | 160 | 62 | 94.5 |
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
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("ReadImages", "reshape", "ggplot2") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| # Image URL: | |
| allImageURLs <- c("http://media.charlesleifer.com/blog/photos/thumbnails/akira_940x700.jpg", | |
| "http://upload.wikimedia.org/wikipedia/commons/thumb/e/ec/Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg/402px-Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg", | |
| "http://upload.wikimedia.org/wikipedia/commons/thumb/e/e9/Official_portrait_of_Barack_Obama.jpg/441px-Official_portrait_of_Barack_Obama.jpg", | |
| "http://cache.boston.com/universal/site_graphics/blogs/bigpicture/obama_11_05/obama22_16604051.jpg", |
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
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("jpeg", "reshape2", "ggplot2") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| # Image URL: | |
| allImageURLs <- c("http://media.charlesleifer.com/blog/photos/thumbnails/akira_940x700.jpg", | |
| "http://upload.wikimedia.org/wikipedia/commons/thumb/e/ec/Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg/402px-Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg", | |
| "http://upload.wikimedia.org/wikipedia/commons/thumb/e/e9/Official_portrait_of_Barack_Obama.jpg/441px-Official_portrait_of_Barack_Obama.jpg", | |
| "http://cache.boston.com/universal/site_graphics/blogs/bigpicture/obama_11_05/obama22_16604051.jpg", |
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
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("ReadImages", "reshape", "ggplot2") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| # Image URL: | |
| allImageURLs <- c("http://media.charlesleifer.com/blog/photos/thumbnails/akira_940x700.jpg", | |
| "http://upload.wikimedia.org/wikipedia/commons/thumb/e/ec/Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg/402px-Mona_Lisa%2C_by_Leonardo_da_Vinci%2C_from_C2RMF_retouched.jpg", | |
| "http://upload.wikimedia.org/wikipedia/commons/thumb/e/e9/Official_portrait_of_Barack_Obama.jpg/441px-Official_portrait_of_Barack_Obama.jpg", | |
| "http://cache.boston.com/universal/site_graphics/blogs/bigpicture/obama_11_05/obama22_16604051.jpg", |
mages
/ KnitMarkdownExample.R
Created
October 28, 2012 15:41
Download markdown file from github and process it with knitr in R
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(googleVis) ## Version >= 0.3.2 required | |
| library(knitr) | |
| library(markdown) | |
| library(RCurl) | |
| ## URL to the Markdown example file on github:gist | |
| gist <- "https://raw.github.com/gist/3968910/4633a98fdc5193eb7da156059d182e61ccbfd4a8/MarkdownExampleWithGoogleVis.Rmd" | |
| knitrRmd <- paste(readLines(textConnection(getURL(gist))), collapse="\n") | |
| ## Write the content of knitrRmd into a Rmd-file, knit it and convert it | |
| ## into a html output. Finally show the file with the R-help http |
mages
/ MarkdownExampleWithGoogleVis.Rmd
Created
October 28, 2012 15:30
Markdown example with knitr and googleVis
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
| # Markdown example with knitr and googleVis | |
| =========================================== | |
| This is a little Markdown example file. | |
| Set the googleVis options first. | |
| In this case change the behaviour of plot.gvis | |
| ```{r setOptions, message=FALSE} | |
| library(googleVis) | |
| op <- options(gvis.plot.tag='chart') | |
| ``` | |
| The following plot statements will automatically return the HTML |
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
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("foreign", "ggplot2", "devtools") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| source_gist("https://gist.github.com/818983") | |
| source_gist("https://gist.github.com/818986") | |
| source_gist("https://gist.github.com/818998") | |
| # Get NOMINATE data from voteview.org |
dsparks
/ flag_plot.R
Created
October 21, 2012 15:30
Replicating / improving http://shaheeilyas.com/flags/
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
| # Replicating / improving http://shaheeilyas.com/flags/ | |
| # Drawing a scatter plot of raster images | |
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("png", "reshape", "ggplot2", "MASS") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| # Go to https://www.gosquared.com/resources/2400-flags, download the ZIP, | |
| # and put the 64 x 64 files into a directory of your choosing. |
dsparks
/ Visually-weighted regression.R
Created
September 12, 2012 19:52
Visually-weighted regression plot, including simulation from a model
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
| # A simple approach to visually-weighted regression plots | |
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("ggplot2", "reshape2", "MASS") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| # Generate some data: | |
| nn <- 1000 | |
| myData <- data.frame(X = rnorm(nn), |