Wikisym 2013 Demo

This page is a knowledge crystal of subtype variable. The page identifier is Op_en6032
Moderator:Juha Villman (see all)
This page is a stub. You may improve it into a full page.
Upload data {{#opasnet_base_link:Op_en6032}}

R examples

Very basic example

+ Show code- Hide code a <-3 b <-4 a +b

Parameter example

Number 1: Number 2: + Show code- Hide code sum <- num1 + num2 mul <- num1 * num2 cat(paste("<span style='font-size: 1.5em;font-weight:bold;'>Sum: ",sum,"</span>\n",sep='')) cat(paste("<span style='font-size: 1.5em;font-weight:bold;'>Mul: ",mul,"</span>\n",sep=''))

Mapping buildings of Kuopio into GoogleMaps

+ Show code- Hide code #code goes here library(RgoogleMaps) library(rgdal) library(maptools) library(RColorBrewer) library(classInt) library(OpasnetUtils) shp<-readOGR('PG:host=localhost user=postgres dbname=spatial_db','kuopio_house') plotvar<-shp@data$ika nclr<-8 plotclr<-brewer.pal(nclr,"Spectral") class<-classIntervals(plotvar,nclr,style="quantile") colcode<-findColours(class,plotclr) epsg4326String <- CRS("+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs") proj4string(shp)<-("+init=epsg:3067") shp2<-spTransform(shp,epsg4326String) #get marker information first 10 points mymarkers<-cbind.data.frame(lat=c(shp2@coords[,2]),lon=c(shp2@coords[,1]),color=colcode); #get the bounding box: bb <- qbbox(lat = mymarkers[,"lat"], lon = mymarkers[,"lon"]) #MyMap function without the "file destination" parameter MyRmap<-function (lonR, latR, center, size = c(640, 640), MINIMUMSIZE = FALSE, RETURNIMAGE = TRUE, GRAYSCALE = FALSE, NEWMAP = TRUE, zoom, verbose = 1, ...) { if (missing(zoom)) zoom <- min(MaxZoom(latR, lonR, size)) if (missing(center)) { lat.center <- mean(latR) lon.center <- mean(lonR) } else { lat.center <- center[1] lon.center <- center[2] } if (MINIMUMSIZE) { ll <- LatLon2XY(latR[1], lonR[1], zoom) ur <- LatLon2XY(latR[2], lonR[2], zoom) cr <- LatLon2XY(lat.center, lon.center, zoom) ll.Rcoords <- Tile2R(ll, cr) ur.Rcoords <- Tile2R(ur, cr) if (verbose > 1) { cat("ll:") print(ll) print(ll.Rcoords) cat("ur:") print(ur) print(ur.Rcoords) cat("cr:") print(cr) } size[1] <- 2 * max(c(ceiling(abs(ll.Rcoords$X)), ceiling(abs(ur.Rcoords$X)))) + 1 size[2] <- 2 * max(c(ceiling(abs(ll.Rcoords$Y)), ceiling(abs(ur.Rcoords$Y)))) + 1 if (verbose) cat("new size: ", size, "\n") } return(GetMap(center = c(lat.center, lon.center), zoom = zoom, size = size, RETURNIMAGE = RETURNIMAGE, GRAYSCALE = GRAYSCALE, verbose = verbose, ...)) } MyMap<-MyRmap(bb$lonR,bb$latR,maptype="mobile") PlotOnStaticMap(MyMap) PlotOnStaticMap(MyMap,lat=mymarkers[,"lat"],lon=mymarkers[,"lon"],pch=19,cex=0.3,col=colcode,add=T) legend("topleft", legend=names(attr(colcode, "table")),title="Ika", fill=attr(colcode, "palette"), cex=1.0, bty="y",bg="white")

Reading data from Opasnet Base to R

+ Show code- Hide code library("OpasnetUtils") library("xtable") # From opasnet thedata <- opbase.data("Op_en2949") print(xtable(thedata),type="html")

Opasnet Base Examples

Narcolepsy in Finland

• Population of Finland
• Narcolepsy in Finland

Table2Base Examples

WikiSym participants(#)

Obs	Year	Country	Participants
1	2010	Poland	700
2	2011	USA	800
3	2012	Austria	900
4	2013	Hong Kong	1000

WikiMania participants(#)

Obs	Year	Country	Participants
1	2010	Poland	700
2	2011	Israel	800
3	2012	USA	900
4	2013	Hong Kong	1000

Upload example

• File:Wikisym2013 upload example.csv