# NOT RUN {
conn <- lbsConnect("Bibliometrics.db");
## ...
citseq <- lbsGetCitations(conn,
surveyDescription="Scientometrics", documentTypes="Article",
idAuthors=c(39264,39265,39266));
print(citseq);
## $`Liu X.` # Author name
## 40116 34128 39122 29672 32343 32775 # IdDocument
## 11 4 1 0 0 0 # Citation count
## attr(,"IdAuthor")
## [1] 39264 # IdAuthor
##
## $`Xu Y.`
## 38680 38605 40035 40030 40124 39829 39745 29672
## 30 14 8 6 6 5 3 0
## attr(,"IdAuthor")
## [1] 39265
##
## $`Wang Y.`
## 29992 29672 29777 32906 33858 33864 34704
## 1 0 0 0 0 0 0
## attr(,"IdAuthor")
## [1] 39266
print(lbsAssess(citseq,
f=list(length, sum, index.h, index.g, function(x) index.rp(x,1),
function(x) sqrt(prod(index.lp(x,1))),
function(x) sqrt(prod(index.lp(x,Inf)))),
captions=c("length", "sum", "index.h", "index.g", "index.w",
"index.lp1", "index.lpInf")));
## Name length sum index.h index.g index.w index.lp1 index.lpInf
## 3 Xu Y. 8 72 5 8 7 8.573214 5.477226
## 2 Wang Y. 7 1 1 1 1 1.000000 1.000000
## 1 Liu X. 6 16 2 4 3 4.157609 3.316625
## ...
dbDisconnect(conn);
# }
Run the code above in your browser using DataLab