search for: a1

Hi all, I was wondering whether it is possible to use the lapply() function to alter the value of the input, something in the spirit of : a1<-runif(100) a2<-function(i){ a1[i]<-a1[i-1]*a1[i];a1[i] } a3<-lapply(2:100,a2) Something akin to a for() loop, but using the lapply() infrastructure. I haven't been able to get rapply() to do this. The reason is that the "real" a2 function is a difficult function that on...

...p-values from an Anova object from the car library? I can't seem to locate the p-values using str(result) or str(summary(result)) in the example below > A <- factor( rep(1:2,each=3) ) > B <- factor( rep(1:3,times=2) ) > idata <- data.frame(A,B) > fit <- lm( cbind(a1_b1,a1_b2,a1_b3,a2_b1,a2_b2,a2_b3) ? sex, data=Data.wide) > result <- Anova(fit, type="III", test="Wilks", idata=idata, idesign=?A*B) Any help would be much appreciated! Many thanks, Johan

...llo list, this is the communication between an Aastra 5000 PBX and Asterisk, where the Aastra makes a call to Asterisk. For some reason, Asterisk responds with 401-Unauthorized and I don't know why. Calls go well with Panasonic PBX, Avaya PBX, Alcatel-Lucent PBX but NOT with this Aastra. A1.A1.A1.A1 = IP-address Asterisk PBX AS.AS.AS.AS = IP-address Aastra PBX Aastra PBX makes a call to the number 3221112233... This is all the sip debug trace gathered with asterisk : <--- SIP read from UDP:AS.AS.AS.AS:61490 ---> INVITE sip:3221112233 at A1.A1.A1.A1:5060 SIP/2.0 Via: SIP/2.0/...

Hi R users, I am trying to omit rows of data based on partial matches an example of my data (seal_dist) is below: A quick break down of my coding and why I need to answer this - I am dealing with a colony of seals where for example A1 is a female with pup and A1.1 is that female's pup, the important part of the data here is DIST which tells the distance between one seal (ID) and another (TO_ID). What I want to do is take a mean for these data for a nearest neighbour analysis but I want to omit any cases where there is the di...

...k =3D no read only =3D no write list =3D '@DOM2+Domain Users' #read list =3D '@DOM2+Domain Users' read list =3D * The R/W by DOM2 is fine,but when I browse the swap from win98= machine,it need the passwd for IPC$. Any suggestion? Sorry for my poor english. =09=09=09=09jiangzhi =A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1webmaster@hejiangmould.com =A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A12004-01-29

Hello fellow R people, I can not figure out a pretty way to use strplit with vectors Imagine that I got the following data from someone with ID's representing several factors ID data A1-B1-t1 0 A1-B1-t2 1 A1-B2-t1 5 A1-B2-t2 10 A1-B10-t1 0 A1-B10-t2 1 A1-B20-t1 5 A1-B20-t2 10 ... I would like to turn this dataframe to station substation time data A1 B1 t1 0 A1 B1 t2 1 A1 B2 t1 5 A1 B2 t2 10 A1 B10 t1 0 A1 B10 t2 1 A1 B20 t1 5 A1 B20 t2 10 ... This must surely b...

...). can anyone shed some light on how the "plinear" algorithm works? also, how are the fitted values obtained? also, WHAT DOES THE ".lin" below REPRESENT? thanking you in advance ###################################### i have a quick example: (data below) f1=nls(r~242*(p+exp(-a1*p)/a1-1/a1)*(1-exp(-a2*o))/( (100+exp(-a1*100)/a1-1/a1)*(1-exp(-a2*50)) ) , data = X.m, algorithm="plinear",start = list(a1=0.01,a2=.01),trace = TRUE) > summary(f1) Formula: r ~ 242 * (p + exp(-a1 * p)/a1 - 1/a1) * (1 - exp(-a2 * o))/((100 + exp(-a1 * 100)/a1 - 1/a1) * (1 - exp(...

