Displaying 4 results from an estimated 4 matches for "int_2".
Did you mean:
int32
2013 Jan 28
2
R plot like candlestick
...etween box and min value and a
segment between box and max value. Candlestick plot is provided by
quantmod package, but it is very specific for financial purpose and it
uses time series for x axis. I need a simpler method for plotting my
data that are stored in a table like this:
item, min, int_1, int_2, max
a, 2.5, 3, 4, 5.5
b, 2, 3.5, 4, 4.5
c, 3.5, 4, 4.5, 5
.....
Does anyone know if there is an R-plot for this purpose?
Thank you very much,
D.
2005 Apr 29
2
Subarrays
...[4,] 79 95 111 127
In the general case this procedure is very tedious.
Given an array
A, dim(A)=(dim_1,dim_2,...,dim_d)
and two vectors
v1=(n_i1,...n_ik), v2=(int_1,...,int_k) ('marginals' and relevant
'interval numbers')
is there a smart way to obtain
A[,...,int_1,....,int_2,....,....,int_k,....]
?
Best wishes
Gunnar Hellmund
2010 Mar 23
1
Changing content of column in data.frame + efficient join extraction between 2 data.frames
Dear R users,
I have 2 SpatialPointsDataFrame's, pcs and East.
The column str_1 in the first (pcs) is:
> pcs[0:4,]
coordinates cat str_1 int_1 int_2 dbl_1 dbl_2
1 (101000, 263000) 1 "SM06B" 101000 263000 4.978915 -4.293668
2 (101000, 265000) 2 "SM06C" 101000 265000 4.960478 -4.266742
3 (101000, 267000) 3 "SM06D" 101000 267000 4.912984 -4.246849
4 (101000, 269000) 4 "SM06E" 101000 269000 4.6...
2011 Oct 20
1
R code Error : Hybrid Censored Weibull Distribution
...n,j) *
(pweibull(x1,shape=p,scale=lamda))^(j-1) * (1 -
pweibull(x1,shape=p,scale=lamda))^(n-j) *
dweibull(x1,shape=p,scale=lamda)
int_1
}
v1[j]<-integrate(int1,lower=0,upper=t)$value
}
sum(v1)
}
#calculation for t2
fb2<-function(t,r){
v2<-numeric(0)
for(j in 1:r){
int2<-function(x2){
int_2<- (1/p+log(x2/lamda))*(-p/lamda) * j * choose(n,j) *
(pweibull(x2,shape=p,scale=lamda))^(j-1) * (1 -
pweibull(x2,shape=p,scale=lamda))^(n-j) *
dweibull(x2,shape=p,scale=lamda)
int_2
}
v2[j]<-integrate(int2,lower=0,upper=t)$value
}
sum(v2)
}
#calculation for t3
fb3<-function(t,r){
v3<-...