r - Breaking up a character string into multiple character strings on different lines -

-

i have data frame contains long character string each associated 'sample':

sample  data   1     000000000000000000000000000n01000000000000n0n000000000n00n0000nn00n0n000000100000n00n0n0000000nnnn011111111111111111111111111111110000000000000000000n000000n0000000000n   2     000000000000000000000000000n01000000000000n0n000000000n00n0000nn00n0n000000100000n00n0n0000000nnnn011111111111111111111111111111110000000000000000000n000000n0000000000n

i code easy way break string 5 pieces in following format:

sample x cct6 - characters 1-33 gat1 - characters 34-68 imd3 - characters 69-99 pdr3 - characters 100-130 rim15 - characters 131-168

giving output looks each sample:

sample 1 cct6 - 000000000000000000000000000n01000 gat1 - 000000000n0n000000000n00n0000nn00n0 imd3 - n000000100000n00n0n0000000nnnn0 pdr3 - 1111111111111111111111111111111 rim15 - 0000000000000000000n000000n0000000000n

i've been able use substr function break long string individual pieces id able automate can 5 pieces in 1 output. ideally output data frame.

this ?read.fwf for.

first data looks question: 

x <- data.frame(sample = c(1, 2), data = c("000000000000000000000000000n01000000000000n0n000000000n00n0000nn00n0n000000100000n00n0n0000000nnnn011111111111111111111111111111110000000000000000000n000000n0000000000n",  "000000000000000000000000000n01000000000000n0n000000000n00n0000nn00n0n000000100000n00n0n0000000nnnn011111111111111111111111111111110000000000000000000n000000n0000000000n"),  stringsasfactors = false)

now use read.fwf, specify widths of each field , names, , should of mode character. wrap text column of example data in textconnection can treat connection understood read.* , other functions. 

(strs <- read.fwf(textconnection(x$data), widths = c(33, 35, 31, 31, 38), colclasses = "character", col.names = c("cct6", "gat1", "imd3", "pdr3", "rim15")))                                  cct6                                gat1                            imd3                            pdr3                                  rim15 1 000000000000000000000000000n01000 000000000n0n000000000n00n0000nn00n0 n000000100000n00n0n0000000nnnn0 1111111111111111111111111111111 0000000000000000000n000000n0000000000n 2 000000000000000000000000000n01000 000000000n0n000000000n00n0000nn00n0 n000000100000n00n0n0000000nnnn0 1111111111111111111111111111111 0000000000000000000n000000n0000000000n

now loop on rows , print out each 1 per example: 

for (i in 1:nrow(strs)) {   writelines(paste("sample", i))   writelines(paste(names(strs), strs[i, ], sep = " - ")) }

giving, example: 

sample 2 cct6 - 000000000000000000000000000n01000 gat1 - 000000000n0n000000000n00n0000nn00n0 imd3 - n000000100000n00n0n0000000nnnn0 pdr3 - 1111111111111111111111111111111 rim15 - 0000000000000000000n000000n0000000000n

Comments

Post a Comment

Popular posts from this blog

c# - Getting control value when switching a view as part of a multiview -

-
i have following code in aspx page: <asp:button id="display_button" runat="server" text="display" onclick="button1_click" /> &nbsp; <asp:button id="edit_button" runat="server" text="edit" onclick="button2_click" /> &nbsp; <asp:button id="save_button" runat="server" text="save" onclick="button3_click" visible="false" /> &nbsp; <asp:multiview id="multiview1" runat="server" activeviewindex="0"> <asp:view id="view1" runat="server"> <asp:formview id="view_program" runat="server"> <itemtemplate> <%# eval("status").tostring().trim() %> </itemtemplate> </asp:formview> </asp:view> <asp:view id="view2" runat="server"> ...
Read more

objective c - Change font of selected text in UITextView -

-
can suggest me how change font of selected text in uitextview.i cannot use uiwebview since have edit text. have seen pages app.how possible in app. see formatting text within uilabel differently . since need editing, should @ javascript-based editors such ckeditor or tinymce . highly recommend wwdc 2011 video session 511: "rich text editing in safari on ios."
Read more

php - Accessing POST data in Facebook cavas app -

-
so i've got simple form in canvas / iframe facebook app, , i'm trying pass along values post. reading on s.o. , fb's latest docs, understand it, data send via post form can accessed on receiving end $_request object. i read on thread on s.o. in order post forms work need pass along input named "signed_request" value current signed_request (i have signed request working ok otherwise...all login , authentication stuff working fine). isnt mentioned anywhere in official fb docs. so problem comes in $_request object signed request, , bunch of other session stuff. form inputs found. the way can read them set method of form "request" isn't real form method. takes of inputs , sends them args in url. horrible. here's sample page canvas app form i'm using try debug (leaving out authentication stuff): <form enctype="application/x-www-form-urlencoded" method="post" target="_top" id="my_form" action=...
Read more