Skip to content

Instantly share code, notes, and snippets.

View rrodrigueznt's full-sized avatar
😁
Maloserá!

Ricardo Rodríguez rrodrigueznt

😁
Maloserá!
View GitHub Profile
@rrodrigueznt
rrodrigueznt / IGFAE.groupsSUG.txt
Created October 6, 2018 18:42
IGFAE.SUGgroups.txt
GI-1493;Grupo Experimental de Núcleos e Partículas;Benlliure Anaya, J.
GI-2033;Teoría e Fenomenoloxía de Partículas, Astropartículas, Campos e Cordas;Miramontes Antas, J.L.
GI-1490;Grupo de Física de Altas Enerxías;Saborido Silva, J.J.
GI-2070;Física Corpuscular e Aplicacións;Fernández Domínguez, B.
ADVANCED INSTRUMENTS FOR DIRECTIONAL DETECTION OF DARK MATTER
ANALYSIS OF LOW ENERGY PROTON-INDUCED REACTIONS OF ASTROPHYSICAL INTEREST
DECIPHERING THE PROPERTIES OF THE PRIMORDIAL MATTER CREATED AT THE CERN-LHC
DEVELOPMENT OF READOUT SYSTEMS FOR SILICON PIXEL DETECTORS
EXPLORING DARK SECTORS WITH THE LHCB EXPERIMENT AT CERN
MEASUREMENT OF CP-VIOLATING OBSERVABLES IN THE ANALYSIS OF CHARMLESS QUASI-TWO-BODY B(S)0#VV DECAYS
MEASUREMENT OF LEPTON FLAVOUR UNIVERSALITY USING SEMITAUONIC B MESONS AND OTHER BEAUTY HADRON DECAYS AT THE LHCB EXPERIMENT
PRECISION CALCULATIONS IN THE COLOR GLASS CONDENSATE: UNRAVELLING THE NON-LINEAR REGIME OF QUANTUM CHROMODYNAMICS AT THE LARGE HADRON COLLIDER
SEARCH FOR NEW PHYSICS IN B-MESON OSCILLATIONS
SHELL EFFECTS AND N/Z ON HIGH-ENERGY FISSION AND QUASI-FISSION
(AU-ID("Adeva, Bernardo" 7006017976) OR AU-ID("Garzón, Juan A." 7006191371) OR AU-ID("Alvarez-Muñiz, Jaime" 6701597328) OR AU-ID("Parente, Gonzalo" 7003729333) OR AU-ID("Vázquez, Ricardo A." 35277458700) OR AU-ID("Zas., Enrique" 12809028600) OR AU-ID("Salgado, Carlos Albert" 7006230418) OR AU-ID("Armesto, Néstor" 7003989243) OR AU-ID("Pajares, Carlos" 7003571361) OR AU-ID("Ferreiro, Elena Gonzalez" 7003882763) OR AU-ID("Merino, Carlos" 7005540374) OR AU-ID("Ramallo, Alfonso V." 6603597993) OR AU-ID("Mas, Javier" 7102288765) OR AU-ID("Edelstein, José Daniel" 7005888197) OR AU-ID("Luis Miramontes, J." 6603922632) OR AU-ID("Adam, Christoph" 13906716000) OR AU-ID("Sánchez Guillén, Joaquín Joaquín" 6602259453) OR AU-ID("Guillén, Joaquín Sánchez" 7005635634) OR AU-ID("Snchez Guillén, J." 22973170900) OR AU-ID("Santamarina, Cibrán" 56724304200) OR AU-ID("Santamarina Rios, C." 14422913600) OR AU-ID("Santamarina Rios, C." 56724303500) OR AU-ID("Gallas, Abraham A." 22834570000) OR AU-ID("Gallas Torreira, A. A." 3649461
IGFAEsp <- read.csv("https://gist.githubusercontent.com/rrodrigueznt/4db766181d58cf571f58ef310adb45bc/raw/cf4b3ed382fff0935d07010c3df09e2543e573bd/IGFAE.sp.20180610000000SCQ.data", header=TRUE, sep=',')
#
IGFAEsp$year <- as.factor(IGFAEsp$year)
#
ggplot(data=IGFAEpublData, aes(x=year, y=tnoa)) + geom_bar(stat="identity", fill="steelblue") + geom_text(aes(label=tnoa), vjust=1.6, color="white", size=6) + scale_x_discrete("ano") + scale_y_continuous("número de artigos")
#
## http://rpubs.com/rrodrigueznt/426766
#
IGFAEfuByYear <- aggregate(IGFAEfu$amount, by=list(Category=IGFAEfu$year), FUN=sum)
#
Hace ya casi veinte años, el 27 de mayo de 1989, la Universidade de Santiago de Compostela y la Xunta de Galicia firmaron el convenio de creación de Insituto Galego de Física de Altas Enerxías (IGFAE). La preocupación de los promotores del instituto tenía dos pilares estratégicos: ser un agente activo en la planificación de las grandes infraestructuras científicas en el campo de la Física de Altas Energías (en aquel momento, el CERN) y promover el desarrollo del tejido empresarial gallego y español gracias a los retos que supone participar en su construcción y mantenimiento, aprovechanto las oportunidades de negocio para mejorar el retorno industrial.
La investigación científica de frontera, inspirada por la curiosidad, buscando los orígenes de la energía, la materia y el tiempo, se declaró comprometida con el desarrollo socioeceonómico del entorno inmediato, contribuyendo ahora a la Estratexia de Especialización Intelixente de Galicia (RIS3) y a la Axenda de Competitividade Industrial, Galicia Industria 4.0
((AU-ID("Martínez Santos, Diego" 36495326500) OR AU-ID("Gallas Torreira, A." 36494613400) OR AU-ID("Ramallo, Alfonso V." 6603597993) OR AU-ID("Cid-Vidal, Xabier" 35278115200) OR AU-ID("Alvarez-Muñiz, Jaime"
6701597328) OR AU-ID("Benlliure, José" 7003276495) OR AU-ID("Mas, Javier"
7102288765) OR AU-ID("Adam, Christoph" 13906716000) OR AU-ID("Merino, Carlos" 7005540374) OR AU-ID("Vázquez, Ricardo A." 35277458700) OR AU-ID("Garzón, Juan A." 7006191371) OR AU-ID("Regueiro, Pablo Vázquez"
35278816900) OR AU-ID("Armesto, Néstor" 7003989243) OR AU-ID("Durán, Ignacio" 35276958000) OR AU-ID("Adeva, Bernardo" 7006017976) OR AU-ID("Cortina-Gil, D." 6603841619) OR AU-ID("Ferreiro, Elena Gonzalez"
7003882763) OR AU-ID("Hernando Morata, J. A." 34167902100) OR AU-ID("Saborido Silva, J. J." 6504704159) OR AU-ID("Salgado, Carlos A."
7006230418) OR AU-ID("Fernández-Domínguez, Beatriz" 8966931000) OR AU-ID("Zas., Enrique" 12809028600) OR AU-ID("Sánchez De Santos, José M."
6507556670) OR AU-ID("Pajares, Carlos" 7003571361) OR AU
USCcode,origin,source,scope,total
2015-PN067,public,compet,nati,40384
2014-PI077,public,compet,euun,30250
2016-CE046,private,compet,regi,22002
2016-CE056,private,compet,regi,10000
2015-PN172,public,compet,nati,101990
2015-PN088,public,compet,nati,103140
2016-PN011,public,compet,nati,30699
2015-CE209,private,nocomp,nati,11500
2016-CE009,private,compet,regi,33981
USCcode,origin,source,scope,total
2015-PN067,public,compet,nati,40384
2014-PI077,public,compet,euun,30250
2016-CE046,private,compet,regi,22002
2016-CE056,private,compet,regi,10000
2015-PN172,public,compet,nati,101990
2015-PN088,public,compet,nati,103140
2016-PN011,public,compet,nati,30699
2015-CE209,private,nocomp,nati,11500
2016-CE009,private,compet,regi,33981
#
library(gistr)
#
options(github.username='rrodrigueznt', digits=3, stringsAsFactors=F)
#
AllMyGists <- gists("mineall")
#
listl <- as.numeric(length(AllMyGists))
#
gists <- data.frame(
#
options(stringsAsFactors=F)
#
#
# returns string w/o leading whitespace
trim.leading <- function (x) sub("^\\s+", "", x)
#
# returns string w/o trailing whitespace
trim.trailing <- function (x) sub("\\s+$", "", x)
#