Try reading the lines in (readLines), count the number of both types of
quotes in each line. Find out which are not even and investigate.
On Mon, Apr 8, 2024, 15:24 Dave Dixon wrote:
> I solved the mystery, but not the problem. The problem is that there's
> an unclosed quote somewhere in those
Try this:
> x <- file("C:\\Users\\Jim\\Downloads\\PV2-ch2 - R_Help.ANA",+
> encoding = "UTF-16")> y <- readLines(x)> head(y)[1] "1\t36,74\t0"
> "2\t269,02\t-44" "1\t326,62\t29""2\t354,52\t24"
checkout the 'officer' package
Thanks
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell me what you want to
do, not how you want to do it.*
On Fri, Dec 29, 2023 at 10:14 AM Andy wrote:
> Hello
>
> I am trying to work through a problem, but feel
try using 'lubridate'
> library(lubridate)Attaching package: ‘lubridate’
The following objects are masked from ‘package:base’:
date, intersect, setdiff, union
> x <- "2017-02-28T13:35:00+03:00"> ymd_hms(x)[1] "2017-02-28 10:35:00 UTC"
>
Thanks
Jim
2:00", "8:58"),
EnergykWh = c(4.680496, 6.272414,
1.032782, 11.004884, 10.096824, 6.658797, 4.808874, 1.469384,
2.996239, 0.303222, 4.988339, 8.131804, 0.117156, 3.285669, 1.175608,
3.677487, 1.068393, 8.820755, 8.138583, 9.0575)),
row.names = c(NA, 20L), class = "dat
How about send a 'dput' of some sample data. My guess is that your date is
'character' and not 'Date'.
Thanks
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell me what you want to
do, not how you want to do it.*
On Thu, Nov 2, 2023 at 4:24 PM
2 ...6 61.019 2 ...7 63.020 2 ...8
93.0
>
Thanks
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell me what you want to
do, not how you want to do it.*
On Fri, Oct 27, 2023 at 10:41 PM Paul Bernal wrote:
> Hi Iris,
>
> Thank you so mu
So what is the problem that you would like help in correcting? The program
seems to run.
Thanks
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell me what you want to
do, not how you want to do it.*
On Mon, Dec 5, 2022 at 12:59 PM ASHLIN VARKEY
wrote
PI. date
## 1 2022m1 4994 2022-01-01
## 2 2022m2 5336 2022-02-01
## 3 2022m3 5671 2022-03-01
## 4 2022m4 6532 2022-04-01
## 5 2022m5 7973 2022-05-01
## 6 2022m6 10365 2022-06-01
## 7 2022m7 12673 2022-07-01
## 8 2022m8 14356 2022-08-01
## 9
Still at it after 38 years. First came across S at Bell Labs in 1984.
Thanks
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell me what you want to
do, not how you want to do it.*
On Thu, Sep 29, 2022 at 7:09 AM Ebert,Timothy Aaron wrote:
> Learnin
Glad to help!
Happy Holidays
Thanks
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Wed, Dec 22, 2021 at 11:12 PM Marna Wagley wrote:
>
> Dear Jim,
> Thank you very much for the help. The c
1.284 69.985 52.46340
3 0.741 51.249 75.914 56.96310
4 0.394 51.200 40.303 30.25918
5 0.200 51.137 20.493 15.34110
6 0.655 51.059 66.905 50.16535
7 0.375 50.968 38.185 28.66948
>
Thanks
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to
filter(hwy <35) %>%
print(ggplot(aes(x = displ, y = y[i], color = c[i])) + geom_point())
ggsave("c:/temp/f[i].jpg",width = 9, height = 6, dpi = 1200, units = "in")
}
Thanks
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
At least show a sample of the data and then what you would like as output.
Thanks
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell me what you want to
do, not how you want to do it.*
On Wed, Dec 15, 2021 at 6:40 AM Rich Shepard
wrote:
> A 33-year
drop the select, or put tz in the select
Thanks
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell me what you want to
do, not how you want to do it.*
On Mon, Nov 1, 2021 at 3:39 PM Rich Shepard
wrote:
> On Mon, 1 Nov 2021, CALUM POLWART wr
for (i in 1:(nrow(PLC_Return) - 1)) {
if (i == 1) {
NUMBER_OF_SHARES[i] = 100 / is.na(CLOSE_SHARE_PRICE[i])
} else {
if (is.na(PLC_Return[i, 1]) == is.na(PLC_Return[i + 1, 1]) {
NUMBER_OF_SHARES[i] = 0
} else {
NUMBER_OF_SHARES[i] = 100 / is.na(CLOSE_SHARE_PRICE[i])
], -1))] <- .x[i]
+ }
+ result
+ }))
>
> # now add commas to convert to CSV
> x_csv <- apply(x_matrix, 1, paste, collapse = ',')
>
> # now read in and create desired output
> read_csv(x_csv)
# A tibble: 6 x 4
x1 x2x3x4
1 1 B12
2 2 C23
3 32
It looks like we can look at the last digit of the data and that would
be the column number; is that correct?
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
Jim Holtman
Data Munger Guru
What is the problem
to
the 'fixed' field?
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell me what you want to
do, not how you want to do it.*
On Mon, Feb 22, 2021 at 5:00 PM jim holtman wrote:
> Try this:
>
> > library(tidyverse)
>
> > text <- "x1 x
columns 2 columns literal data
6 -- 4 columns 3 columns literal data
> mydata
# A tibble: 6 x 4
x1 x2x3x4
1 1 B12 NANA
2 2 C23 NANA
3 322 B32 D34 NA
4 4 D44 NANA
551 D53 NA NA
660 D62 NANA
>
Jim Holtman
Data Munger
nce <-mean((ypred- mean(ypred))^2)
+
+ lst[[i]] <- c(MSE = MSE,
+biais = biais,
+variance = variance)
+ # lst[i]<-MSE
+ # lst[i]<-biais
+ # lst[i]<-variance
+
+ }
>
> # convert to a matrix
>
> x <- as.matrix(do.call(rbind, lst))
yes it is the expected behaviour is you check the documentation:
Using "month" first advances the month without changing the day: if
this results in an invalid day of the month, it is counted forward
into the next month: see the examples.
Jim Holtman
Data Munger Guru
What is t
ymin, fill=factor(job))) +
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you
Why do you want to replace '\\' with '\' in the file names? They are
actually single '\' in the character string, but are printing out as '\\'.
see example below:
> x <- 'a\\b'
> x
[1] "a\\b"
> nchar(x)
[1] 3
Jim Holtman
*Data Munger Guru*
*What i
0, dim = dim(B))
>
> # get the indices of values to replace
> indx <- which(C, arr.ind = TRUE)
>
> result[indx] <- B[indx]
>
> result
[,1] [,2] [,3] [,4]
[1,]1600
[2,]2000
[3,] 30 00
[4,]400 19
[5,]50
one of the problems with Excel is that people can put anything in any
column. You might want to restrict which columns you are reading
since if it finds data in some cells and there is not a header, it
will create one.
Jim Holtman
Data Munger Guru
What is the problem that you are trying
se(output)
=======
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Fri, May 29, 2
based on the evaluation of X<0, Y<0 and Y
> index <- with(input,
+ (X < 0) * 4 + (Y < 0) * 2 + (Y < X)
+ )
>
> phase_val <- c(6, 5, 4, 3, 8, 7, 2, 1)
>
> input$phase_2 <- paste0('phase=', phase_val[index + 1L])
> input
# A tibble: 2 x 7
YEAR
~ 'phase=3',
X > 0 & Y < 0 & Y > X ~ 'phase=4',
X > 0 & Y > 0 & Y > X ~ 'phase=6',
X > 0 & Y > 0 & Y < X ~ 'phase=5',
TRUE ~ 'unknown'
)
)
Jim Holtman
*Data Munger G
; input
# A tibble: 2 x 6
YEAR DAY X Y Sig phase
1 1981 9 -0.213 1.08 1.1 phase=8
2 198110 0.065 1.05 1.05 phase=6
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell me what you want to
do, not how you want to do it.*
112 199401 0.000533
6112 199402 0.000593
7112 199403 0.000471
8112 199404 0.000587
9113 199401 0.000692
10113 199402 0.000591
11113 199403 0.000677
12 113 199404 0.000555
>
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell
The first parameter needs to be a character vector:
install.packages(c("Blossom","INLA","RTisean","RcppProgress","STRbook",
"askpass","classInt","ellipsis","generics","lpSolve","
odesolve&qu
I am not familiar with SAS, so what did you want your output to look like.
There is the 'table' function that might do the job and then there is
always 'dplyr' which can do the hard stuff. So we need more information on
what you want.
Jim Holtman
*Data Munger Guru*
*What is the problem
You can also use 'dplyr'
library(tidyverse)
result <- pcr %>%
group_by(Gene, Type, Rep) %>%
summarise(mean = mean(Ct),
sd = sd(Ct),
oth = sd(Ct) / sqrt(sd(Ct))
)
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solv
1 1 0 0 1
3 2 3 2 1 3 3 0 0 1
2 3 1 3 3 1 2 0 1 1
1 1 2 1 1 2 2 1 1 1
3 3 3 1 1 1 1 0 1 1
1 2 1 2 2 2 2 1 1 0
1 3 2 3 1 1 3 1 0 1
3 1 1 1 3 3 2 1 1 0
1 1 1 2 3 3 3 1 1 0
1-10 of 10 rows | 1-10 of 11 columns
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell m
g_rate
1 2001 7869288. EU28-Egypt -0.148
2 2003 6395999. EU28-Egypt -0.120
3 2001 19851236. World-Egypt -0.0721
4 2003 16055014. World-Egypt -0.175
5 2001 11981948. Extra EU28-Egypt -0.0147
6 2003 9659015. Extra EU28-Egypt -0.207
>
Jim Holtman
*Data
orld-Algeria 35070922.
[[2]]
# A tibble: 3 x 2
relation tot
1 EU28-Egypt7692530.
2 Extra EU28-Egypt 11494855.
3 World-Egypt 19187385.
>
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell me what you want to
> s2 <- apply(x*x, 2, sum)
> s2
[1] 55 330
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Tue, Oct 30, 2018 at 10:28 PM Steven Yen wrote:
>
> I need help with "apply". Below,
, vjust = 1.0, hjust = 1.0))
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do
and then follow that path to make sure that there is a directory
there that you can write into.
Jim Holtman
*Data Munger Guru*
*What is the problem that you are trying to solve?Tell me what you want to
do, not how you want to do it.*
On Sat, Oct 20, 2018 at 1:19 PM MEENA SUBRAMANIAN via R-help
day = floor_date(date, unit = 'day')
+ )
>
> by_day <- input %>%
+ group_by(day) %>%
+ summarise(m_s1 = mean(str1),
+ m_s2 = mean(str2),
+ m_s3 = mean(str3)
+ )
>
> by_day
# A tibble: 1 x 4
day m_s1 m_s2 m_s3
You probably want to use 'get':
> r1 <- 5
> r2 <- 3
> r3 <- 45
> x <- ls(pattern = '^r.$')
> x
[1] "r1" "r2" "r3"
> lapply(x, get)
[[1]]
[1] 5
[[2]]
[1] 3
[[3]]
[1] 45
>
Jim Holtman
Data Munger Guru
What is the problem that yo
> # average by ID/week
> avg <- x_long %>%
+ group_by(ID, year, week) %>%
+ summarise(avg = mean(value))
> avg
# A tibble: 6 x 4
# Groups: ID, year [?]
ID year week avg
1 1 1986.1. 16.0
2 2 1986.1. 16.0
3 3 1986.1. 17.9
4 4 198
summarise(avg = mean(value))
> avg
# A tibble: 6 x 3
# Groups: ID [?]
ID week avg
1 11. 16.0
2 21. 16.0
3 31. 17.9
4 4 1. 16.0
5 51. 17.9
6 61. 16.0
>
Jim Holtman
Data Munger Guru
What is the problem that you ar
i] > 1){ # something inbetween
ret_indx <- c(ret_indx, (offsets[i] + 1):(offsets[i+1] - 1))
}
}
DF[ret_indx, ]
## name val
## 3v 0
## 4 z 0
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
nce you only want the rows in between
DF[diff(offsets), ]
## name val
## 2v 0
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Sat, May 19, 2018 at 7:58 AM, Rui Barradas <ruipbarra...@sapo.pt&
, head=TRUE
)
input$id <- paste0("sn", x)
input # return the input
})
result <- do.call(rbind, result) # combine dataframes together
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want
a simple Google search turns up several possible choices. There is a
package 'matconv' that might serve your purposes.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Thu, Jan 18, 2018 at 7:49 AM, Anjali
ot;QMM",
"07EA001" ,1972 , 1976 , "QMC",
"07EA001" ,1977 , 1983 , "QRC"
)
result <- input %>%
rowwise() %>%
do(tibble(station = .$station,
year = seq(.$from, .$to),
record = .$record)
)
###
{
+ closureList[[i]] <- list(func = rnorm, n = nsize[i])
+ }
> format(object.size(closureList), units = "Mb")
[1] "22.4 Mb"
> pryr::compare_size(closureList)
base pryr
23520040 2241776
You will notice that you get back a size that is 10X smaller becaus
You should be able to use that header information to create the
correct parameters to the read_fwf function to read in the data.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Thu, Oct 5, 2017 at 11:02
7.1
5.26 5.70 NA -182 2.4
# ... with 3 more variables: X15 , X16 , X17
>
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Thu, Oct 5, 2017 at 10:12 AM, jean-philippe
<jeanphilippe.fonta...@gssi.in
;- zoo::na.locf(x$flag)
# determine weeks since
x$weeks_since <- ifelse(x$count != 0,
x$count - x$flag + 1,
0
)
x # print out the result
##
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what yo
Have you tried 'foverlaps' in the data.table package?
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Mon, Sep 4, 2017 at 8:31 AM, Mohammad Tanvir Ahamed via R-help <
r-help@r-project.org> wrote:
for the
differences. I have attached the output of the profiler.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Mon, Aug 7, 2017 at 10:57 AM, Thierry Onkelinx <thierry.onkel...@inbo.be>
wrote:
> D
columns did the data have. How big was the file on disk. What other
objects were in memory at the same time. The list can go on and on, so
more information would be useful to understand the problem.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what
10 ...
$ Data: int 8243 2265 2340 1014 1281 58 156 140 1087 322 ...
$ in : num 8.24 2.27 2.34 1.01 1.28 ...
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Wed, Jun 28, 2017 at 7:30 PM, John <j...
mo : int 1 2 3 4 5 6 7 8 9 10 ...
$ Data: int 8243 2265 2340 1014 1281 58 156 140 1087 322 ...
$ in : num 8.24 2.27 2.34 1.01 1.28 ...
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Wed, Jun 28, 2017
You need to provide reproducible data. What does the file contain? Why
are you using 'sep=' when reading fixed format. You might be able to
attach the '.txt' to your email to help with the problem. Also you did not
state what the differences that you are seeing. So help us out here.
Jim
function(x){
+ toString(intersect(str_extract_all(x[1], "[^,]")[[1]],
+ str_extract_all(x[2], "[^,]")[[1]]
+ ))
+ })
>
> input
A B shared values
1 1,2,5 3,8,7
2 2,4,6 7,6,3 6
Jim Holtman
Data Munger Guru
What is the p
tion(n) n+1
> print(xx(3))
[1] 4
>
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Sun, Apr 16, 2017 at 10:26 PM, Ramnik Bansal <ramnik.ban...@gmail.com> wrote:
> In the code below
>
e n t _ T y p e s ] . x m
6f6e74656e745f54 797065735d2e786d
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Sun, Apr 16, 2017 at 9:21 PM, Jeff Newmille
if you have 8GB of memory it should be easy to handle.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Wed, Apr 5, 2017 at 3:23 AM, Louisa Reynolds
<louisa_reyno...@yahoo.co.uk> wrote:
> O
How big is 'large'?
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Tue, Apr 4, 2017 at 7:47 AM, Louisa Reynolds via R-help
<r-help@r-project.org> wrote:
> Dear Forum
> I am trying to cut
you need to show what 'str' shows for the data structure
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Thu, Mar 30, 2017 at 12:08 AM, paulberna...@gmail.com
<paulberna...@gmail.com> wrote:
>
>
> str(dataset1)
'data.frame': 378 obs. of 2 variables:
$ TransitDate: chr "1-Oct-85" "1-Nov-85" "1-Dec-85" "1-Jan-86" ...
$ Transits : int 55 66 14 48 57 49 70 19 27 28 ...
> head(dataset1)
TransitDate Transits
11-Oct-85 55
you are probably missing a comma:
View(data[data$fact > 5000, ])
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Thu, Mar 16, 2017 at 11:16 AM, Juan Ceccarelli Arias <jfca...@gmail.com>
wrote:
quot;")
> seq1
[1] "DQ60054" "DQ60055" "DQ60056" "DQ60057" "DQ60058" "DQ60059" "DQ60060"
>
> # use 'sprintf' to create leading zeros
> seq2 <- paste0("DQ", sprintf("%06d", seq(060054,
?sys.source
Here is an example of the way I use it:
# read my functions into a environment
.my.env.jph <- new.env()
.sys.source('~/C_Drive/perf/bin/perfmon.r', envir=.my.env.jph)
attach(.my.env.jph)
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me w
he objects that are
important, and then I can reload at that point and carry forward. Also you
will have the objects that you need to examine if you have too. If I had
something running that long, I would at least take a checkpoint every hour
to help in the debugging/recovery process.
Jim Holtman
Data Munger
You will probably have to check with your network folks to see what is
possible on your system.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Mon, Dec 5, 2016 at 6:33 AM, <qwertyui_per...@yahoo.co
state nCities count 100's 200's
1: 1 3 7 4 3
2: 2 4 8 4 4
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Sat, Dec 3, 2016 at 10:40 AM, Val <valkr...@gmail.co
just assign it to an object
x<- DT .
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Sun, Nov 27, 2016 at 2:03 AM, lily li <chocol...@gmail.com> wrote:
> Thanks Jim, this method is ver
You did not provide any data, but I will take a stab at it using the
"dplyr" package
library(dplyr)
DT %>%
group_by(month, id, note) %>%
summarise(avg = mean(total))
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to
be the cause of your problem.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Thu, Nov 3, 2016 at 1:55 PM, Maram SAlem <marammagdysa...@gmail.com>
wrote:
> Hi all,
>
> I've a question concern
2 211 0.4
2.21 2 241 0.4
2.22 2 271 0.6
2.23 2 301 1.5
2.24 2 331 4.5
2.1312 361 9.0
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Mon, Oct 31, 2016 at 8:59 AM, Kristi Glover
<
e
> require(data.table)
> setDT(input) # convert to data.table
> input[, diff := Num - Num[1L], by = Year][] # print output
Year Num diff
1: 2001 250
2: 2001 75 50
3: 2001 150 125
4: 2002 300
5: 2002 85 55
6: 2002 95 65
Jim Holtman
Data Munger Guru
What is the problem
between, last
> setDT(input) # convert to data.table
> input[, diff := c(0, diff(Num)), by = Year][] # print output
Year Num diff
1: 2001 250
2: 2001 75 50
3: 2001 150 75
4: 2002 30 0
5: 2002 85 55
6: 2002 95 10
>
Jim Holtman
Data Munger Guru
What is the problem that you
within the VBS script you can easily access remote computers.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Mon, Oct 17, 2016 at 5:58 AM, Manohar Reddy <manu.redd...@gmail.com> wrote:
> T
18 processor:0" "PercentProcessorTime:
6 processor:1"
[3] "PercentProcessorTime: 6 processor:2" "PercentProcessorTime:
0 processor:3"
[5] "PercentProcessorTime: 7 processor:_Total"
>
>
#
Jim Holtman
Data Munger Guru
What is the pro
I forgot to add that if you have less than 16GB of memory, then you
were probably paging memory to disk and that would have take a much,
much, longer time. When you are trying to do something BIG, do it in
some smaller steps and look at the resources that it takes (memory,
cpu, ...).
Jim Holtman
lapsed
30.761.70 32.92
> memory.size()
[1] 11502.52
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Sat, Oct 15, 2016 at 12:19 PM, Huy Nguyễn <quanghuy1...@gmail.com> wrote:
> When I ran this c
4 2 0 2012-12-25 1 0 0
5 2 450 2014-09-15 2450629
6 2 750 2016-01-30 3 300502
7 2 656 2016-11-30 4-94305
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not h
I use the "openxlsx" package to handle spreadsheets.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Mon, Sep 26, 2016 at 5:56 PM, Christofer Bogaso <
bogaso.christo...@gmail.com> wr
quot;,quietly=TRUE))
suppressMessages(install.packages("xlsx",quietly=TRUE))
if (!require("ROracle",quietly=TRUE))
suppressMessages(install.packages("T:/CH/R/ROracle_1.2-2.zip", repos =
NULL, type = "source",quietly=TRUE))
})
Jim Holtman
Data Munger Guru
W
put)
library(pack)
library(readr)
# read all the data at once
allbin <- read_file_raw('integer.bin')
# decode the data into a list
(result <- unpack("V V V V V V V V V V d d d d d d d d d d", allbin))
Jim Holtman
Data Munger Guru
What is the problem that you are trying to
I would also suggest that you take a look at the 'pack' package which can
convert the binary input to the value you want. Part of your performance
problems might be all the short reads that you are doing.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me
Your example was not reproducible. Also how do you "break" out of the
"while" loop?
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Sat, Sep 17, 2016 at 8:05 AM, Philippe de Rocham
try this:
> gsub("", "/", test)
[1] "8/24/2016" "8/24/2016" "6/16/2016" "6/16/2016"
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to d
Here is an attempt at parsing the data. It is fixed field so the regular
expression will extract the data. Some does not seem to make sense since
it has curly brackets in the data.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do
It is not clear as to how you want to parse the file. You need to at least
provide an example of what you expect from the output. You mention " the
detail which begins with 2 at byte location 1 to another file"; I don't see
the '2' at byte location 1.
Jim Holtman
Data Munger
try the openxlsx package
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Sun, Aug 21, 2016 at 1:30 PM, Kevin Kowitski <k.kowit...@icloud.com>
wrote:
> Hey everyone,
>
>I have
L == 1)
+ if (length(indx) == 1) .id <- .id[1:indx, ] # keep upto the '1'
+ .id
+ })
+ )
>
>
> result
ID TIME LABEL
1.1 10 0
1.2 13 0
1.3 16 0
1.4 19 0
1.5 1 12 1
2.8 20 0
2.9 23 0
2.10 2
ipts to see if anything
refers to either "value" or "visible", and then you might find the cause of
your problem.
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Fri, Jul 29, 2016 at 6:52
)
>
>
> agg
# A tibble: 3 x 3
subject QMyi
1 s1 57.8918 28.240036
2 s2 5.7602 4.077484
3 s3 -35.8694 2.666504
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you w
>
> agg
# A tibble: 3 x 3
subject QM yi
1 s1 46.1558 -90.04829
2 s2 -50.2313 -180.33473
3 s3 -50.9669 -136.08716
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to
add another step: (need to learn about regular expressions)
> a
[1] "X35.84375_.100.71875"
> a.new <- sub("^.", '', a)
> a.new
[1] "35.84375_.100.71875"
> sub("_.", "_-", a.new)
[1] "35.84375_-100.71875"
>
Jim Holtm
just strip off the first character:
> a
[1] "X35.84375_.100.71875"
> a.new <- sub("^.", '', a)
> a.new
[1] "35.84375_.100.71875"
>
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how
269.7 6.45 7.21 1026.81 3.86 -3.6
3 2015 3 1 4.5 269.7 6.45 7.21 1026.81 3.86 -3.6
>
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Sun, Jul 17, 2016 at 5:42 PM, Jianling Fan &
You may need to re-read the Intro to R.
data[data$Ozone > 31,]
or
subset(data, Ozone > 31)
Jim Holtman
Data Munger Guru
What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
On Fri, Jul 1, 2016 at 5:11 AM, Giles Bischoff &l
1 - 100 of 3647 matches
Mail list logo
