Displaying 20 results from an estimated 84 matches for "yg".
Did you mean:
6yg
2017 Mar 19
2
outer not applying a constant function
Hi,
the function outer can not apply a constant function as in the last line of the following example:
> xg <- 1:4
> yg <- 1:4
> fxyg <- outer(xg, yg, function(x,y) x*y)
> fconstg <- outer(xg, yg, function(x,y) 1.0)
Error in outer(xg, yg, function(x, y) 1) :
dims [product 16] do not match the length of object [1]
Of course there are simpler ways to construct a constant matrix, that is not my point....
2017 Mar 20
1
outer not applying a constant function
...t <Albrecht.Gebhardt at aau.at>
>>>>>> on Sun, 19 Mar 2017 09:14:56 +0000 writes:
>
> > Hi,
> > the function outer can not apply a constant function as in the last line of the following example:
>
> >> xg <- 1:4
> >> yg <- 1:4
> >> fxyg <- outer(xg, yg, function(x,y) x*y)
> >> fconstg <- outer(xg, yg, function(x,y) 1.0)
> > Error in outer(xg, yg, function(x, y) 1) :
> > dims [product 16] do not match the length of object [1]
>
> > Of course there...
2018 May 22
3
Cannot delete folder
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
On Mon, 21 May 2018, Yves Goergen wrote:
>> May 21 10:36:14 mond2 dovecot: imap(yg@****.de): Debug: Namespace :
>> /var/mail/virtual/****.de/yg/.Test doesn't exist yet, using default
>> permissions
>> May 21 10:36:14 mond2 dovecot: imap(yg@****.de): Debug: Namespace : Using
>> permissions from /var/mail/virtual/****.de/yg: mode=0700 gid=default
>...
2009 Jan 10
3
Applying 'lm' in each group
... 227.68339,152.42658,208.70115, 223.91982, 221.70702, 213.71135,168.0199, 222.69040,228.49353, 164.95750,243.18828,
229.94688,313.37154364,202.263786,139.31002593)
n<-length(x)
m<-3;
r<-8;
c<-r*(m-1);
g1<-rep(1:(m-1),each=r);
g<-c(g1,rep(m,n-c))
xg<-split(x,g);
yg<-split(y,g);
Now if I write lm(yg~xg) then it won't work. Please advice how to proceed.
Thanks in advance.
Bhargab
[[alternative HTML version deleted]]
2017 Mar 20
0
outer not applying a constant function
...t;>>> Gebhardt, Albrecht <Albrecht.Gebhardt at aau.at>
>>>>> on Sun, 19 Mar 2017 09:14:56 +0000 writes:
> Hi,
> the function outer can not apply a constant function as in the last line of the following example:
>> xg <- 1:4
>> yg <- 1:4
>> fxyg <- outer(xg, yg, function(x,y) x*y)
>> fconstg <- outer(xg, yg, function(x,y) 1.0)
> Error in outer(xg, yg, function(x, y) 1) :
> dims [product 16] do not match the length of object [1]
> Of course there are simpler ways to construct...
2006 Apr 13
1
Working directory
Hi,
I am a new user of "R", I am trying to read my data in.. "Cervixhc.dat" used
to be in a different directory, now it has been moved to "O:\E&s\APC cervix
FINAL (YG,MC,MD)\Manuscript\Data", but when I ran the following program (in
red) I got an error message "Error in setwd(dir) : cannot change working
directory", and "Error in file(file, "r", encoding = encoding) :
unable to open connection
In addition: Warning message:...
2018 May 20
3
Cannot delete folder
...er_ciphers = yes
> ssl_protocols = !SSLv2 !SSLv3
> userdb {
> driver = prefetch
> }
> protocol imap {
> mail_max_userip_connections = 100
> mail_plugins = quota imap_quota
> }
>
> And this is the 'namei' output:
>
> f: /var/mail/virtual/****.de/yg/
> drwxr-xr-x root root /
> drwxr-xr-x root root var
> drwxrwsr-x root mail mail
> drwx--S--- mail mail virtual
> drwx--S--- mail mail ****.de
> drwx--S--- mail mail yg
>
> Here's also the 'ls -al' output of that mailbox directory:
>
> insgesamt 136
>...
2018 May 21
2
Cannot delete folder
...s.
Aki
On 21.05.2018 11:46, Yves Goergen wrote:
> I couldn't find anything relevant between all the debug log lines. Is
> that in /var/log/mail.log?
>
> Here's the lines I think are related to creating and deleting the folder:
>
>> May 21 10:36:14 mond2 dovecot: imap(yg@****.de): Debug: Namespace :
>> /var/mail/virtual/****.de/yg/.Test doesn't exist yet, using default
>> permissions
>> May 21 10:36:14 mond2 dovecot: imap(yg@****.de): Debug: Namespace :
>> Using permissions from /var/mail/virtual/****.de/yg: mode=0700
>> gid=defaul...
2007 Feb 19
2
Using OLE DB Connections from Wine
Hi,
I'm trying to use Enterprise Architect under wine. According to their documentation it runs on "Codeweavers Crossover" so I believe it should also run under wine (it's listed as basically working in the application DB http://appdb.winehq.org/appview.php?iVersionId=6018 ( http://appdb.winehq.org/appview.php?iVersionId=6018 ) ).
I'm trying to get an OLE connection to a
2018 May 21
0
Cannot delete folder
I couldn't find anything relevant between all the debug log lines. Is
that in /var/log/mail.log?
Here's the lines I think are related to creating and deleting the folder:
> May 21 10:36:14 mond2 dovecot: imap(yg@****.de): Debug: Namespace : /var/mail/virtual/****.de/yg/.Test doesn't exist yet, using default permissions
> May 21 10:36:14 mond2 dovecot: imap(yg@****.de): Debug: Namespace : Using permissions from /var/mail/virtual/****.de/yg: mode=0700 gid=default
> May 21 10:36:23 mond2 dovecot: im...
2010 May 12
1
exact the variables used in tree construction
...t; fit.dimer <- rpart(as.factor(out) ~ ., method="class", data=p_df)
>
> fit.dimer$frame[, "var"]
[1] NE WC <leaf> TA <leaf> <leaf> WG WD WW WC
[11] <leaf> <leaf> <leaf> CT <leaf> FC <leaf> YG QT <leaf>
[21] <leaf> <leaf> NW DP DY <leaf> SK <leaf> <leaf> <leaf>
[31] <leaf>
401 Levels: <leaf> AA AC AD AE AF AG AH AI AK AL AM AN AP AQ AR AS AT AV ...
YY
>
> at<-grep("<leaf>", fit.dimer$fr...
2001 Aug 31
3
mp3-wav-cd-audio "acoustically equivalent" to wav-cd-audio ?
A friend of mine made the following comment in a discussion I had with
him that on a website we adminster we should offer
a) WAV or maybe shorten files
b) Ogg as a decent reference lossy encoded version
He's been trying to convince me that we should offer MP3 (in lieu of
WAV) and possibly Ogg.
The audio files are primarily vocals
I am not a physics guy but his statements don't
2009 Jan 25
1
Gibbs sampler...did it work?
...0,000) in a
txt file at the end.
My question is, is the error message (see below) telling me that it can't
output 10,000 values (draws) because of a limitation in my memory, file
size, shape etc, or that there is an error in the sampler itself?
> s2eg2=1/rgamma(mg2,(12/2),.5*t(residuals(lm(yg[,1]~xg-1))%*%residuals(lm(yg[,1]~xg-1))))
> for(i in 1:mg2){
+ s2yg[i,]=parsy+t(rnorm(1,mean=0,sd=s2ygscale[i])%*%chol(s2eg2[i]*xgtxgi))
+ write(c(s2yg[i,],s2eg2[i]),
+ file="/media/DataTravelerMini/KINGSTON/Honours/R/IPR/s2yg2.txt", append=T,
ncolumns=1)
+ if(i%%50==0){print(c(s2yg[i,...
2011 Mar 22
1
help need on working in subset within a dataframe
...x(c(1:4), nrow = 1)
smyfun <- function(x) {
x <- as.vector(x)
K1 <- dataframe$x1 * 0.23
K2 <- dataframe$x2 * 0.98
# just example there is long vector calculations in read dataset
kt1 <- K1 * K2
kt2 <- K1 / K2
Qni <- (K1*(kt1-0.25)+ K2 *(kt2-0.25))
y <- dataframe$y
yg <- mean(y, na.rm= TRUE) # mean of trait Y # mean of trait Y
dvm <- (y-yg ) # deviation of phenotypic value from mean
sumdvm <-abs(sum(dvm, na.rm= TRUE))
yQni <- y* Qni
sumyQni <-abs(sum(yQni, na.rm= TRUE))
npt = ( sumdvm/ sumyQni)
return(npt)
}
npt1 <- apply(namemat...
2010 Apr 29
1
variable importance in Random Forest
...0.0177155268 0.014981440 0.0163366320 14.240232
WD 0.0232972311 0.034083695 0.0286702065 25.335182
WG 0.0328547215 0.053142508 0.0429480441 30.663749
WW 0.0093983693 0.006377956 0.0078681474 7.250101
YG 0.0051691399 0.007338639 0.0062618144 11.084111
num_cell 0.0061355526 0.005373049 0.0057463613 5.060577
num_genes 0.0364878788 0.044544488 0.0404558096 32.745034
position 0.0025375614 0.011566496 0.0070255302 10.0...
2003 Jul 14
2
Multipanel weighted regression lines.
...o this).
The second way would be to fiddle around with the function below to add
the "weights" to the lm function call. I do not know how to change this
"plot.regression" function to do that.
plot.regression = function(x,y)
{
panel.xyplot(x,y)
panel.abline(lm(y~x))
}
xyplot(yg~xg | g, panel="plot.regression")
Any help would be great!
Thanks,
Kevin Brown.
2000 Jul 28
4
gremlin in rep()
the following occurred inadvertently and brought R-1.1.0 down
rep(1:3, c(4,2,-6))
Segmentation Fault (core dumped)
platform i686-pc-linux-gnu
arch i686
os linux-gnu
system i686, linux-gnu
status
major 1
minor 1.0
year 2000
month June
day 15
language R
2000 Jun 25
2
Easy way?
Hi,
Say I have this vector x <- sort(rnorm(n)). I'd like to know if there is a nice way to find out the index of the nearest x to say 1.5?
Thanks
YG
-------------- next part --------------
An HTML attachment was scrubbed...
URL: https://stat.ethz.ch/pipermail/r-help/attachments/20000625/be875885/attachment.html
2010 May 11
1
how to extract the variables used in decision tree
...ract these variables and combine other variable as my features in next
step model building.
> printcp(fit.dimer)
Classification tree:
rpart(formula = outcome ~ ., data = p_df, method = "class")
Variables actually used in tree construction:
[1] CT DP DY FC NE NW QT SK TA WC WD WG WW YG
Root node error: 608/1743 = 0.34882
n= 1743
CP nsplit rel error xerror xstd
1 0.185033 0 1.00000 1.00000 0.032726
2 0.052632 2 0.62993 0.65132 0.028773
3 0.026316 4 0.52467 0.58059 0.027596
4 0.025768 5 0.49836 0.57072 0.027419
5 0.019737 8 0.42105...
2008 Jul 03
1
Problem in applying conditional looping
...e, which result
in negative variance estimator. I want to introduce a loop in my program
that verify the each value of PIJ and if any value in PIJ is negitive return
back and draw another sample until a sample is selected that produces all
values of PIJ positive.
library(mvtnorm)
library(combinat)
yg <- function(n,m,s) {
n<-10
m<-c(1,2)
s<- matrix(c(4,.2,.2,3), ncol=2)
x <- rmvnorm(n=n, mean=m, sigma=s)
pi <- x[,2]/sum(x[,2])
P <- pi*((1-2*pi)/(1-pi)+sum(pi/(1-pi)))
Pi<-t(combn(pi,2))
y<-t(combn(x[,1],2))
PI<-t(combn(P,2))
yht <- y[,1]/PI[,1]+ y[,2]/PI[,2]
*PIJ...