Practical2021Solutions - nielshintzen/vmstools GitHub Wiki

#Solution Exercise 1.1 No speed, use the calculateSpeed function #Solution Exercise 1.2 ~19km2, which would be around 3000 soccerfields #Solution Exercise 2.1 grd@data$SAR <- 0 grd@data$SAR[sumSWEPTGrid$grID] <- sumSWEPTGrid$SAR spplot(grd,zcol=2) #Solution Exercise 2.2 Interpolation

#Solution 2.5 store <- matrix(0,nrow=length(unique(names(ttrall))),ncol=2,dimnames=list(unique(names(ttrall)),scen=c("base","eff10"))) store[names(table(resbl)),"base"] <- table(resbl) store[names(table(res10)),"eff10"] <- table(res10)

convMat <- matrix(NA,nrow=11,ncol=11,dimnames=list(base=0:10,eff10=0:10)) for(i in 0:10){ for(j in 0:10){ convMat[ac(i),ac(j)] <- length(which(store[,1] == i & store[,2] == j)) } }