Difference between revisions of "Sandbox"
From Testiwiki
m (→GoogleMaps PostgreSQL test) |
(→Kuopio buildings on Google maps test: New stuff) |
||
Line 102: | Line 102: | ||
== Kuopio buildings on Google maps test == | == Kuopio buildings on Google maps test == | ||
− | <rcode name='kuorakonmaps'> | + | <rcode name='kuorakonmaps' variables="name:age|description:Rakennuksen minimi-ikä|default:100"> |
library(rgdal) | library(rgdal) | ||
Line 109: | Line 109: | ||
library(classInt) | library(classInt) | ||
library(OpasnetBaseUtils) | library(OpasnetBaseUtils) | ||
+ | library(RODBC) | ||
− | shp<-readOGR('PG:host=localhost user=postgres dbname=spatial_db','kuopio_house') | + | #shp<-readOGR('PG:host=localhost user=postgres dbname=spatial_db','kuopio_house') |
+ | |||
+ | channel<-odbcConnect("spatial_db") | ||
+ | shp<-sqlQuery(channel,paste('SELECT * FROM kuopio_house WHERE ika >= ',age,';',sep='')) | ||
+ | |||
+ | coordinates(shp)=c("y_koord","x_koord") | ||
+ | |||
+ | #shp<-readOGR('PG:host=localhost user=postgres dbname=spatial_db','kuopio_house') | ||
plotvar<-shp@data$ika | plotvar<-shp@data$ika | ||
nclr<-8 | nclr<-8 | ||
Line 164: | Line 172: | ||
kmlHeader <- c("<?xml version=\"1.0\" encoding=\"UTF-8\"?>","<kml xmlns=\"http://earth.google.com/kml/2.2\">", "<Document>") | kmlHeader <- c("<?xml version=\"1.0\" encoding=\"UTF-8\"?>","<kml xmlns=\"http://earth.google.com/kml/2.2\">", "<Document>") | ||
kmlFooter <- c("</Document>", "</kml>") | kmlFooter <- c("</Document>", "</kml>") | ||
− | + | for (i in 1:nrow(obj)) { | |
− | |||
point <- obj[i, ] | point <- obj[i, ] | ||
pt_name = name[i] | pt_name = name[i] |
Revision as of 09:30, 14 June 2012
This page is a variable.
The page identifier is Op_en1390 |
---|
Moderator:Ehac (see all) |
Give your opinion to the peer rating of the content of this page. |
Upload data
|
http://ytoswww/yhteiset/YMAL/Projects/
Edited by ehac
Failed to parse (Missing <code>texvc</code> executable. Please see math/README to configure.): L_{Aeq} = 10 \log \int_{t_0}^{t_1} \frac{p_A^2(t)}{p_0^2} dt
Failed to parse (Missing <code>texvc</code> executable. Please see math/README to configure.): \textstyle L_{Aeq} = 10 \log \int_{t_0}^{t_1} \frac{p_A^2(t)}{p_0^2} dt
Contents
Static GoogleMaps test
Kuopio buildings on Google maps test
GoogleMaps Sorvi MML TEST
GoogleMaps PostgreSQL test 2
GoogleMaps PostgreSQL test
Opasnet.csv test
Opasnet.data and BUGS test
Failed to parse (Missing <code>texvc</code> executable. Please see math/README to configure.): \alpha 444 + 9999 / 123
Hello
- this works
Bluebox
- works
- ok
R-tools code include example
Rectangle area test