Displaying 4 results from an estimated 4 matches for "int_1".
Did you mean:
int1
2005 Apr 29
2
Subarrays
...71 87 103 119
> v[3,,,2]
[,1] [,2] [,3] [,4]
[1,] 67 83 99 115
[2,] 71 87 103 119
[3,] 75 91 107 123
[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
2013 Jan 28
2
R plot like candlestick
...gment between 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.
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 269...
2011 Oct 20
1
R code Error : Hybrid Censored Weibull Distribution
...I could not found any theoretical interpretation of
it. I'm sending the code :
#########################################################################################
f3<-function(t,r){
#calculation for t1
fb1<-function(t,r){
v1<-numeric(0)
for(j in 1:r){
int1<-function(x1){
int_1<- (1/p+log(x1/lamda))^2 * j * choose(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...