This shows you the differences between two versions of the page.
notes:net:keytim [2016/03/21 05:23] vlado [Keywords through time] |
notes:net:keytim [2016/03/21 05:29] (current) vlado [Analyzing frequency table] |
||
---|---|---|---|
Line 312: | Line 312: | ||
> P <- as.matrix(Q[2:8]) | > P <- as.matrix(Q[2:8]) | ||
> for(i in 1:7) {maxp <- max(P[,i]); cat(i,'max=',maxp,'\n'); P[,i] <- (P[,i]/Q$t)*index(P[,i]/maxp,0.3)} | > for(i in 1:7) {maxp <- max(P[,i]); cat(i,'max=',maxp,'\n'); P[,i] <- (P[,i]/Q$t)*index(P[,i]/maxp,0.3)} | ||
- | 1 max= 7128.275 | + | ... |
- | 2 max= 3760.899 | + | |
- | 3 max= 5775.08 | + | |
- | 4 max= 797.7956 | + | |
- | 5 max= 739.804 | + | |
- | 6 max= 695.0115 | + | |
- | 7 max= 687.6909 | + | |
- | > head(P) | + | |
- | f1 f2 f3 f4 f5 f6 f7 | + | |
- | [1,] 0.002416903 0.03669820 0.0074143640 0.225594262 0.245582573 0.073849480 0.111859881 | + | |
- | [2,] 0.000000000 0.00000000 0.0002096822 0.038261320 0.074736768 0.060296316 0.131715348 | + | |
- | [3,] 0.000000000 0.16496102 0.0083009465 0.003331993 0.002341123 0.001224693 0.001480077 | + | |
- | [4,] 0.000000000 0.00000000 0.0042484083 0.061413904 0.168385094 0.198459138 0.165627727 | + | |
- | [5,] 0.000000000 0.00000000 0.0003581627 0.077948486 0.048169886 0.026063507 0.070611608 | + | |
- | [6,] 0.000000000 0.01121735 0.0202734044 0.047121276 0.028760864 0.037499979 0.030282811 | + | |
- | > P[is.nan(P)] <- 0 | + | |
- | > head(P) | + | |
- | f1 f2 f3 f4 f5 f6 f7 | + | |
- | [1,] 0.002416903 0.03669820 0.0074143640 0.225594262 0.245582573 0.073849480 0.111859881 | + | |
- | [2,] 0.000000000 0.00000000 0.0002096822 0.038261320 0.074736768 0.060296316 0.131715348 | + | |
- | [3,] 0.000000000 0.16496102 0.0083009465 0.003331993 0.002341123 0.001224693 0.001480077 | + | |
- | [4,] 0.000000000 0.00000000 0.0042484083 0.061413904 0.168385094 0.198459138 0.165627727 | + | |
- | [5,] 0.000000000 0.00000000 0.0003581627 0.077948486 0.048169886 0.026063507 0.070611608 | + | |
- | [6,] 0.000000000 0.01121735 0.0202734044 0.047121276 0.028760864 0.037499979 0.030282811 | + | |
- | > Keys <- as.character(A$K) | + | |
- | > i1 <- order(P[,1],decreasing=TRUE) | + | |
- | > i2 <- order(P[,2],decreasing=TRUE) | + | |
- | > i3 <- order(P[,3],decreasing=TRUE) | + | |
- | > i4 <- order(P[,4],decreasing=TRUE) | + | |
- | > i5 <- order(P[,5],decreasing=TRUE) | + | |
- | > i6 <- order(P[,6],decreasing=TRUE) | + | |
- | > i7 <- order(P[,7],decreasing=TRUE) | + | |
- | > K1 <- Keys[i1] | + | |
- | > K2 <- Keys[i2] | + | |
- | > K3 <- Keys[i3] | + | |
- | > K4 <- Keys[i4] | + | |
- | > K5 <- Keys[i5] | + | |
- | > K6 <- Keys[i6] | + | |
- | > K7 <- Keys[i7] | + | |
- | > R <- cbind(K1,K2,K3,K4,K5,K6,K7) | + | |
> R[1:20,] | > R[1:20,] | ||
K1 K2 K3 K4 K5 | K1 K2 K3 K4 K5 | ||
Line 398: | Line 359: | ||
</code> | </code> | ||
+ | <code> | ||
+ | > P <- as.matrix(Q[2:8]) | ||
+ | > for(i in 1:7) {maxp <- max(P[,i]); cat(i,'max=',maxp,'\n'); P[,i] <- (P[,i]/Q$t)*index(P[,i]/maxp,0.5)} | ||
+ | ... | ||
+ | > R[1:20,] | ||
+ | K1 K2 K3 K4 K5 | ||
+ | [1,] "subcommittee" "right-of-access" "referee" "peer-review" "peer" | ||
+ | [2,] "subcommittee-b" "referee" "weigh" "peer" "trial" | ||
+ | [3,] "subcommittee-c" "psro" "reply" "quality" "research" | ||
+ | [4,] "recommendation" "peer-review" "nsf" "journal" "quality" | ||
+ | [5,] "subcommittee-d" "rx" "balance" "referee" "journal" | ||
+ | [6,] "subcommittee-a" "optional" "ceci" "medical" "medical" | ||
+ | [7,] "report" "anonymous" "racism" "research" "control" | ||
+ | [8,] "bankruptcy" "national-institutes-of-health" "editorial" "assurance" "clinical" | ||
+ | [9,] "workman" "continuing-education" "patrick" "publication" "referee" | ||
+ | [10,] "jurisdiction" "peer" "antitrust" "audit" "publication" | ||
+ | [11,] "goodsir" "jr." "academic-freedom" "care" "science" | ||
+ | [12,] "paget" "rubin" "peter" "clinical" "management" | ||
+ | [13,] "nystagmus" "cole" "difficult" "physician" "analysis" | ||
+ | [14,] "1906" "american-society-for-clinical-investigation" "anonymous" "trial" "disease" | ||
+ | [15,] "malinger" "adamha" "antitrust-law" "reliability" "therapy" | ||
+ | [16,] "insurance" "child-psychiatry" "risk-benefits" "control" "randomize" | ||
+ | [17,] "james" "problem-oriented" "exclusionary" "process" "health" | ||
+ | [18,] "miner" "nisbet" "tabloid" "assessment" "new" | ||
+ | [19,] "sir" "royal-australasian-college-of-radiologists" "harnad" "evaluation" "patient" | ||
+ | [20,] "act" "community-hospital" "ceprime" "manuscript" "literature" | ||
+ | K6 K7 | ||
+ | [1,] "peer" "systematic" | ||
+ | [2,] "research" "health" | ||
+ | [3,] "quality" "research" | ||
+ | [4,] "journal" "study" | ||
+ | [5,] "treatment" "management" | ||
+ | [6,] "health" "care" | ||
+ | [7,] "publication" "intervention" | ||
+ | [8,] "randomize" "protocol" | ||
+ | [9,] "management" "impact" | ||
+ | [10,] "patient" "peer" | ||
+ | [11,] "therapy" "use" | ||
+ | [12,] "clinical" "literature" | ||
+ | [13,] "impact" "outcome" | ||
+ | [14,] "analysis" "analysis" | ||
+ | [15,] "assessment" "quality" | ||
+ | [16,] "medical" "patient" | ||
+ | [17,] "science" "risk" | ||
+ | [18,] "care" "therapy" | ||
+ | [19,] "systematic" "trial" | ||
+ | [20,] "outcome" "controlled-trial" | ||
+ | > | ||
+ | </code> |