population_assignment_test
Differences
This shows you the differences between two versions of the page.
Next revision | Previous revision | ||
population_assignment_test [2008/01/18 16:10] – created heidi | population_assignment_test [2008/07/22 13:31] (current) – external edit 127.0.0.1 | ||
---|---|---|---|
Line 1: | Line 1: | ||
====== Population assignment test ====== | ====== Population assignment test ====== | ||
+ | * file: points_assignmentTest.r | ||
+ | * document page: 24 | ||
+ | \\ | ||
+ | **code:** | ||
+ | < | ||
+ | #----read data-------------------------------------------------------------- | ||
+ | sample1 <- read.table(" | ||
+ | skip=3 ) | ||
+ | sample2 <- read.table(" | ||
+ | skip=3 ) | ||
+ | | ||
+ | sample1 <- as.matrix(sample1[2: | ||
+ | sample2 <- as.matrix(sample2[2: | ||
+ | |||
+ | min_x <- min(sample1[, | ||
+ | min_y <- min(sample1[, | ||
+ | |||
+ | #----draw plot-------------------------------------------------------------- | ||
+ | op <- par(mar=c(2, | ||
+ | plot(sample1, | ||
+ | xlab="", | ||
+ | points(sample2, | ||
+ | lines(c(min_x, | ||
+ | | ||
+ | legend(" | ||
+ | col=c(" | ||
+ | axis(side=3, | ||
+ | axis(side=4, | ||
+ | mtext(" | ||
+ | mtext(" | ||
+ | mtext(" | ||
+ | box() | ||
+ | |||
+ | #---- At end of plotting, reset to previous par settings: | ||
+ | par(op) | ||
+ | </ |
population_assignment_test.1200669045.txt.gz · Last modified: 2008/07/22 13:30 (external edit)