coleoguy

slideFunct <- function(data, window, step){
  total <- length(data)
  spots <- seq(from = 1, to = (total - window + 1), by = step)
  result <- vector(length = length(spots))
  for(i in 1:length(spots)){
    result[i] <- mean(data[spots[i]:(spots[i] + window - 1)])
  }
  return(result)
}

sebkopf

Installation information for R with GTK+

Windows

Install the newest version of R. Additionally, I highly recommend R-Studio for working with R regularly (but the basic command line will work just fine for most applications). Once R is installed, you can install GTK directly from within R (details below). In short:

• install R for Windows
• optional but recommended: install R-Studio
• install GTK+

1. From the R command line (e.g. in R-Studio), install the RGtk2 package by running: install.packages("RGtk2", depen=T)
   This might fail with the warning that package ‘RGtk2’ is not available (for R version xxx) if your version of R has been released very recently. If so, just run install.packages("RGtk2", depen=T, type="source") instead to install the RGtk2 package directly from its source code (this might take a few

swayson

# script stolen from http://goo.gl/YbQyAQ

# install.packages("tm")
# install.packages("ggplot2")
# install.packages("lsa")
# install.packages("scatterplot3d")
#install.packages("SnowballC")
#if !(require('SnowballC')) then install.packages("SnowballC")
library(tm)
library(ggplot2)

stig

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">

<!--
ABOUT:
    Clojure language module based on the newlisp package by
    Seth Dillingham <seth.dillingham@gmail.com>
	  and Pete B. Anonymous.

tuananh

---
layout: default
title: Archive
---

<div class="post">
	<h2>Archive</h2>
	<ul>
	  {% for post in site.posts %}
	    {% unless post.next %}

johndharrison

library(RJSONIO)
shinyServer(function(input, output, session) {
  
  output$test <- renderUI({
    noPoints <- as.integer(input$obs)
    series <- toJSON(cbind(seq(88, 266, by = (266-88)%/%(noPoints-1)), 113))
    
    tags$script(HTML(
      paste0("$(document).ready(function () {
            

fractaledmind

(* EXPORT ALL SKIM NOTES TO EVERNOTE WITH HYPERLINKS

-- Stephen Margheim
-- 9/7/13
-- open source

REQUIRED PROGRAMS:
- Skim (pdf viewer and annotator)
- Evernote (cloud based note app)

6174

 //http://stackoverflow.com/questions/105034/how-to-create-a-guid-uuid-in-javascript
 Math.random().toString(36).substring(2, 15) + Math.random().toString(36).substring(2, 15);

don1138

/* Modern Font Stacks */

/* System */
font-family: system, -apple-system, ".SFNSText-Regular", "San Francisco", "Roboto", "Segoe UI", "Helvetica Neue", "Lucida Grande", sans-serif;

/* System (Bootstrap 5.2.0) */
font-family: system-ui, -apple-system, "Segoe UI", Roboto, "Helvetica Neue", "Noto Sans", "Liberation Sans", Arial, sans-serif, "Apple Color Emoji", "Segoe UI Emoji", "Segoe UI Symbol", "Noto Color Emoji";

/* Times New Roman-based serif */
font-family: Cambria, "Hoefler Text", Utopia, "Liberation Serif", "Nimbus Roman No9 L Regular", Times, "Times New Roman", serif;

wch

max_plots <- 5

ui <- fluidPage(

  headerPanel("Dynamic number of plots"),

  sidebarPanel(
    sliderInput("n", "Number of plots", value=1, min=1, max=5)
  ),