Displaying 1 result from an estimated 1 matches for "myprepanel4loglog".
2012 Apr 09
1
Panel.abline would not show beyond a certain slope value
...)
lm.r = lm(logpk ~ logk)
panel.abline(coef=c(-4.847634, -1.037480)) # ->->-> This gets drawn
panel.abline(coef=c(-4.847634, -1.037481)) # ->->-> This doesn't get drawn
print(coef(lm.r)) # -4.847634 -1.349699 ; -3.377894 -1.498693
} # end mypanel4loglog
myprepanel4loglog <-
function(x, # x is the variable column in melted data, equals the Network's ages
y, # y is the value column in melted data, the degrees
... # Rest of the arguments
)
{
FreqTable <- as.data.frame(table(y))
FreqsVector <- sort(FreqTable$Freq)...