Changes between Initial Version and Version 1 of R Code

Timestamp:

Apr 4, 2011 11:17:20 AM (14 years ago)

Author:

celine

Comment:

--

R Code

@@ +1 @@
+back to first page[..][[BR]]
+
+ * Distribution conjointe (histogramme et corrélation entre deux variables)
+http://freakonometrics.blog.free.fr/index.php?tag/R
+{{{
+library(evd); data(lossalae) 
+x <- lossalae$Loss; y <- lossalae$ALAE
+xhist <- hist(log(x), plot=FALSE)  
+yhist <- hist(log(y), plot=FALSE)
+top <- max(c(xhist$counts, yhist$counts)) 
+nf <- layout(matrix(c(2,0,1,3),2,2,byrow=TRUE), 
+c(3,1), c(1,3), TRUE) 
+par(mar=c(3,3,1,1)) 
+plot(x, y, xlab="", ylab="",log="xy",col="red") 
+par(mar=c(0,3,1,1))
+barplot(xhist$counts, axes=FALSE, ylim=c(0, top), 
+space=0,col="light green") 
+par(mar=c(3,0,1,1))
+barplot(yhist$counts, axes=FALSE, xlim=c(0, top), 
+space=0, horiz=TRUE,col="light blue")
+}}}
+