The R Project SVN R

Rev

Rev 77912 | Rev 81315 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 77912 Rev 80079
Line 154... Line 154...
154 
   }
 154 
   }
155 
}
 155 
}
156 
par(op)
 156 
par(op)
157 
 
 157 
 
158 
##--- Log-Log Plot  with  custom axes
 158 
##--- Log-Log Plot  with  custom axes
159 
lx <- seq(1, 5, length = 41)
 159 
lx <- seq(1, 5, length.out = 41)
160 
yl <- expression(e^{-frac(1,2) * {log[10](x)}^2})
 160 
yl <- expression(e^{-frac(1,2) * {log[10](x)}^2})
161 
y <- exp(-.5*lx^2)
 161 
y <- exp(-.5*lx^2)
162 
op <- par(mfrow = c(2,1), mar = par("mar")-c(1,0,2,0), mgp = c(2, .7, 0))
 162 
op <- par(mfrow = c(2,1), mar = par("mar")-c(1,0,2,0), mgp = c(2, .7, 0))
163 
plot(10^lx, y, log = "xy", type = "l", col = "purple",
 163 
plot(10^lx, y, log = "xy", type = "l", col = "purple",
164 
     main = "Log-Log plot", ylab = yl, xlab = "x")
 164 
     main = "Log-Log plot", ylab = yl, xlab = "x")