#Initialize the gnuplot handle
h1<-Gpinit()
#set gnuplot's additional search directories, to the extdata directory
# from Rgnuplot (default)
Gpsetloadpath(h1)
#change gnuplot's working directory to be the same as
#R's working directory (default)
Gpsetwd(h1)
## Not run:
# nordklim <- read.table(system.file('extdata/NordklimData.tab', package =
# "Rgnuplot"), stringsAsFactors=FALSE, header=TRUE)
#
# NKmonths <- c('January','February','March','April','May','June','July','August',
# 'September','October','November','December')
# #choose Helsinki (code 304) and country (code 'FIN') Precipitation (code 601)
# nordklimHelsinkiPrecipitation <- nordklim[which((nordklim$NordklimNumber==304) &
# (nordklim$CountryCode=='FIN') & (nordklim$ClimateElement==601)),c('FirstYear',
# NKmonths)]
# nordklimHelsinkiPrecipitation <- as.matrix(nordklimHelsinkiPrecipitation)
# #save to a data file
# Gpmatrixr2gnu(nordklimHelsinkiPrecipitation, 'NORDKLIM-Helsinki-prec.dat')
#
# #convert the data file from 12 columns for the monthly data to 2 rows
# Gpcols2rows('NORDKLIM-Helsinki-prec.dat','NORDKLIM-Helsinki-prec-columns.dat')
# ## End(Not run)
#close gnuplot handle
h1<-Gpclose(h1)
Run the code above in your browser using DataLab