nniiicc

Articles / News Items / Related Projects

• Paris Review: A brief history of open data
• Seattle's Open Tree Map
• Guardian article on use of open data during floods
• Open Data for Resilience

Open Climate Data Resources

[besides climate.data.gov]

nniiicc

TL;DR - Citations are a terrible technology for evaluation ... equally important is the design of novel alternatives

Why do people cite papers? Eugene Garfield (1996) offers a broad list of reasons:

• Paying homage
• Giving credit
• Identifying methodology
• Background reading
• Correcting own work
• Correcting other’s work

nniiicc

filename = "/Users/nicholasweber/Desktop/JournalDat.csv"
mydata = read.csv(filename)
attach(mydata)
requests = ifelse(Policy.request...require.code > 0, 1, 0)
ImFa = Impact.Factor
ImFa[ImFa==0] = NA
hist(ImFa)
summary(ImFa)
SomeOA = ifelse(Subscription.Model == "Sub", 0, 1)
table(SomeOA)

nniiicc

filename = "/Users/nicholasweber/Desktop/JournalDat.csv"
mydata = read.csv(filename)
attach(mydata)
requests = ifelse(Policy.request...require.code > 0, 1, 0)
ImFa = Impact.Factor
ImFa[ImFa==0] = NA
hist(ImFa)
summary(ImFa)
SomeOA = ifelse(Subscription.Model == "Sub", 0, 1)
table(SomeOA)

nniiicc

mydata <- read.csv("~/Desktop/JournalData.csv")
attach(mydata)
names(mydata)

how.cite.data.var = Cite.data.code
how.cite.data.var [how.cite.data.var>1] = 1

mylogit<- glm(how.cite.data.var~Impact.Factor+Policy.request...require.code, family=binomial(link="logit"), na.action=na.pass)

summary(mylogit)

nniiicc

journdat = read.csv("/Users/JournalData.csv", as.is=TRUE, na.strings="N/A")

journdat$required.sharing = 0
journdat$required.sharing[journdat$Policy.request...require.code > 1] = 1


journdat$is.Environmental.Sciences = 0
journdat$is.Environmental.Sciences[grep("*Environmental Sciences*", journdat$ISI.Category)] = 1 
journdat$is.Ecology = 0
journdat$is.Ecology[grep("*Ecology*", journdat$ISI.Category)] = 1 ## ditto from above, remember journals have more than one category classification

nniiicc

journdat = read.csv("/Users/nicholasweber/Desktop/Finished DataSets/JournalData.csv", as.is=TRUE, na.strings="N/A")

journdat$affil.var = journdat$Affiliation.Code
journdat$affil.var[journdat$affil.var>1] = 1 

journdat$is.Environmental.Sciences = 0
journdat$is.Environmental.Sciences[grep("*Environmental Sciences*", journdat$ISI.Category)] = 1 ## way of making EnvSci as a category into a varaible in order to add it to our plot
journdat$is.Ecology = 0
journdat$is.Ecology[grep("*Ecology*", journdat$ISI.Category)] = 1 ## ditto from above, remember journals have more than one category classification
journdat$is.Evolutionary.Biology = 0

nniiicc

dotchart2.CIs = 
function (data, labels, groups = NULL, gdata = NA, horizontal = TRUE, 
    pch = 16, xlab = "", ylab = "", auxdata, auxgdata = NULL, 
    auxtitle, lty = if (.R.) 1 else 2, lines = TRUE, dotsize = 0.8, 
    cex = par("cex"), cex.labels = cex, cex.group.labels = cex.labels * 
        1.25, sort. = TRUE, add = FALSE, dotfont = par("font"), 
    groupfont = 2, reset.par = add, xaxis = TRUE, width.factor = 1.1, 
    lcolor = if (.R.) "gray" else par("col"), ...) 
{
    if (.R. && !add) {

nniiicc

journdat = read.csv("filename", as.is=TRUE, na.strings="N/A")

journdat$requires = 0
journdat$requires[journdat$Policy.request...require.code > 1] = 1

journdat$is.Environmental.Sciences = 0
journdat$is.Environmental.Sciences[grep("*Environmental Sciences*", journdat$ISI.Category)] = 1 ## way of making EnvSci as a category into a varaible in order to add it to our plot
journdat$is.Ecology = 0
journdat$is.Ecology[grep("*Ecology*", journdat$ISI.Category)] = 1 ## ditto from above, remember journals have more than one category classification
journdat$is.Evolutionary.Biology = 0

nniiicc

#JournalStats

journdat = read.csv("filename", as.is=TRUE, na.strings="N/A")
journdat$simple.var = journdat$Policy.request...require.code ## Renames field to simple.var
journdat$simple.var[journdat$simple.var>1] = 1 ## Turns all fields >1 into 1 for sake of simple variable of request / required code

##Categories

journdat$is.Environmental.Sciences = 0
journdat$is.Environmental.Sciences[grep("*Environmental Sciences*", journdat$ISI.Category)] = 1 ## way of making EnvSci as a category into a varaible in order to add it to our plot