作者FDBDB (TEJ)
站内Statistics
标题Re: [问题] R 的 机率密度函数问题
时间Sat Apr 25 20:04:46 2009
※ 引述《FDBDB (TEJ)》之铭言：
: % Compute standard errors for IQR when the equation is just identified
: % using the method proposed in Powell (1986). This implementation uses
: % a Gaussian kernel and a simple rule of thumb bandwidth.
: % [b,vc,J] = vciqr(bhat,y,x,tau)
: % Inputs -
: % bhat - estimated coefficients from QR
: % y - dependent variable
: % d - RHS endogenous variable
: % x - covariates (If there are no covariates, pass x = [].)
: % z - instruments
: % tau - quantile index
: % Outputs -
: % b - estimated coefficients with standard errors
: % vc - covariance matrix of b
: % J - matrix in asymptotic variance formula (J'SJ) used in process testing
: n = size(y,1); % Number of observations
: x = [x,ones(n,1)]; % Add constant term
: k = size(x,2); % Number of regressors
: vc = zeros(k,k);
: b = zeros(k,2);
: S = (1/n)*x'*x;
: e = y - x*bhat; % Generate residuals
: h = 1.364*((2*sqrt(pi))^(-1/5))*sqrt(var(e))*(n^(-1/5));
: %Calculate bandwidth using Silverman's rule of thumb
: J = (1/(n*h))*((normpdf(e/h)*ones(1,size(x,2))).*x)'*x;
: =============================================================================
: 有一段Matlab程式如上
: 其中
: 在 J = (1/(n*h))*((normpdf(e/h)*ones(1,size(x,2))).*x)'*x;
: normpdf为Matlab中的Normal probability density function
: 而normpdf(e/h)则代表computes the pdf at each of the values in X
: using the normal distribution
: 想请问板上各位版友
: 该怎麽在 R 中写出 J 或是 normpdf(e/h) 的程式呢
: 或是 R 有类似 normpdf 的code吗
: 拜托各位高手帮忙一下了
: 感恩感恩
所以在请问一下
若是原始Matlab的程式如下
J = (1/(n*h))*((normpdf(e/h)*ones(1,size(x,2))).*x)'*x;
则我用 R 是改写成以下这样吗??
n<-dim(Y)[1]
h<-h[1,1]
constant<-as.matrix(c(rep(1,dim(Y)[1])))
x<-cbind(X,constant)
J<-(1/(dim(Y)[1]*h1[1,1]))*t(dnorm(errohat1/h[1,1])%*%
t(as.matrix(c(rep(1,dim(x)[2])))) *x)%*%x
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.119.233.233