juba

library(dplyr)

d <- data.frame(x=rnorm(10), y=runif(10))

tab <- t(sapply(d, function(v) return(list(min=min(v), 
                                           "1st q"=quantile(v, 0.25), 
                                           median=median(v), 
                                           max=max(v)))))
tab <- data.frame(tab)
tab$name <- rownames(tab)

juba

library(questionr)
library(FactoMineR)
library(dplyr)
library(imva)
library(ggplot2)

## Jeu de données d'exemple
data(hdv2003)
d <- hdv2003 %>% select(sexe, qualif, cuisine, sport, bricol, freres.soeurs, relig)

juba

<BOUCLE_liste_halspub_typdoc(HALS_PUBLICATIONS){id_hal IN #GET{the_hals}}{!par date_production,titre}{doublons recents}{0,#NBPUB}>
     <BOUCLE_liste_halspub_affichage(HALS_PUBLICATIONS){!doublons recents}{!par typdoc}>
          [<h3>(#TYPDOC|unique)</h3>]
          <ul>  
	    [<li>(#HAL_COMPLET|traite_hal_complet)</li>]
	  </ul>
     </BOUCLE_liste_halspub_affichage>
</BOUCLE_liste_halspub_typdoc>

juba

$( document ).ready(function() {

    $.ajaxSetup({
        async: false
    });

    var cloudmadeUrl = 'http://{s}.tile.cloudmade.com/578c9ac0054b437cb5a9e36f5aed5bea/{styleId}/256/{z}/{x}/{y}.png',
        cloudmadeAttribution = 'Map data © 2012 OpenStreetMap contributors, Imagery © 2011 CloudMade';

    var minimal   = L.tileLayer(cloudmadeUrl, {styleId: 22677, attribution: cloudmadeAttribution}),

juba

##' Get code block from a SO question
##' 
##' @param id question id 
##' @param index index of the code block to return (one number only)
##' @param cat.output cat the content of the code blocks
##' @import XML
##' @export
get.so <- function (id, index=NULL, cat.output=FALSE) { 
  doc <- htmlParse(paste("http://stackoverflow.com/questions/",id,sep=""))
  pre.index <- ifelse(is.null(index), "", paste("[",as.character(index),"]",sep=""))

juba

## Fonction pour le tri à plat "combiné" d'une série de variables binaires
## Arguments :
## - df : data frame
## - varnames : vecteur contenant le nom des variables binaires
## - true.codes : liste contenant des valeurs supplémentaires considérées comme "vraies"
##   (par défaut TRUE et 1 sont considérées comme vraies)
## - weights: nom de la variable de pondération des lignes (facultatif)

table.multi <- function(df, varnames, true.codes=NULL, weights=NULL) {
  true.codes <- c(as.list(true.codes), TRUE, 1)

juba

#!/usr/bin/python

import csv
import datetime
import sys
import StringIO

from genshi.template import MarkupTemplate

class Bunch(object):

juba

<SearchPlugin xmlns="http://www.mozilla.org/2006/browser/search/" xmlns:os="http://a9.com/-/spec/opensearch/1.1/">                                                                             
<os:ShortName>Seeks Local</os:ShortName>                                                                                                                                                       
<os:Description>Real-time p2p pattern matching network for social websearch.</os:Description>                                                                                                  
<os:InputEncoding>UTF-8</os:InputEncoding>                                                                                                                                                     
<os:Image width="16" height="16">data:image/x-icon;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAAwwAAAMMBnc7+MwAAABl0RVh0U29mdHdhcmUAd3d3Lmlua3NjYXBl\
Lm9yZ5vuPBoAAAJCSURBVDiNpZJLSFRxGMV/f2fGGWcc8zI6U5qSmmVPyIW0kURo