problem.R

load("dane.RData")
library(maptools)

## Loading required package: sp

## Checking rgeos availability: TRUE

r <- SpatialLines2PolySet(dane_lista[["TMP"]]$c[[1]])
r <- PolySet2SpatialPolygons(r)

## Warning in Polygon(cbind(x$X, x$Y)): less than 4 coordinates in polygon

## Warning in Polygon(cbind(x$X, x$Y)): less than 4 coordinates in polygon

plot(r)

library(fields)

## Loading required package: spam

## Loading required package: dotCall64

## Loading required package: grid

## Spam version 2.1-1 (2017-07-02) is loaded.
## Type 'help( Spam)' or 'demo( spam)' for a short introduction 
## and overview of this package.
## Help for individual functions is also obtained by adding the
## suffix '.spam' to the function name, e.g. 'help( chol.spam)'.

## 
## Attaching package: 'spam'

## The following objects are masked from 'package:base':
## 
##     backsolve, forwardsolve

## Loading required package: maps

## See www.image.ucar.edu/~nychka/Fields for
##  a vignette and other supplements.

library(raster)
image(dane_lista$TMP$r[[1]], col=topo.colors(20))
contour(dane_lista$TMP$r[[1]], add=T, labcex=2, breaks=-50:50)