View source: R/biblio.assess.R
| lbsAssess | R Documentation |
Given a list of authors' citation sequences, the function calculates values of many impact functions at a time.
lbsAssess(
citseq,
f = list(length, index_h),
captions = c("length", "index_h"),
orderByColumn = 2,
bestRanks = 20,
verbose = T
)
citseq |
list of numeric vectors, e.g. the output of |
f |
a list of |
captions |
a list of |
orderByColumn |
column to sort the results on. |
bestRanks |
if not |
verbose |
logical; |
A data frame in which each row corresponds to the assessment
results of some citation sequence.
The first column stands for the authors' names (taken from names(citseq),
the second for the valuation of f[[1]], the third for f[[2]], and so on.
See Examples below.
lbsConnect, lbsGetCitations
## 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
library("agop")
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);
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.