similar to: Lose of decimal when using write.table to text file

Thanks Boris , this was very helpful but I'm struggling with the last part. 1) I combined the first 2 columns :- library(tidyr) SingleMealsCode <-unite(MyData, MealsCombinations, c(MealA, MealB), remove=FALSE) SingleMealsCode <- SingleMealsCode[,-2] 2) I separated this dataframe into different dataframes based on "MealsCombination" column so R will recognize each meal

Hi all .., I have a large dataset of around 600,000 rows and 600 columns. The first col is codes for Meal A, the second columns is codes for Meal B. The third column is customers IDs where each customer had a combination of meals. Each column of the rest columns contains values 0,1,or 2. The dataset is organised in a way so that the first group of customers had similar meals combinations, this

Something like the following? AllMAFs <- list() for (i in length(SeparatedGroupsofmealsCombs) { AllMAFs[[i]] <- apply(SeparatedGroupsofmealsCombs[[i]], 2, function(x)maf(tabulate(x+1))) } (untested, of course) Also the solution is a bit generic since I don't know what the output of maf() looks like in your case, and I don't understand why you use tabulate because I would have

Combine columns 1 and 2 into a column with a single ID like "33.55", "44.66" and use split() on these IDs to break up your dataset. Iterate over the list of data frames split() returns. B. > On Nov 17, 2017, at 12:59 PM, Allaisone 1 <allaisone1 at hotmail.com> wrote: > > > Hi all .., > > > I have a large dataset of around 600,000 rows and 600

Although the loop seems to be formulated correctly I wonder why it gives me these errors : -object 'i' not found - unexpected '}' in "}" the desired output is expected to be very large as for each dataframe in the list of dataframes I expect to see maf value for each of the 600 columns! and this is only for for one dataframe in the list .. I have around 150-200

> On Nov 18, 2017, at 1:52 AM, Allaisone 1 <allaisone1 at hotmail.com> wrote: > > Although the loop seems to be formulated correctly I wonder why > it gives me these errors : > > -object 'i' not found > - unexpected '}' in "}" You probably did not copy the entire code offered. But we cannot know since you did not "show your code",

The loop : AllMAFs <- list() for (i in length(SeparatedGroupsofmealsCombs) { AllMAFs[[i]] <- apply( SeparatedGroupsofmealsCombs[[i]], 2, function(x)maf( tabulate( x+1) )) } gives these errors (I tried this many times and I'm sure I copied it entirely) :- Error in apply(SeparatedGroupsofmealsCombs[[i]], 2, function(x) maf(tabulate(x + : object 'i' not found > }

On 18/11/2017 4:40 PM, Allaisone 1 wrote: > > The loop : > > > AllMAFs <- list() > > for (i in length(SeparatedGroupsofmealsCombs) { > AllMAFs[[i]] <- apply( SeparatedGroupsofmealsCombs[[i]], 2, function(x)maf( tabulate( x+1) )) > } > > > gives these errors (I tried this many times and I'm sure I copied it entirely) :- > > Error in

Thanks but a new error appeared with the loop : Error in x + 1 : non-numeric argument to binary operator I think this can be solved by converting columns (I,II,II,..600) into "numeric" instead of the current "int" type as shown below in the structure of "33_55" dataframe . $ 33_55:'data.frame': 256 obs. of 600 variables: ..$ MealsCombinations

Hi! I am quiet new with R and I have some problems to perform a posthoc test with an lme model. My model is the following: >lme1<-lme(eexp~meal+time, random=~1|id,na.action=na.omit) and then i try to get a post hoc test: >summary(glht(lme1,linfct=mcp(meal="Tukey))) but I get a warning message: Erreur dans as.vector(x, mode) : argument 'mode' incorrect Thank you for your

All, I'm sure that this is covered somewhere, but I can't seem to find a good explanation. I have an existing table that contains information grouped by date. This is as so: Day NumberOfCustomers NumberOfComplaints 20060512 10040 40 20060513 32420 11 ... I also have a table at the detail level as so: Day Meal PricePaid UsedCupon 20060512 Fish 14 Y 20060512 Chicken 20 N

I have the following problem with outputting multilingual data to a file. I get (except for Korean) what I expect as result in the RGui, but when I use sink() to output to a text file loose the characters in the foreign languages. I post a small example below. Since I am not sure how well my email system as the list copes with all the different characters I have additionally created a pdf

On 05/03/2020 08:34, Stefan G. Weichinger via samba wrote: > Am 05.03.20 um 09:19 schrieb Stefan G. Weichinger via samba: >> upgrade one of 2 DCs from 4.10 to 4.11.6 >> >> seems to work, I wonder about these messages: >> >> M?r 05 09:06:21 adc1 samba[4198]: task[dreplsrv][4198]: [2020/03/05 >> 09:06:21.737684, 0] >>

Am 05.03.20 um 10:48 schrieb Stefan G. Weichinger via samba: > Am 05.03.20 um 10:40 schrieb Rowland penny via samba: >> On 05/03/2020 08:34, Stefan G. Weichinger via samba wrote: > >>> downgrade or fix ;-)? ? >>> >> This hit me yesterday, restart the DC, check with 'ps ax' and I think >> you will find that only 'Samba' has started. If so

Thank you for the idea. The problem with RetryDial, is that it will cancel the first call, play the announce and then dial the SIP peer once again, so the telephone will display a missed call. I would prefer to do everything in a single call. Le 22/08/2016 ? 17:57, John Kiniston a ?crit : > You could try using RetryDial() instead of Dial, It supports playing > an announcement. >

I've got this setup in a test context. [test] exten => s,hint,SIP/7124 exten => s,1,NoOP(Options to $EXTEN) same => n,Hangup() exten => _x.,hint,SIP/7124 exten => _X.,1,NoOP(Options to $EXTEN) same => n,Hangup() exten => Anonymous,hint,SIP/7124 exten => Anonymous,1,NoOP(Options to $EXTEN) same => n,Hangup() I added hints to see if that would make a difference

Sorry, I forgot to write that the SIP peer must keep ringing while the announcement is being played. Le 22/08/2016 ? 17:42, John Kiniston a ?crit : > This seems like the obvious answer but maybe I'm misunderstanding the > question. > > exten => s,1,Dial(SIP/alice,20) > same => n,Playback(myannouncement) > same => n,NoOP(Whatever else you want to do goes

That's just what I'm using, John. But I'm getting (eg) [Nov 4 21:46:16] ERROR[1676][C-00000003]: func_env.c:449 file2format: Cannot open '/home/logs/anonymous.txt': No such file or directory [Nov 4 21:46:16] ERROR[1676][C-00000003]: func_env.c:949 file_write: File '/home/logs/anonymous.txt' not in line format Asterisk is running as root (yeah, I know!), and has

Dear group, I have these 2 following data frame: allcon <- structure(list(DESCRIPTION = structure(1:17, .Label = c("COFFEE C Jul/10", "COPPER May/10", "CORN Jul/10", "CORN May/10", "COTTON NO.2 Jul/10", "CRUDE OIL miNY May/10", "GOLD Jun/10", "HENRY HUB NATURAL GAS May/10", "ROBUSTA COFFEE (10)

I'm implementing a SBC with my Asterisk PBX but the keeps disabling the trunk group I've configured and I think it may be because Asterisk is returning a 4r04 to the OPTIONS. I've created a test context and have put in a wildcard pattern match to try and catch those options but it doesn't seem to work. Is there a way to have asterisk respond with an 200 OK instead of a 404? --