guilespi

select TagName, 
       avg(cast(ResponseTime as bigint)) as Average,
       stdev(cast(ResponseTime as bigint)) as StandardDev
from 
  (SELECT
         Questions.CreationDate, 
         Questions.Title, 
         Tags.TagName,
         Answers.CreationDate as ResponseDate,
         datediff(minute, Questions.CreationDate, 

guilespi

(ns notify-blaster.models.validation.core)

(def ^{:dynamic true} *is-unique?* (fn [value] false))
(def ^{:dynamic true} *default-messages* {:unique "Value %s is aready taken, please choose another one"
                                          :required "Field is required"
                                          :min-length "Field is shorter than required"
                                          :max-length "Field is longer than required"
                                          :range "Field value %s is not in range"
                                          :email "Field must be a valid email address"
                                          :matches "Fields do not match"})

guilespi

(ns notify-blaster.models.validation.user)

(def rules
  { :username  {:validations
                {:required true
                 :unique true
                 :max-length 50}
                :messages
             {:required "User name is required"
              :unique "User name %s is already in use, please choose another one"

guilespi

(ns dispatchers.call
  (:require [clj-asterisk.manager :as manager]
            [clj-asterisk.events :as events]
            [dispatchers.model :as model])
  (:import java.util.UUID))

;; Signal the end of the call to the waiting promise in order to
;; release the channel
(defmethod events/handle-event "Hangup"
  [event context]

guilespi

> viviendas <- read.table("Viviendas.dat", header=T, sep="\t")

> head(viviendas)
  DPTO LOC SECC SEGM VIVID VIVVO01 VIVVO03 VIVVO04 VIVDV01 VIVDV02 VIVDV03 VIVDV05 VIVDV06 VIVDV07 VIVHV01 VIVHV01_1 CATEVIV
1    1  20    1    1     1       9       3       2       0       0       0       0       0       0       0         0       0
2    1  20    1    1     2       1       4       0       0       0       0       0       0       0       0         0       0
3    1  20    1    1     3       3       1       0       1       1       1       1       1       1       1         1       1
4    1  20    1    1     4       3       1       0       1       1       1       1       1       1       1         1       1
5    1  20    1    1     5       3       1       0       1       1       1       1       1       1       1         1       1
6    1  20    1    1     6       1       6       0       0       0       0       0       0       0       0         0       0

guilespi

<?php
  //Main script settings
	$CALL_ERROR_MSG = "Sorry, but I could not connect your call. Please try again later";
	
	$ALT_CALLER_ID = "";

	if (substr($CALLER_ID, 0, 3)=="011") {
		$CALLER_ID = "00" . substr($CALLER_ID, 3);
	}
	

guilespi

(defn analisis1
  [students approval-rate]
  (let [total (count students)
        expected-approvals (* total approval-rate)]
    (loop [examined students iterations 0]
      (let [remaining (- total (count examined))]
        (if (< remaining expected-approvals)
          (let [approved (* (count examined) 0.1)]
            (recur (drop (int approved) examined) (inc iterations)))

guilespi

library(ggplot2)
library(reshape2)
results <- read.csv("/Users/guilespi/Downloads/practico 3 - datos - mutagenesis.csv")
results$NroGrupo <- paste(results$Grupo, ".", results$Subgrupo)

timedMeasures <- melt(results, id.vars = c("Grupo", "Subgrupo", "NroGrupo", "Hongo", "Distancia", "Potencia"), value.name="Colonias", variable.name="Tiempo")
ggplot(timedMeasures, aes(x = Tiempo, y = Colonias, colour = NroGrupo)) + geom_line(aes(group = NroGrupo))

results$sobrevida <- (results$t5 / results$t0) * 100
ggplot(data=results, aes(x=NroGrupo, y=sobrevida, fill=Potencia)) +

guilespi

  
(defn maybe-word
  [s]
  (if (= "" s) [] [s]))

(defprotocol WordState 
  (append-chunk [this chunk] "Append a chunk to current word state")
  (append-segment [this segment] "Append a segment to current word state")
  (to-word-list [this] "Returns the state as a list of words"))

guilespi

(def conv-table (sorted-map 1 :I
                            4 :IV
                            5 :V
                            9 :IX
                            10 :X
                            40 :XL
                            50 :L
                            90 :XC
                            100 :C
                            400 :CD