kjgarza

library(XML)
library(RCurl)
library(reldist)
library(data.table)
rm(list = ls())
library(psychometric)

#gets meta about the all the projects in SEEK
getProjects <- function(){
	all <- getURL("https://seek.sysmo-db.org/projects.xml?page=all")

kjgarza

kjgarza

response,treatment,sequence,period,subject,age_group
3,A,AB,1,c2026cc168583afd72bbfbb284c0f1e9,1
1,A,AB,1,9f739b36a1f91569017b5ab36be07f7f,1
4,A,AB,1,2bd5b76b8fac74b062c1a99c9bbc0a75,2
4,A,AB,1,3ea2814b0443687ea2400e6c1726d7ab,2
4,A,AB,1,4d9db524466a6d05f29fb721f842de77,2
2,A,AB,1,52d3867f738f6cff74269cf62e3b7251,2
4,A,AB,1,5b114f95a429eb982fc0b378c64a23f9,2
4,A,AB,1,690e88138d83a8ec5fea4230b364aae0,2
4,A,AB,1,6fd7664989b2b16f85c63169595bb66e,2

kjgarza

kjgarza

exports.main = function() {
    require("widget").Widget({
        id: "widgetID1",
        label: "My Mozilla Widget",
        contentURL: "http://www.mozilla.org/favicon.ico",
        onClick: function(event) {

            var XMLHttpRequest =  require("xhr");
            var request = new XMLHttpRequest();
            request.open("GET", "http://www.myexperiment.org/search.xml?query=goble", false);

kjgarza

var publ = document.querySelectorAll(".gs_a");
var dl =[];
for(i=0; i<publ.length; i++) {
   var n  = (publ[i].innerHTML).split("-");
   dl[i] = n[1];
} 
    
var result = {}, max = 0, res;
for(var v in dl) {
  result[dl[v]] = (result[dl[v]] || 0) + 1;

kjgarza

var publ = document.querySelectorAll(".gs_rt");
var dl =[];
for(i=0; i<publ.length; i++) {
   var n  = publ[i].textContent;
   dl[i] = n;
} 
    

console.log(dl);

kjgarza

y1 <- read.csv(file="/Users/kristian/Documents/statementforR.csv",sep=",",head=TRUE)

#y2 <- y1[y1$item == 'LIDL UK MANCHESTER',]


y3 <- y1[grep("CASH", y1$item), ]


plot(as.Date(y1$date, format='%d/%m/%Y'),y1$debit,type="l", col="blue", xlab="Time", ylab="Debit", ylim=range(c(y1$debit,y2$debit)), xlim=range(c(as.Date(y1$date, format='%d/%m/%Y'),as.Date(y2$date, format='%d/%m/%Y'))))

kjgarza

var json =
{
    "max":196419,
    "buckets":
    [
        {
            "d":1346835600,
            "i":
            [
                [

kjgarza

var auth = "Floridi"
var authors = document.querySelectorAll(".gs_a");
var c = 0;

for(i=0; i<authors.length; i++) {
   var name = authors[i].innerHTML;
    if (name.indexOf(auth) != -1){
        c++;
    }
}