On Mar 27, 2010, at 6:45 AM, Joshua Wiley wrote:

It is a bit of a side note really, but a convenient way to provide
data (particularly when it is complex) is via dput().  Not only is
this easier to read in, it preserves classes and other handy info.
For instance, once I had played around to get "Cook" and "Islands"
into one column (since there was a space) I could use:

dput(data, file="clipboard") #data is what is being written and it is
output to the clipboard, works decently in Windows at least

to get:

######################################################
structure(list(country = structure(c(1L, 1L, 1L, 1L, 2L, 2L,
2L, 2L, 2L), .Label = c("Cook Islands", "French Polynesia"), class = "factor"),
   village = structure(c(1L, 4L, 6L, 8L, 2L, 3L, 5L, 7L, 9L), .Label
= c("Aitutaki",
   "Fakarava", "Maatea", "Mangaia", "Mataiea", "Palmerston",
   "Raivavae", "Rarotonga", "Tikehau"), class = "factor"), group =
structure(c(4L,
   3L, 2L, 1L, 2L, 4L, 4L, 2L, 4L), .Label = c("A", "B", "C",
   "D"), class = "factor"), av_expen = c(5239.127472, 4587.361877,
   7784.318736, 8793.256543, 7937.3952, 12135.84, 12718.57548,
   8741.5104, 6295.66), P2ary_ed = c(0.666666667, 0.602150538,
   0.166666667, 0.764285714, 0.36, 0.316455696, 0.341880342,
   0.285714286, 0.240384615), no_fisher = c(666.9998558, 207.69228,
   24.00000002, 223.8639163, 255.3600002, 293.7499998, 2082.386008,
   325.0665956, 114.0832839), B_Leth = c(3.286283997, 0.330248,
   1.384456001, 6.790178998, 7.485009002, 1.270781, 2.117207998,
   20.121207, 5.183129001), B_Lutjan = c(1.971519001, 1.846795,
   0.233746, 0.751358, 6.282185007, 0.526468, 0.340852, 4.458011998,
   7.178272997), Wt_Leth = c(520.6454552, 0, 0, 51.51418019,
   62.28921398, 1002.39553, 1830.16527, 63.49777279, 900.4192224
   ), Wt_Lutjan = c(126.2441843, 0, 57.76351477, 30.5970125,
   60.39332797, 648.4578044, 4239.861263, 0, 935.3617853)), .Names =
c("country",
"village", "group", "av_expen", "P2ary_ed", "no_fisher", "B_Leth",
"B_Lutjan", "Wt_Leth", "Wt_Lutjan"), class = "data.frame", row.names = c(NA,
-9L))
###########################################

This is easily retrievable by copying the entire block of text and using:

dget("clipboard") # read the data into R

Just a further note that I hope in no way diminishes the value of advice to use dput(); one could also type:

data1 <-    # and then paste the copied material to the console.

It has the advantage of being general to all OS's while the device "clipboard" is not. Had you been on a Mac, you would have needed to use:

data_object <-  dget( pipe("pbpaste") )

David Winsemius, MD
West Hartford, CT

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to