Hi all,
Thank you very much.
I learn a lot from your suggested solution.
On Sun, Nov 5, 2023 at 12:56 AM Rui Barradas wrote:
> Às 01:49 de 03/11/2023, roslinazairimah zakaria escreveu:
> > Hi all,
> >
> > This is the data:
> >
> >> dput(head(dt1,20))struc
uot;22: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.name
ethod("group_by") :
no applicable method for 'group_by' applied to an object of class
"c('matrix', 'array', 'double', 'numeric')"
On Fri, Nov 3, 2023 at 7:23 AM roslinazairimah zakaria
wrote:
> Dear all,
>
> I have this set of data. I would like to sum the EnergykWh a
Thank you very much for your help. It is very much appreciated.
On Fri, Nov 3, 2023 at 7:23 AM roslinazairimah zakaria
wrote:
> Dear all,
>
> I have this set of data. I would like to sum the EnergykWh according date
> sequences.
>
> > head(dt1,20) Statio
14,
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 = "data.frame")
I would like to sum EnergykW data by the date. E.g.
3 11 1/11/201993.5 12
1/11/202066.7 13 1/12/201778.6 14 1/12/201842.2 15
1/12/201922.7 16 1/12/202080.9 17 1/13/201785.6 18
1/13/201846.4 19 1/13/201940.0 20 1/13/2020 121.
Thank you very much for any help given.
--
*Roslinazairimah Zakaria*
*Tel: +6
Hi,
Jim is always very helpful. So sorry to hear that.
On Thu, Oct 5, 2023, 13:45 Ogbos Okike wrote:
> I'm yet to accept this. I have sent an email to his wife.
> Ogbos.
>
> On Thu, Oct 5, 2023, 06:35 Rui Barradas wrote:
>
> >
> > My sympathies for your loss.
> > Jim Lemon was a dedicated
t;
> > would prefer the x2 value.
> >
> > You should think about what you would do in these other cases as well.
> >
> > Duncan Murdoch
> >
> > __
> > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more,
Thank you for the general code. Really appreciate it.
On Tue, Sep 5, 2023 at 7:45 PM Duncan Murdoch
wrote:
> On 05/09/2023 4:55 a.m., roslinazairimah zakaria wrote:
> > Hi all,
> >
> > I have these data
> >
> > x1 <- c(116,0,115,137,127,0,0)
> > x2 <
Thank you very much for your help.
On Tue, Sep 5, 2023 at 6:39 PM Rui Barradas wrote:
> Às 09:55 de 05/09/2023, roslinazairimah zakaria escreveu:
> > Hi all,
> >
> > I have these data
> >
> > x1 <- c(116,0,115,137,127,0,0)
> > x2 <- c(
Thank you very much for your help.
On Tue, Sep 5, 2023 at 6:12 PM Eric Berger wrote:
> xx <- pmax(x1,x2)
>
> On Tue, Sep 5, 2023 at 11:56 AM roslinazairimah zakaria
> wrote:
> >
> > Hi all,
> >
> > I have these data
> >
> > x1 <- c(
Hi all,
I have these data
x1 <- c(116,0,115,137,127,0,0)
x2 <- c(0,159,0,0,0,159,127)
I want : xx <- c(116,115,137,127,159, 127)
I would like to merge these data into one column. Whenever the data is '0'
it will be replaced by the value in the column which is non zero..
I tried append and
Hi Rui,
Thank you very much. It works beautifully.
On Fri, Jan 13, 2023 at 3:36 PM Rui Barradas wrote:
> Às 05:11 de 13/01/2023, roslinazairimah zakaria escreveu:
> > Hi,
> >
> > I would like to customise my date series on the plot. I tried this:
> >
> > dt_t
Hi,
I would like to customise my date series on the plot. I tried this:
dt_ts <- ts(dt)
autoplot(dt_ts[,2]) + ylab("Charge counts") + xlab("Daily")
but the label is not the date series.
Tqvm for any help given.
> dput(dt)
structure(list(time = c("1/1/2014", "2/1/2014", "3/1/2014",
VALUE:Asymptotic p Value: 0.0002155 *
--
*Roslinazairimah Zakaria*
*Tel: +609-5492370; Fax. No.+609-5492766*
*Email: roslinazairi...@ump.edu.my ;
roslina...@gmail.com *
Faculty of Industrial Sciences & Technology
University Malaysia Pahang
Lebuhraya Tun Razak, 26300 Gambang, Pahang
o non-NA values to interpolate
On Tue, Jul 19, 2022 at 3:22 PM roslinazairimah zakaria <
roslina...@gmail.com> wrote:
> Jim,
>
> Thank you so much!
>
> On Tue, Jul 19, 2022 at 3:05 PM Jim Lemon wrote:
>
>> Hi Roslina,
>> The following gives you the sta
quot;,
"19/2/2014 1:55", "19/2/2014 14:25", "20/2/2014 5:17", "20/2/2014 23:20"
), BCStopTime = c("17:05", "19:00", "15:57", "9:52", "15:39",
"17:36", "1:55", "14:25&q
>
> Às 19:27 de 14/03/2019, Ivan Krylov escreveu:
> > On Fri, 15 Mar 2019 03:06:28 +0800
> > roslinazairimah zakaria wrote:
> >
> >> how many of ATTRIBUTE related to TRAITS.
> >
> > The table() function can be used to count occurrences of each
> &g
Barradas
>
> Às 19:27 de 14/03/2019, Ivan Krylov escreveu:
> > On Fri, 15 Mar 2019 03:06:28 +0800
> > roslinazairimah zakaria wrote:
> >
> >> how many of ATTRIBUTE related to TRAITS.
> >
> > The table() function can be used to count occurrences of each
>
ot;
), class = "factor"), SCORE = c(2L, 35L, 6L, 1L, 48L, 16L,
96L, 24L, 2L, 6L, 4L, 1L, 81L, 100L, 28L, 8L, 48L, 12L, 4L,
84L, 24L, 3L, 24L, 100L, 24L, 24L, 96L, 48L, 8L, 36L, 100L,
69L, 34L, 100L, 68L, 24L, 72L, 60L, 70L, 48L, 24L, 77L, 40L,
100L, 88L, 8L, 48L, 72L, 32L
,2] and all_pct[,3].
How do I count how many satisfy the conditions?
--
*Roslinazairimah Zakaria*
*Tel: +609-5492370; Fax. No.+609-5492766*
*Email: roslinazairi...@ump.edu.my ;
roslina...@gmail.com *
Faculty of Industrial Sciences & Technology
University Malaysia Pahang
Lebuhraya Tun Razak, 26
Yes you are right, I want the sum. I wll change the formula accordingly.
On Fri, Oct 12, 2018 at 10:36 AM Jeff Newmiller
wrote:
> You said "add up"... so you did not mean to say that? Denes computed the
> mean...
>
> On October 11, 2018 3:56:23 PM PDT, roslinazairim
Hi Denes,
It works perfectly as I want!
Thanks a lot.
On Fri, Oct 12, 2018 at 6:29 AM Dénes Tóth wrote:
>
>
> On 10/12/2018 12:12 AM, roslinazairimah zakaria wrote:
> > Dear r-users,
> >
> > I have this data:
> >
> > structure(list(STUDENT_ID = structu
ot;,
"COURSE_CODE", "PO1M", "PO1T", "PO2M", "PO2T", "X", "X.1"), class =
"data.frame", row.names = c(NA,
-11L))
I want to combine the same Student ID and add up all the values for PO1M,
PO1T,...,PO2T obtained by the sam
scales=list(y=list(labels=sort(unique(mtcars$cyl,
> main="Gas Milage for Car Models", xlab="Miles Per Gallon")
>
> Jim
> On Wed, Sep 12, 2018 at 4:21 PM roslinazairimah zakaria
> wrote:
> >
> > Dear r-users,
> >
> > I want t
has not been called yet
Thank you so much for any help given.
--
*Roslinazairimah Zakaria*
*Tel: +609-5492370; Fax. No.+609-5492766*
*Email: roslinazairi...@ump.edu.my ;
roslina...@gmail.com *
Faculty of Industrial Sciences & Technology
University Malaysia Pahang
Lebuhraya Tun Razak, 26300 G
3141" "13142" "14151" "14152" "ENTRY"
> > datn$STATUS <- factor(datn$STATUS, levels=c("ENTRY", "11121", "11122",
> "12131", "12132", "13141", "13142", "14151", "1
VEL,
colour=LEVEL),cex.axis=0.2, ylim=c(0,4)) +
geom_line(size=1.3) +
geom_point()+
#guides(fill=FALSE) +
theme(legend.title=element_blank(),legend.position=c(.3,
.3),axis.text.x = element_text(size=8),axis.text=element_text(size=10))
Thank you very much.
--
*Roslinazairimah Zaka
"2", "3", "4", "5"
> ))
>
> [[alternative HTML version deleted]]
>
> __
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
ot;data.frame")
Thank you very much for your help.
--
*Roslinazairimah Zakaria*
*Tel: +609-5492370 <+60%209-549%202370>; Fax. No.+609-5492766
<+60%209-549%202766>*
*Email: roslinazairi...@ump.edu.my
<roslinazairi...@ump.edu.my>; roslina...@gmail.com <roslina...@gmail.com>*
Faculty of
TUDENT_ID"]], 3, 4) == as.character(year)
> x[inx, ]
> }
>
> fun2 <- function(x, program){
> inx <- x[["PROGRAM"]] == program
> x[inx, ]
> }
>
> fun1(dt_all2, 14) # filter by year = 14
> fun2(dt_all2, "IJAZAH SARJANA MUDA"
"EC14021", "EC15063", "FB14085", "KA13142", "KA13143",
"KA13156", "KE13034", "KE13046", "MA14071", "MA14115", "PA13048"
), class = "factor"), PROGRAM = structure(c(1L, 1L, 1L,
Another question,
How do I extract ID based on the third and fourth letter:
I have for example, AA14004, AB15035, CB14024, PA14009, PA14009 etc
I would like to extract ID no. of AB14..., CB14..., PA14...
On Mon, Mar 13, 2017 at 12:37 PM, roslinazairimah zakaria <
roslina...@gmail.com>
gt; Cheers,
> Bert
>
> Bert Gunter
>
> "The trouble with having an open mind is that people keep coming along
> and sticking things into it."
> -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )
>
>
> On Sun, Mar 12, 2017 at 8:32 PM, rosli
PAACT_SS ACT_VAL ACT_CS ACT_LED ACT_PS
ACT_IM
[14] ACT_ENT ACT_CRE ACT_UNI ACT_VOL...
Thank you so much for your help.
How do I do it?
--
*Roslinazairimah Zakaria*
*Tel: +609-5492370; Fax. No.+609-5492766*
*Email: roslinazairi...@ump.edu.my <roslina
: is this ok? It assumes that is within a
.Named_I/structure
}
} else if (mode == "name") {
if (length != 1) {
Stop("expected length of 'name' objects is 1, but got",
length)
}
as.name(nextLine
aEnv <-
> new.env())
> Then objects(SplusDataEnv) will list what in the file and
> SplusDataEnv[["name"]] with get the dataset "name" from the file.
>
> Bill Dunlap
> TIBCO Software
> wdunlap tibco.com
>
>
> On Sun, Feb 26, 2017 at 3:47 PM, r
vectors[[1]]
> }
> } else {
> vectors # TODO: is this ok? It assumes that is within
> a .Named_I/structure
> }
> } else if (mode == "name") {
> if (length != 1) {
> St
sktop/2 ICGPA/1ACTIVITY.sdd"))
Error in read.S(file.path("C:/Users/FTSI/Desktop/2 ICGPA/1ACTIVITY.sdd")) :
not an S object
Thank you.
On Sun, Feb 26, 2017 at 8:12 PM, Michael Dewey <li...@dewey.myzen.co.uk>
wrote:
> Did you do
> library(foreign)
> first?
>
>
n read some such files in R, but I think it
> may only read well
> those with using the pre-1991 format made in more recent versions of
> S+ with data.dump(old.style=TRUE).
> Bill Dunlap
> TIBCO Software
> wdunlap tibco.com
>
>
> On Fri, Feb 24, 2017 at 8:58 PM, roslinaz
top/2 ICGPA/1ACTIVITY.sdd") :
not an S object
What is wrong with this? Thank you so much for your help.
--
*Roslinazairimah Zakaria*
*Tel: +609-5492370; Fax. No.+609-5492766*
*Email: roslinazairi...@ump.edu.my <roslinazairi...@ump.edu.my>;
roslina...@gmail.com <roslina...@gmail.com>*
F
ot;,"fitted"),
col = c("yellowgreen", "red"), pch=c(15,NA), lty = c(0, 1),
lwd=c(0,3),bty="n", pt.cex=2)
text(100,.012 , expression(paste(beta==64.64)))
box()
Thank you.
On Wed, Aug 3, 2016 at 8:14 PM, Duncan Murdoch <murdoch.dun...@gmail.com
l="yellowgreen",
> cex.axis=1.2,
> xlab="Rain (mm)", ylab="Relative frequency", ylim= c(0,.004),
> xlim=c(0,1200))
> dgam2<-(rnorm(4)+4)/2000
> lines(x, dgam2,col="red",lwd=3)
> legend("topright", legend = c("observed",&
Dear r-users,
I would like to plot 4 graphs arranged as 2 by 2 and follows are my codes.
However, it only shows one graph.
par(mfrow=c(1,2))
par(mar=c(4,4,2,1.2),oma=c(0,0,0,0),xaxs="i", yaxs="i") ## To control
white space around and between the plots
hist(stn_all[,1],prob=TRUE, main ="Balok
Hi Marc,
I will try again. Thank you.
On Wed, Aug 3, 2016 at 1:02 AM, Marc Schwartz <marc_schwa...@me.com> wrote:
>
> > On Aug 2, 2016, at 11:37 AM, roslinazairimah zakaria <
> roslina...@gmail.com> wrote:
> >
> > Dear r-users,
> >
> > I would
> College Station, TX 77840-4352
>
>
>
> -Original Message-
> From: R-help [mailto:r-help-boun...@r-project.org] On Behalf Of
> roslinazairimah zakaria
> Sent: Tuesday, August 2, 2016 11:37 AM
> To: r-help mailing list
> Subject: [R] Anderson
Dear r-users,
I would like to perform Anderson Darling Goodness of fit test as such:
install.packages("adk")
library(adk)
x3 <- list(stn_all[,1], balok_gen); x3
adk.test(x3)
#x3 <- list(jun_data1_pos,jun_gen); x3
#adk.test(x3)
However, I got this reply:
> adk.test(x3)
Error: could not find
e. Either it is not there or file system
> permissions (off topic here) prevented access to the file.
> --
> Sent from my phone. Please excuse my brevity.
>
> On August 1, 2016 11:30:42 PM PDT, roslinazairimah zakaria <
> roslina...@gmail.com> wrote:
> >Dear r-usersl,
Dear r-usersl,
I don't understand this comment:
> gambang <- read.csv("G:/A_backup 11 mei 2015/DATA (D)/1 Universiti
Malaysia Pahang/ISM-3 2016 UM/Data/Hourly
Rainfall/gambang2.csv",header=TRUE)
Error in file(file, "rt") : cannot open the connection
In addition: Warning message:
In file(file,
Dear r-users,
I have a set of numbers that I would like to repeat for let say 10 times
and each number is repeated by vertically.
I tried this:
a <- c(5.78, 5.79,5.86)
tran_a <- t(matrix(rep.int(a, 10),3))
dput(tran_a)
structure(c(5.78, 5.78, 5.78, 5.78, 5.78, 5.78, 5.78, 5.78, 5.78,
5.78,
-
> as.vector(by(aggbalok_2009_2014$x,aggbalok_2009_2014$year,sum,na.rm=TRUE))
> cbind(year=2009:2014,sum_balok)
>
> I don't have the data for the other measures, but you could calculate
> the sums as you did below and then add them to the cbind arguments.
>
> Jim
>
>
>
Dear r-users,
I would like to use lapply for the following task:
## Kolmogorov-Smirnov
ks.test(stn_all[,1][stn_all[,1] > 0],stn_all_gen[,1][stn_all_gen[,1] > 0])
ks.test(stn_all[,2][stn_all[,2] > 0],stn_all_gen[,2][stn_all_gen[,2] > 0])
ks.test(stn_all[,3][stn_all[,3] >
Thank you very much Jim. It works beautifully.
Best regards,
On Fri, Jul 29, 2016 at 11:56 AM, Jim Lemon <drjimle...@gmail.com> wrote:
> Hi Roslina,
> Try this:
>
> aggbalok_mth[aggbalok_mth$year %in% 2009:2014,]
>
> Jim
>
>
> On Fri, Jul 29, 2016 at
Dear r-users,
I would like to extract year from 2009 to 2014 with the corresponding month
and rain amount.
I tried this:
aggbalok_mth[aggbalok_mth$year == 2009:2014, ] but some of the data is
missing.
> dput(aggbalok_mth[aggbalok_mth$year == 2009:2014, ] )
structure(list(month = c(1, 7, 2, 8,
2_new
str(dt)
aggbalok_mth <- aggregate(dt[,5], by=dt[,c(2,3)],FUN=sum, na.rm=TRUE)
head(aggbalok_mth)
Now I would like to find the basic statistics summary for the data
according to monthly.
Best regards
On Wed, Jul 13, 2016 at 10:37 PM, David Winsemius <dwinsem...@comcast.net>
wrote
NA
9 30 7 2008 17:00:00 NA
10 30 7 2008 18:00:00 NA
Thank you so much.
On Wed, Jul 13, 2016 at 9:42 AM, David Winsemius <dwinsem...@comcast.net>
wrote:
>
> > On Jul 12, 2016, at
Dear R-users,
I have these data:
head(balok, 10); tail(balok, 10)
Date Time Rain.mm
1 30/7/2008 9:00:00 0
2 30/7/2008 10:00:00 0
3 30/7/2008 11:00:00 0
4 30/7/2008 12:00:00 0
5 30/7/2008 13:00:00 0
6 30/7/2008 14:00:00 0
7 30/7/2008
Dear r-users,
I have a code in SPlus which use julian function. What is the similar code
used in R?
define.date1-function(dt1,mt1,mt2,nn,da)
{ mt2-mt2+1
start-julian(mt1, 1, nn, origin=c(month=1, day=1, year=1971))+1
end-julian(mt2, 1, nn, origin=c(month=1, day=1, year=1971))+da
Dear all,
All works well. Thank you so much for your help.
D## Function 1
wet_dry1 - function(x,thresh=0.1)
{ for(column in 1:dim(x)[2]) x[,column] - ifelse(x[,column]=thresh,1,0)
return(x)
}
wet_dry1(dt)
## Function 2
wet_dry2 - ( dt = 0.1)*1
wet_dry2
wet_total - colSums(wet_dry2)
pp -
Thank you jim.
On Saturday, June 6, 2015, Jim Lemon drjimle...@gmail.com wrote:
Hi rosalinazairimah,
I think the problem is that you are using if instead of ifelse. Try
this:
wet_dry-function(x,thresh=0.1) {
for(column in 1:dim(x)[2]) x[,column]-ifelse(x[,column]=thresh,1,0)
return(x)
Dear r-users,
I have a set of rain data:
X1950 X1951 X1952 X1953 X1954 X1955 X1956 X1957 X1958 X1959 X1960 X1961
X1962
1 0.0 0.0 14.3 0.0 13.5 13.2 4.0 0 3.3 0 0 0.0
2 0.0 0.0 21.9 0.0 10.9 6.6 2.1 0 0.0 0 0 0.0
3 25.3 6.7 18.6
61 matches
Mail list logo
