Flatten a named list in R -


this simple question, can't believe can't figure out. i've searched high , low solution.

i have named list, so:

> fitted(mdl)         1         2         3         4         5         6         7         8  -424.8135 -395.0308 -436.5832 -414.3145 -382.9686 -380.7277 -394.2808 -394.3340          9        10        11        12        13        14        15        16  -401.6710 -386.6691 -407.4558 -427.4056 -397.4963 -415.6302 -436.1703 -378.4489         17        18        19        20        21        22        23        24  -353.7718 -377.3190 -390.5177 -370.3608 -389.7843 -397.8872 -401.9937 -390.4119         25        26        27        28        29        30        31        32  -387.4962 -422.4953 -427.1638 -402.5654 -409.6334 -360.7378 -355.1824 -370.9121         33        34        35        36        37        38        39        40  -377.6591 -373.3049 -388.4417 -398.1172 -357.1107 -376.8618 -378.7070 -420.5362         41        42        43        44        45        46        47        48  -390.8324 -406.5956 -403.1015 -363.5008 -347.2580 -371.0433 -376.4454 -360.3895         49  -383.9711

mdl object returned lm(), , i'm trying extract predicted values using extractor function fitted()

i without 1,2,3,... names. str() told me names attribute. can do

> names(fitted(mdl))  [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10" "11" "12" "13" "14" "15" [16] "16" "17" "18" "19" "20" "21" "22" "23" "24" "25" "26" "27" "28" "29" "30" [31] "31" "32" "33" "34" "35" "36" "37" "38" "39" "40" "41" "42" "43" "44" "45" [46] "46" "47" "48" "49"

and want, except data. after trying various combinations of unlist,cbind/rbind, do.call, c(), etc. figured out solution:

> data.frame(fitted(mdl))$fitted.mdl  [1] -424.8135 -395.0308 -436.5832 -414.3145 -382.9686 -380.7277 -394.2808  [8] -394.3340 -401.6710 -386.6691 -407.4558 -427.4056 -397.4963 -415.6302 [15] -436.1703 -378.4489 -353.7718 -377.3190 -390.5177 -370.3608 -389.7843 [22] -397.8872 -401.9937 -390.4119 -387.4962 -422.4953 -427.1638 -402.5654 [29] -409.6334 -360.7378 -355.1824 -370.9121 -377.6591 -373.3049 -388.4417 [36] -398.1172 -357.1107 -376.8618 -378.7070 -420.5362 -390.8324 -406.5956 [43] -403.1015 -363.5008 -347.2580 -371.0433 -376.4454 -360.3895 -383.9711

but roundabout hack must right under nose.

any suggestions @ i'm missing?

(i don't know how phrase problem well, or come better title question, don't know terminology describe want. feel free edit :)

if you're trying remove names of object, use unname.

here's basic example:

ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14) trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69) group <- gl(2, 10, 20, labels = c("ctl","trt")) weight <- c(ctl, trt) lm.d9 <- lm(weight ~ group) fitted(lm.d9) #     1     2     3     4     5     6     7     8     9    10    11    12    13  # 5.032 5.032 5.032 5.032 5.032 5.032 5.032 5.032 5.032 5.032 4.661 4.661 4.661  #    14    15    16    17    18    19    20  # 4.661 4.661 4.661 4.661 4.661 4.661 4.661

remove names:

unname(fitted(lm.d9)) #  [1] 5.032 5.032 5.032 5.032 5.032 5.032 5.032 5.032 5.032 5.032 4.661 4.661 4.661 # [14] 4.661 4.661 4.661 4.661 4.661 4.661 4.661

Comments

Post a Comment

Popular posts from this blog

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a
Read more

Python Tkinter keyboard using bind -

i have problem using bind option can click button in keyboard, , call function once key pressed. tried taking other codes have similar purpose , saw i'm doing pretty same, though still have problem must've missed. thankful if me this. here's code: # -*- coding: utf-8 -*- #imports tkinter import * pil import imagetk, image import time import tkmessagebox #===========================================================================================================================================# #tkinter class class app(frame): def __init__(self, master=none): frame.__init__(self, master) self.pack() #===========================================================================================================================================# #game pieces classes class board: def __init__(self, rows = 7, columns = 6, picture_height = none, picture_width = none): self.rows = rows self.columns = columns self.picture
Read more

ubuntu - Selenium Node Not Connecting to Hub, Not Opening Port -

i'm trying set demo selenium grid. have digital ocean ubuntu 14.02 droplet. (i have 2 , tried set using 2 different machines got nowhere.) i'm trying run hub , node both locally. here input both hub, node, , nmap results. https://gist.github.com/mekhami/d5bbecca5ff0de9d2dc9 so, node starting tcp connection reset , port it's supposed operate on closed. i have had no luck in number of different options , configurations work. but... of course, worked randomly once. don't know why, don't know did, know 1 brief moment, node connected , saw on grid console. tried run test , went down again , i've never seen come up. please let me know more information can provide. update: randomly came online again. don't know happened, might related timeout or time_wait or going on. this because vm/server not have enough entropy available. to resolve problem, install haveged (or other similar things). the instructions of how install haveged on ubu
Read more