Displaying 1 result from an estimated 1 matches for "mypanel4loglog".
2012 Apr 09
1
Panel.abline would not show beyond a certain slope value
...quot;
DataTable = read.table(File2Open, header = TRUE, sep = "\t")
md <- melt(DataTable, id.vars = c('Range', 'TheValue', 'TheNo')) # removed 'DegType' column 030312
md$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...