# NOT RUN {
# query depends on some lab data, queried against the national database
# note that you must setup this connection ahead of time
# see inst/doc/setup_ODBC_local_NASIS.pdf
f <- fetchNASISLabData()
# plot only those profiles with densic contact
#plot(f[which(f$densic.contact), ], name='hzname')
# }
Run the code above in your browser using DataLab