Hi By HTML posting dput is scrambled and impossible to use.
Petr > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-bounces@r- > project.org] On Behalf Of eliza botto > Sent: Wednesday, September 11, 2013 4:44 PM > To: r-help@r-project.org > Subject: [R] (no subject) > > Now?>dput(gg) > list(structure(list(coefficients = structure(c(1, 0.0747202722085956, > 0.359646782818708, 0.298384925903065, -0.443967849195675), .Names = > c("x0", "x", "xx", "y", "yy")), residuals = structure(c(- > 0.302776084510551, 0.183247980798144, -0.337231904223223, > 0.199348794823859, 0.290269994519382, -0.328261122410049, - > 0.191844336069409, 0.309937888934371, 0.249963958976373, - > 0.51656422321523, 0.0255108830245443, 0.418398169351789), .Names = > c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12")), > effects = structure(c(-3.46410161513775, -0.183026540352922, - > 0.880951105539393, 0.730890815400676, -1.08749469273032, - > 0.055778138673626, 0.105917713121713, 0.425275592080333, > 0.0893727217831096, -0.833878847761609, -0.213870821267818, > 0.405405268871492), .Names = c("x0", "x", "xx", "y", "yy", "", "", "", > "", "", "", "")), rank = 5L, fitted.values = > structure(c(1.00923807240423, 0.815143487596117, 1.06126185691564, > 1.50939808712151, 1.64879363631755, 1.22366465369447, ! > 0.520171981764853, 0.117496714766831, 0.341968291278227, > 0.961191858709413, 1.4185661613195, 1.37310519811166), .Names = c("1", > "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12")), assign > = 1:5, qr = structure(list(qr = structure(c(-3.46410161513775, > 0.288675134594813, 0.288675134594813, 0.288675134594813, > 0.288675134594813, 0.288675134594813, 0.288675134594813, > 0.288675134594813, 0.288675134594813, 0.288675134594813, > 0.288675134594813, 0.288675134594813, 1.0359551758099e-16, - > 2.44948974278318, -0.0791992255271195, -0.283323370759051, - > 0.432752616120393, -0.487447515990983, -0.432752616120393, - > 0.283323370759051, -0.0791992255271196, 0.124924919704812, > 0.274354165066154, 0.329049064936743, 1.60326396256294e-16, - > 4.06575814682064e-17, -2.44948974278318, 0.385357119965326, > 0.276818123873927, 0.0876608486418726, -0.131430166589936, - > 0.321749661221222, -0.432301680361632, -0.433463899760863, - > 0.324924903669464,! > -0.13576762843741, 4.07117915768307e-17, 2.16515173845355e-16, 3. > 30898503042576e-16, 2.44948974278318, -0.1565883283638, - > 0.28412286470868, -0.0175072160832821, 0.422389924412376, > 0.61883998250704, 0.369775078419853, -0.108638802574745, - > 0.389352556693728, -7.42678488152571e-18, 6.07912158112622e-16, > 4.95615918097436e-17, -1.02240264865383e-16, 2.44948974278318, > 0.0399663322170986, -0.36906922926158, -0.453581151684979, - > 0.103155496641535, 0.3733769380139, 0.545626107621939, > 0.279668949241763 ), .Dim = c(12L, 5L), .Dimnames = list(c("1", "2", > "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"), c("x0", "x", > "xx", "y", "yy")), assign = 1:5), qraux = c(1.28867513459481, > 1.12492491970481, 1.38419490056609, 1.18149437156933, 1.36122122075101 > ), pivot = 1:5, tol = 1e-07, rank = 5L), .Names = c("qr", "qraux", > "pivot", "tol", "rank"), class = "qr"), df.residual = 7L, xlevels = > structure(list(), .Names = character(0)), call = lm(formula = mm[, > i] ~ 0 + (x0 + x + xx + y + yy)), terms = mm[! > , i] ~ 0 + (x0 + x + xx + y + yy), model = > structure(list(`mm[, i]` = c(0.706461987893674, 0.998391468394261, > 0.72402995269242, 1.70874688194537, 1.93906363083693, > 0.89540353128442, 0.328327645695443, 0.427434603701202, > 0.591932250254601, 0.444627635494183, 1.44407704434405, > 1.79150336746345), x0 = structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, > 1, 1), .Dim = c(12L, 1L)), x = structure(c(0.866025403784439, 0.5, > 6.12303176911189e-17, -0.5, -0.866025403784439, -1, - > 0.866025403784439, -0.5, -1.83690953073357e-16, 0.5, 0.866025403784438, > 1), .Dim = c(12L, 1L)), xx = structure(c(0.5, 0.866025403784439, 1, > 0.866025403784439, 0.5, 1.22460635382238e-16, -0.5, -0.866025403784438, > -1, -0.866025403784439, -0.5, -2.44921270764475e-16), .Dim = c(12L, > 1L)), y = structure(c(0.5, -0.5, -1, -0.5, 0.5, 1, 0.5, - > 0.499999999999999, -1, -0.5, 0.499999999999999, 1), .Dim = c(12L, > 1L)), yy = structure(c(0.866025403784439, 0.866025403784439, > 1.2246! > 0635382238e-16, -0.866025403784438, -0.866025403784439, -2.4492127 > 0764475e-16, 0.866025403784439, 0.866025403784439, > 3.67381906146713e-16, -0.866025403784439, -0.866025403784439, - > 4.89842541528951e-16), .Dim = c(12L, 1L))), .Names = c("mm[, i]", > "x0", "x", "xx", "y", "yy"), terms = mm[, i] ~ 0 + (x0 + x + xx > + y + yy), row.names = c(NA, 12L ), class = "data.frame")), .Names = > c("coefficients", "residuals", "effects", "rank", "fitted.values", > "assign", "qr", "df.residual", "xlevels", "call", "terms", "model"), > class = "lm"), structure(list( coefficients = structure(c(1, > 0.308786314174914, 0.120489287397766, 0.116129002459147, - > 0.283906024106553), .Names = c("x0", "x", "xx", "y", "yy")), > residuals = structure(c(-0.194600470874542, 0.147793243511181, - > 0.0596338831684155, -0.19669043918067, 0.411977909847386, - > 0.217327208227307, -0.172627741951063, 0.159445944832986, > 0.251643280528442, -0.434578519402112, 0.159302024253958, > 0.145295859830158), .Names = c("1", "2", "3", "4", "5", "6", "7", > "! > 8", "9", "10", "11", "12")), effects = structure(c(-3.46410161513775, > -0.756368909283277, -0.295137273596081, 0.284456800363322, - > 0.695424893963357, -0.130842377327931, 0.0826788149787507, > 0.459795732697155, 0.4015715947845, -0.521947444480734, - > 0.0607557637087129, -0.00767162881851222), .Names = c("x0", "x", > "xx", "y", "yy", "", "", "", "", "", "", "")), rank = 5L, > fitted.values = structure(c(1.13985610818118, 0.954805610464521, > 1.00436028493862, 1.13775895461703, 1.09676218167573, > 0.807342688284232, 0.484533235950539, 0.437325728748907, > 0.763381710143087, 1.23785170125125, 1.51110647911084, 1.42491531663406 > ), .Names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", > "11", "12")), assign = 1:5, qr = structure(list(qr = structure(c(- > 3.46410161513775, 0.288675134594813, 0.288675134594813, > 0.288675134594813, 0.288675134594813, 0.288675134594813, > 0.288675134594813, 0.288675134594813, 0.288675134594813, > 0.288675134594813, ! > 0.288675134594813, 0.288675134594813, 1.0359551758099e-16, -2. > 44948974278318, -0.0791992255271195, -0.283323370759051, - > 0.432752616120393, -0.487447515990983, -0.432752616120393, - > 0.283323370759051, -0.0791992255271196, 0.124924919704812, > 0.274354165066154, 0.329049064936743, 1.60326396256294e-16, - > 4.06575814682064e-17, -2.44948974278318, 0.385357119965326, > 0.276818123873927, 0.0876608486418726, -0.131430166589936, - > 0.321749661221222, -0.432301680361632, -0.433463899760863, - > 0.324924903669464, -0.13576762843741, 4.07117915768307e-17, > 2.16515173845355e-16, 3.30898503042576e-16, 2.44948974278318, - > 0.1565883283638, -0.28412286470868, -0.0175072160832821, > 0.422389924412376, 0.61883998250704, 0.369775078419853, - > 0.108638802574745, -0.389352556693728, -7.42678488152571e-18, > 6.07912158112622e-16, 4.95615918097436e-17, -1.02240264865383e-16, > 2.44948974278318, 0.0399663322170986, -0.36906922926158, - > 0.453581151684979, -0.103155496641535, 0.3733769380139, > 0.545626107621939, 0.27966894924176! > 3 ), .Dim = c(12L, 5L), .Dimnames = list(c("1", "2", "3", "4", > "5", "6", "7", "8", "9", "10", "11", "12"), c("x0", "x", "xx", "y", > "yy")), assign = 1:5), qraux = c(1.28867513459481, > 1.12492491970481, 1.38419490056609, 1.18149437156933, 1.36122122075101 > ), pivot = 1:5, tol = 1e-07, rank = 5L), .Names = c("qr", "qraux", > "pivot", "tol", "rank"), class = "qr"), df.residual = 7L, xlevels = > structure(list(), .Names = character(0)), call = lm(formula = mm[, > i] ~ 0 + (x0 + x + xx + y + yy)), terms = mm[, i] ~ 0 + (x0 + x > + xx + y + yy), model = structure(list(`mm[, i]` = c(0.94525563730664, > 1.1025988539757, 0.944726401770203, 0.941068515436361, > 1.50874009152312, 0.590015480056925, 0.311905493999476, > 0.596771673581893, 1.01502499067153, 0.803273181849135, > 1.6704085033648, 1.57021117646422 ), x0 = structure(c(1, 1, 1, 1, 1, > 1, 1, 1, 1, 1, 1, 1), .Dim = c(12L, 1L)), x = > structure(c(0.866025403784439, 0.5, 6.12303176911189e-1! > 7, -0.5, -0.866025403784439, -1, -0.866025403784439, -0.5, -1.8369 > 0953073357e-16, 0.5, 0.866025403784438, 1), .Dim = c(12L, 1L)), xx > = structure(c(0.5, 0.866025403784439, 1, 0.866025403784439, 0.5, > 1.22460635382238e-16, -0.5, -0.866025403784438, -1, - > 0.866025403784439, -0.5, -2.44921270764475e-16 ), .Dim = c(12L, > 1L)), y = structure(c(0.5, -0.5, -1, -0.5, 0.5, 1, 0.5, - > 0.499999999999999, -1, -0.5, 0.499999999999999, 1), .Dim = c(12L, > 1L)), yy = structure(c(0.866025403784439, 0.866025403784439, > 1.22460635382238e-16, -0.866025403784438, -0.866025403784439, - > 2.44921270764475e-16, 0.866025403784439, 0.866025403784439, > 3.67381906146713e-16, -0.866025403784439, -0.866025403784439, - > 4.89842541528951e-16), .Dim = c(12L, 1L))), .Names = c("mm[, i]", > "x0", "x", "xx", "y", "yy"), terms = mm[, i] ~ 0 + (x0 + x + xx > + y + yy), row.names = c(NA, 12L ), class = "data.frame")), .Names = > c("coefficients", "residuals", "effects", "rank", "fitted.values", > "assign", "qr", "df.residual", "xlevels", "call", ! > "terms", "model"), class = "lm"), structure(list( coefficients = > structure(c(1, -0.996313162974889, -0.685856462834009, > 0.325823696582116, 0.327699171167941), .Names = c("x0", "x", "xx", > "y", "yy")), residuals = structure(c(-0.0777045386979109, > 0.089533319906306, 0.128276753641805, -0.184243237765273, - > 0.0952797955011903, 0.319208904474422, -0.190396651582146, - > 0.0358873535213481, 0.0787996209644746, -0.0691002539371463, > 0.13416806330851, -0.0973748312905045), .Names = c("1", "2", "3", > "4", "5", "6", "7", "8", "9", "10", "11", "12")), effects = > structure(c(-3.46410161513775, 2.44045887330686, 1.67999837073346, > 0.798101802733592, 0.80269575849442, 0.332038944965529, - > 0.144835679781188, 0.0788191020004607, 0.240265175450381, > 0.066661487462206, 0.181376391686432, -0.137568239718286), .Names = > c("x0", "x", "xx", "y", "yy", "", "", "", "", "", "", "")), rank = > 5L, fitted.values = structure(c(0.240946914643516, 0.028758257088! > 0492, -0.0116801594161259, 0.457479806001854, 1.39902031910459, 2. > 32213685955701, 2.65246839599968, 2.21300966039092, > 1.36003276625189, 0.649104883354945, 0.359211763416442, > 0.329510533607227 ), .Names = c("1", "2", "3", "4", "5", "6", "7", > "8", "9", "10", "11", "12")), assign = 1:5, qr = structure(list(qr > = structure(c(-3.46410161513775, 0.288675134594813, > 0.288675134594813, 0.288675134594813, 0.288675134594813, > 0.288675134594813, 0.288675134594813, 0.288675134594813, > 0.288675134594813, 0.288675134594813, 0.288675134594813, > 0.288675134594813, 1.0359551758099e-16, -2.44948974278318, - > 0.0791992255271195, -0.283323370759051, -0.432752616120393, - > 0.487447515990983, -0.432752616120393, -0.283323370759051, - > 0.0791992255271196, 0.124924919704812, 0.274354165066154, > 0.329049064936743, 1.60326396256294e-16, -4.06575814682064e-17, - > 2.44948974278318, 0.385357119965326, 0.276818123873927, > 0.0876608486418726, -0.131430166589936, -0.321749661221222, - > 0.432301680361632, -0.433463899760863, -0.32! > 4924903669464, -0.13576762843741, 4.07117915768307e-17, > 2.16515173845355e-16, 3.30898503042576e-16, 2.44948974278318, - > 0.1565883283638, -0.28412286470868, -0.0175072160832821, > 0.422389924412376, 0.61883998250704, 0.369775078419853, - > 0.108638802574745, -0.389352556693728, -7.42678488152571e-18, > 6.07912158112622e-16, 4.95615918097436e-17, -1.02240264865383e-16, > 2.44948974278318, 0.0399663322170986, -0.36906922926158, - > 0.453581151684979, -0.103155496641535, 0.3733769380139, > 0.545626107621939, 0.279668949241763 ), .Dim = c(12L, 5L), .Dimnames > = list(c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", > "12"), c("x0", "x", "xx", "y", "yy")), assign = 1:5), qraux = > c(1.28867513459481, 1.12492491970481, 1.38419490056609, > 1.18149437156933, 1.36122122075101 ), pivot = 1:5, tol = 1e-07, rank > = 5L), .Names = c("qr", "qraux", "pivot", "tol", "rank"), class = > "qr"), df.residual = 7L, xlevels = structure(list(), .Names = > characte! > r(0)), call = lm(formula = mm[, i] ~ 0 + (x0 + x + xx + y + yy > )), terms = mm[, i] ~ 0 + (x0 + x + xx + y + yy), model = > structure(list(`mm[, i]` = c(0.163242375945605, 0.118291576994355, > 0.116596594225679, 0.273236568236582, 1.3037405236034, > 2.64134576403143, 2.46207174441754, 2.17712230686957, > 1.43883238721637, 0.580004629417799, 0.493379826724952, > 0.232135702316723 ), x0 = structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, > 1, 1), .Dim = c(12L, 1L)), x = structure(c(0.866025403784439, 0.5, > 6.12303176911189e-17, -0.5, -0.866025403784439, -1, - > 0.866025403784439, -0.5, -1.83690953073357e-16, 0.5, > 0.866025403784438, 1), .Dim = c(12L, 1L)), xx = structure(c(0.5, > 0.866025403784439, 1, 0.866025403784439, 0.5, 1.22460635382238e-16, > -0.5, -0.866025403784438, -1, -0.866025403784439, -0.5, - > 2.44921270764475e-16 ), .Dim = c(12L, 1L)), y = structure(c(0.5, - > 0.5, -1, -0.5, 0.5, 1, 0.5, -0.499999999999999, -1, -0.5, > 0.499999999999999, 1), .Dim = c(12L, 1L)), yy = > structure(c(0.866025403784439, 0.86602! > 5403784439, 1.22460635382238e-16, -0.866025403784438, - > 0.866025403784439, -2.44921270764475e-16, 0.866025403784439, > 0.866025403784439, 3.67381906146713e-16, -0.866025403784439, - > 0.866025403784439, -4.89842541528951e-16), .Dim = c(12L, 1L))), > .Names = c("mm[, i]", "x0", "x", "xx", "y", "yy"), terms = mm[, > i] ~ 0 + (x0 + x + xx + y + yy), row.names = c(NA, 12L ), class = > "data.frame")), .Names = c("coefficients", "residuals", "effects", > "rank", "fitted.values", "assign", "qr", "df.residual", "xlevels", > "call", "terms", "model"), class = "lm")) > > [[alternative HTML version deleted]] > > ______________________________________________ > 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. ______________________________________________ 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.