formatting - Convert "(3e+04,3.5e+04]" type to number in r -


i have data set of car speed on road, , distance of car start point of measuring.

i wanted check mean , se in each 5 km down road, sorted data 'distancefromstart' , made table using function build:

speedbykm <- function(testfile){      setdt(a1a2011)[, list(speed=mean(speed)), by=list(cut(distancefromstart,breaks= seq(0, max(distancefromstart)+5000, = 5000),include.lowest=true))]->res     setdt(a1a2011)[, list(speed=se(speed)), by=list(cut(distancefromstart,breaks= seq(0, max(distancefromstart)+5000, = 5000),include.lowest=true))]->res1     res$se = res1$speed         return(res)  }

the table got is:

            cut    speed         se 1: (3e+04,3.5e+04] 88.16993 0.04784163  2:   (5e+03,1e+04] 94.33507 0.02121293  3: (2e+04,2.5e+04] 99.26032 0.03680951  4: (2.5e+04,3e+04] 90.31163 0.03991980  5:       [0,5e+03] 94.69139 0.01872111  6: (1e+04,1.5e+04] 94.70515 0.02661366  7: (1.5e+04,2e+04] 97.34650 0.02880336

how can make km show number? example, instead of '5e+03' show 5000? thank you.

increase dig.lab parameter default of 3:

x <- (1:5) * 1e3  cut(x, c(500, 2500, 5000)) #[1] (500,2.5e+03]   (500,2.5e+03]   (2.5e+03,5e+03] (2.5e+03,5e+03] (2.5e+03,5e+03] #levels: (500,2.5e+03] (2.5e+03,5e+03] cut(x, c(500, 2500, 5000), dig.lab = 4l) #[1] (500,2500]  (500,2500]  (2500,5000] (2500,5000] (2500,5000] #levels: (500,2500] (2500,5000]

Comments

Post a Comment

Popular posts from this blog

jquery - How do you format the date used in the popover widget title of FullCalendar? -

Image
in fullcalendar, how format date used in popover widget title when clicking '+n more'? code: <div class="fc-popover fc-more-popover"> <div class="fc-header fc-widget-header"> <span class="fc-close fc-icon fc-icon-x"></span> <span class="fc-title">tuesday, april 7</span> ... </div> ... </div> you use daypopoverformat that. determines date format of title of popover created eventlimitclick option. must date formatting string. default value "dddd, mmmm d" english , "ll" other languages.
Read more

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