File:Landsat corr fake.png

From AWF-Wiki
(Difference between revisions)
Jump to: navigation, search
Line 3: Line 3:
  
 
Code:
 
Code:
<nowiki>
+
data <- data.frame(band.4=c(rnorm(500, mean=100, sd=20),
--------------------------------------------------------------------
+
    rnorm(500, mean=180, sd=10)),
data <- data.frame(band.4=c(rnorm(500, mean=100, sd=20),
+
  band.5=c(rnorm(500, mean=180, sd=20),
    rnorm(500, mean=180, sd=10)),
+
    rnorm(500, mean=100, sd=10)))
  band.5=c(rnorm(500, mean=180, sd=20),
+
# and plot
    rnorm(500, mean=100, sd=10)))
+
png('landsat_corr_data.png', width=800, height=800,
# and plot
+
    pointsize=15)
png('landsat_corr_data.png', width=800, height=800,
+
plot(data$band.4, data$band.5, xlab='Band 4 brightness value',  
    pointsize=15)
+
      ylab='Band 5 brightness value',
plot(data$band.4, data$band.5, xlab='Band 4 brightness value',  
+
      main='Fictional example of correlation\n between two satellite bands')
    ylab='Band 5 brightness value',
+
dev.off()
    main='Fictional example of correlation\n between two satellite bands')
+
dev.off()
+
</nowiki>
+

Revision as of 12:04, 21 June 2013

A plot of fictional correlation between brightness values of two satellite bands. Generated in R and edited with GIMP.

Code:

data <- data.frame(band.4=c(rnorm(500, mean=100, sd=20),
			    rnorm(500, mean=180, sd=10)),
		   band.5=c(rnorm(500, mean=180, sd=20),
			    rnorm(500, mean=100, sd=10)))
# and plot
png('landsat_corr_data.png', width=800, height=800,
    pointsize=15)
plot(data$band.4, data$band.5, xlab='Band 4 brightness value', 
     ylab='Band 5 brightness value',
     main='Fictional example of correlation\n between two satellite bands')
dev.off()

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current12:01, 21 June 2013Thumbnail for version as of 12:01, 21 June 2013800 × 800 (2.45 MB)Lburgr (Talk | contribs)A plot of fictional correlation between brightness values of two satellite bands. Generated in R and edited with GIMP. Code: -------------------------------------------------------------------- data <- data.frame(band.4=c(rnorm(500, mean=100, sd=20), ...

The following page links to this file:

Personal tools
Namespaces

Variants
Actions
Navigation
Development
Toolbox