...99018527536,2.81874922657008,-2.47892179680143,-0.237168391583651,1.05384076104419,1.35730105037783,-0.889060319407602,1.29407560544756,-0.0145655801680721,2.62874531083287,-0.188992792468916,-2.36877528363888,0.193706203424581),id=c("a2","a2","a2","a2","a1","a1","a1","a1","a3","a3","a3","a3","a2","a2","a2","a2","a1","a1","a1","a1","a3","a3","a3","a3","a2...

Hi, I want to draw a pie chart of level (variable) for each ID (variable). I have a big dataset, here I attach part of it. ID level 1 G1 1 A1 1 A1 1 G1 1 G1 1 G1 1 A1 1 A1 1 G1 1 G1 1 G3 1 A1 1 G1 1 A1 1 A1 1 A2 1 A2 1 M 1 A1 1 G1 1 A1 1 1 1 A2 1 G3 1 A1 1 A1 1 A1 Below is my r code: level <- na.exclude(level) level.table <- table(level) level.sum <- sum(level.table ) lbls <- round(level.table /...

For the given test: class A1 { int x; int y; public: A1(int a, int b) { x=a; y=b; } A1 operator+(const A1&); }; A1 A1::operator+(const A1& second) { A1 sum(0,0); sum.x = x + second.x; sum.y = y + second.y; return (sum); } int main (void) { A1 one(2,3); A1 two(4,5); return 0; } when t...

Hi all,I know this topic has came up multiple times, but I've never fully understand the apply() function. Anyway, I'm here asking for your help again to convert this loop to apply(). I have 2 data frames with the following information: a1 is the fragment that is need to be covered, a2 is the probes that cover the specific fragment. I need to count the number of probes cover every given fragment (they need to have the same cat ID to be on the same fragment) a1<-data.frame(id=c(1:6), cat=c('cat 1','cat 1','cat...

Dear R users, I have a Hadamard matrix 16x15 and i want to put 16x5 submatrices in an array put i have an error. > A1<-matrix(c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, + 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1, + 0,1,1,0,0,1,1,0,0,1,1,0,0,1,1, + 1,1,0,0,1,1,0,0,1,1,0,0,1,1,0, + 0,0,0,1,1,1,1,0,0,0,0,1,1,1,1, + 1,0,1,1,0,1,0,0,1,0,1,1,0,1,0, + 0,1,1,1,1,0,0,0,0,1,1,1,1,0,0, + 1,1,0,1,0,0,1,0,1,1,0,1,0,0,1, + 0,0,0,0,0,0,0,1,1,1,1,...

Hi All. I am quite a newbie to R. This is a basic question. I like to modify elements of a vector. For Example: a1 <- c(1,2,3,4,3,5) TThe following program sentence does not work but the intention is; if (a1==3) a1*3 . 3 in the vector should be changed to 9, and the resulted vector is (1,2,9,4,9,5). How can I get the result? Thanks in advance for help. -------========-------- mitsu5 mitsu5 at ruby.f...

I have a large Excel file with SKU numbers (stock keeping units) and forecasts which can be mimicked with the following: Period <- c(1, 2, 3, 1, 2, 3, 4, 1, 2) SKU <- c("A1","A1","A1","X4","X4","X4","X4","K2","K2") Forecast <- c(99, 103, 128, 63, 69, 72, 75, 207, 201) PeriodSKUForecast <- data.frame(Period, SKU, Forecast) PeriodSKUForecast Period SKU Forecast 1 1 A1...

Hi, I have a a vector and a data frame with two columns vec = c("C", "A", "B") dataDF = data.frame(A1 = c("B", "A", "C"), A2 = c(1,2,3)) I would like to sort the data frame by column A1 such that the order of elements in A1 is as the same as in vec. After the ordering, the data frame would be A1 A2 C 3 A 2 B 1...

...transcoding -- a bit of dial plan tweaking via the setting of SIP_CODEC variable seems to do the trick. But I digress... (with patch in issue 4825 things would be much nicer!) Now I'm still trying to improve bandwith usage with "local music on hold"; that is, when sip user A1, registered to server A puts sip caller B1, registered to server B, caller B1 gets server B's music on hold -- this removes the need of streaming audio from server A to server B while B1 is on hold, which in my scenario is a good thing. I post to the list trying to get peer feedback...

Hi all, I have a data.frame I received with data that look like this (comma separated strings in last row): ID Shop Items ID1 A1 item1, item2, item3 ID2 A2 item4, item5 ID3 A1 item1, item3, item4 But I would like to unbind the strings in col(2) items so that it will look like this: ID Shop Items ID1 A1 item1 ID1 A1 item2 ID1 A1 item3 ID2 A2 item4 ID2 A2 item5 ID3 A1 item1 ID3 A1 item3 ID3 A1 item4 Meaning each item is on...

Dear R-devels, We have encountered a problem concerning a dead lock in the dependency graph: We have two packages A1 and A2 where A2 extends A1. We have one package vignette for both packages, but which should be included into package A1. So in the "suggests" field of the DESCRIPTION file of A1 we suggest A2 to be able to produce the vignette at build/install time. On the other hand this means that A...

suppose I have a function example: getMatrix <- function(a,b){ A1<-diag(1,2,2) } If I want to get the both the A1 and dim(A1) from the function, Can I do return(A1,dim(A1)) inside the function ? And how can I access A1 and dim(A1) later on? --------------------------------- [[alternative HTML version deleted]]

Hi all, I would like create a new column in a data.frame (a1) to store 0, 1 data converted from a factor as below. a1$h2<-NULL for (i in 1:dim(a1)[1]) { if (a1$h1[i]=="H") a1$h2[i]<-1 else a1$h2[i]<-0 } My question: is it possible to remove the loop from above code to achieve the desired result? Thanks in advance, Jin Geosc...