diff --git a/read.data.US.R b/read.data.US.R
new file mode 100644
index 0000000000000000000000000000000000000000..9d5911f418f2cfd1f4ce30ae74d2158a0f9831e6
--- /dev/null
+++ b/read.data.US.R
@@ -0,0 +1,7 @@
+###########################################
+###########################################
+########## READ US FIA data from Mark
+
+data.fia <-  read.csv("FIA51_trees_w_supp.csv",header=TRUE,stringsAsFactors=FALSE)
+head(data.fia)
+plot(data.fia[["Lon"]],data.fia[["Lat"]],cex=0.3,pty="s")