gistfile1.r

> dput(head(env))
structure(list(spatial = structure(c(1L, 1L, 1L, 2L, 3L, 3L), .Label = c("a", 
"b", "c", "d"), class = "factor"), Velocity = c(0.067, 0.088, 
0.057, 0.196, 0.788, 0.466), Depth = c(0.225833333, 0.183, 0.064, 
0.043333333, 0.0525, 0.073), CO = c(1L, 1L, 1L, 0L, 1L, 1L), 
    G = c(1L, 1L, 1L, 0L, 1L, 1L), LL = c(1L, 1L, 1L, 0L, 1L, 
    1L), M = c(1L, 1L, 0L, 1L, 1L, 1L), BR = c(0L, 0L, 0L, 1L, 
    0L, 0L), S.S = c(1L, 1L, 1L, 0L, 1L, 1L), WD = c(0L, 0L, 
    0L, 0L, 1L, 0L)), .Names = c("spatial", "Velocity", "Depth", 
"CO", "G", "LL", "M", "BR", "S.S", "WD"), row.names = c("61aP1", 
"61aP2", "61aP3", "61aRock1", "61aRif2", "61aRif3"), class = "data.frame")

> dput(head(bugs))
structure(list(Ephemeroptera = c(1L, 0L, 1L, 0L, 0L, 0L), Baetidaea = c(1L, 
1L, 0L, 0L, 0L, 0L), Baetidaeb = c(0L, 2L, 1L, 0L, 0L, 0L), Campsoneuria = c(1L, 
0L, 3L, 0L, 1L, 0L), Epeorus = c(0L, 0L, 0L, 2L, 0L, 0L), Thalerosphyrus = c(4L, 
9L, 6L, 0L, 2L, 1L), Platybaetis = c(0L, 0L, 0L, 0L, 0L, 0L), 
    Caenidae = c(0L, 0L, 0L, 0L, 0L, 0L), Isonychiidae = c(1L, 
    2L, 0L, 2L, 0L, 0L), Neoephemeridae = c(0L, 1L, 0L, 0L, 0L, 
    0L), Potamanthidae = c(0L, 1L, 0L, 0L, 0L, 0L), ElmidaeL = c(0L, 
    1L, 0L, 16L, 0L, 5L), ElmidaeS = c(0L, 0L, 0L, 14L, 0L, 12L
    ), PsephenidaeF = c(4L, 4L, 1L, 0L, 0L, 1L), PsephenidaeT = c(1L, 
    4L, 0L, 0L, 0L, 0L), Hydrophilidae = c(0L, 0L, 0L, 0L, 0L, 
    0L), Dytisidae = c(0L, 0L, 0L, 0L, 0L, 2L), ElmidaeLarv = c(0L, 
    0L, 1L, 0L, 0L, 0L), Eulichadidae = c(0L, 0L, 0L, 0L, 0L, 
    0L), Scirtidae = c(0L, 0L, 0L, 0L, 0L, 1L), Leptoceridae = c(0L, 
    0L, 0L, 0L, 1L, 0L), Helicopsychidae = c(0L, 0L, 0L, 0L, 
    0L, 4L), Arctopsychi0e = c(0L, 0L, 0L, 0L, 0L, 1L), Hydropsychi0e = c(0L, 
    0L, 1L, 0L, 0L, 0L), Diplectronidae = c(0L, 0L, 0L, 0L, 1L, 
    0L), Macrostemum = c(0L, 0L, 0L, 0L, 1L, 0L), Anisocentropus = c(0L, 
    0L, 0L, 0L, 0L, 0L), Bmicrasema = c(0L, 0L, 0L, 0L, 0L, 0L
    ), Lzygonyx = c(0L, 0L, 0L, 4L, 0L, 0L), Gomphidae = c(0L, 
    0L, 0L, 0L, 2L, 3L), PDrepanosticta = c(0L, 0L, 1L, 0L, 0L, 
    1L), Esubcostalis = c(1L, 1L, 0L, 0L, 0L, 0L), CMacromia = c(0L, 
    0L, 0L, 0L, 0L, 0L), Libellagid = c(0L, 0L, 0L, 0L, 0L, 0L
    ), Plecoptera = c(0L, 0L, 0L, 0L, 1L, 0L), Kamimuria = c(0L, 
    0L, 0L, 0L, 0L, 0L), Neoperla = c(0L, 0L, 1L, 0L, 0L, 0L), 
    Nemoiridae = c(0L, 0L, 0L, 0L, 0L, 0L), Nglorioso = c(0L, 
    0L, 0L, 0L, 1L, 1L), Tscutellaris = c(0L, 0L, 0L, 2L, 0L, 
    1L), Gestroiella = c(0L, 0L, 1L, 0L, 0L, 0L), Laccocoris = c(0L, 
    1L, 2L, 0L, 0L, 0L), Cjaechi = c(0L, 0L, 0L, 0L, 0L, 1L), 
    Corixidae = c(2L, 0L, 0L, 0L, 0L, 0L), PParaplea = c(2L, 
    0L, 1L, 0L, 0L, 0L), Vrhagovelia = c(0L, 0L, 0L, 0L, 0L, 
    1L), Ncercotmetus = c(0L, 0L, 1L, 0L, 0L, 0L), Amorimotoi = c(0L, 
    0L, 0L, 0L, 0L, 0L), Suragi = c(0L, 0L, 0L, 0L, 0L, 0L), 
    Chironomidae = c(2L, 2L, 4L, 0L, 0L, 0L), Simuliidae = c(0L, 
    0L, 0L, 0L, 0L, 1L), Brachyura = c(0L, 0L, 0L, 0L, 0L, 0L
    )), .Names = c("Ephemeroptera", "Baetidaea", "Baetidaeb", 
"Campsoneuria", "Epeorus", "Thalerosphyrus", "Platybaetis", "Caenidae", 
"Isonychiidae", "Neoephemeridae", "Potamanthidae", "ElmidaeL", 
"ElmidaeS", "PsephenidaeF", "PsephenidaeT", "Hydrophilidae", 
"Dytisidae", "ElmidaeLarv", "Eulichadidae", "Scirtidae", "Leptoceridae", 
"Helicopsychidae", "Arctopsychi0e", "Hydropsychi0e", "Diplectronidae", 
"Macrostemum", "Anisocentropus", "Bmicrasema", "Lzygonyx", "Gomphidae", 
"PDrepanosticta", "Esubcostalis", "CMacromia", "Libellagid", 
"Plecoptera", "Kamimuria", "Neoperla", "Nemoiridae", "Nglorioso", 
"Tscutellaris", "Gestroiella", "Laccocoris", "Cjaechi", "Corixidae", 
"PParaplea", "Vrhagovelia", "Ncercotmetus", "Amorimotoi", "Suragi", 
"Chironomidae", "Simuliidae", "Brachyura"), row.names = c("SP1", 
"SP2", "SP3", "SR1", "SRif2", "SRif3"), class = "data.frame")