<% setContentType("text/html") %>
Hurricane Andrew
<%
require(googleVis)
AndrewGeoMap <- gvisGeoMap(Andrew, locationvar="LatLong", numvar="Speed_kt",
hovervar="Category",
options=list(width=800,height=400, region="US"))
AndrewTable <- gvisTable(Andrew,options=list(width=800))
AndrewMap <- gvisMap(Andrew, "LatLong" , "Tip",
options=list(showTip=TRUE, showLine=TRUE, enableScrollWheel=TRUE,
mapType='hybrid', useMapTypeControl=TRUE,
width=800,height=400))
%>
<%= AndrewMap$html$chart %>
<%= AndrewGeoMap$html$chart %>
<%= AndrewTable$html$chart %>