Displaying 1 result from an estimated 1 matches for "kfreq".
Did you mean:
kfree
2012 Apr 09
1
Panel.abline would not show beyond a certain slope value
...variable <- as.numeric(substr(md$variable, 9, nchar(as.character(md$variable))))
mypanel4loglog <-
function(x, # x is the variable column in melted data, equals the Domain Nos
y, # y is the value column in melted data, the degrees
... # Rest of the arguments
)
{
kfreq <- table(y); # compute frquency hash table of y, the values
k <- 1:max(y)
for (i in k) {
ichar <- as.character(i) # convert to match the names(freq), the character-based hash key of freq, which is the value
if (!(ichar %in% names(kfreq)))
kfreq[ichar] &l...